Searched refs:proc_pointer (Results 1 - 25 of 39) sorted by relevance

12

/netbsd-current/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dexpr.c3877 int proc_pointer; local
3884 if (lvalue->ts.type == BT_UNKNOWN && !lhs_attr.proc_pointer)
3892 && !lhs_attr.proc_pointer)
3900 proc_pointer = lvalue->symtree->n.sym->attr.proc_pointer;
3907 proc_pointer = ref->u.c.component->attr.proc_pointer;
4019 if (proc_pointer)
4028 || (rvalue->expr_type == EXPR_FUNCTION && attr.proc_pointer)
4029 || (rvalue->expr_type == EXPR_VARIABLE && attr.proc_pointer)
4528 bool pointer, proc_pointer; local
[all...]
H A Dprimary.c1675 if (sym->attr.in_common && !sym->attr.proc_pointer)
2171 && !sym->attr.proc_pointer && !gfc_is_proc_ptr_comp (primary)
2503 if (component->attr.proc_pointer && ppc_arg)
2525 if (component->as != NULL && !component->attr.proc_pointer)
2536 && CLASS_DATA (component)->as && !component->attr.proc_pointer)
2681 if (pointer || attr.proc_pointer)
2751 if (pointer || attr.proc_pointer)
2872 if (pointer || attr.proc_pointer)
2931 if (pointer || attr.proc_pointer)
3457 && (*sym)->result->attr.proc_pointer
[all...]
H A Dtrans-types.c2221 if (sym->attr.proc_pointer && sym->attr.in_common)
2223 /* Unset proc_pointer as gfc_get_function_type calls gfc_sym_type. */
2224 sym->attr.proc_pointer = 0;
2226 sym->attr.proc_pointer = 1;
2264 && !sym->attr.proc_pointer && !sym->attr.cray_pointee;
2633 if (!c->attr.proc_pointer
2676 if ((!c->attr.pointer && !c->attr.proc_pointer
2718 if (c->attr.proc_pointer
2724 else if (c->attr.proc_pointer && derived->backend_decl)
2751 if ((c->attr.dimension || c->attr.codimension) && !c->attr.proc_pointer )
[all...]
H A Dsymbol.c385 else if (!proc->result->attr.proc_pointer)
427 *proc_pointer = "PROCEDURE POINTER", *abstract = "ABSTRACT", local
564 if (attr->proc_pointer && !gfc_notify_std (GFC_STD_F2003,
703 conf (proc_pointer, abstract)
704 conf (proc_pointer, omp_declare_target)
705 conf (proc_pointer, omp_declare_target_link)
811 if (!attr->proc_pointer)
817 if (!attr->proc_pointer || (gfc_option.allow_std & GFC_STD_F2008))
1131 attr->proc_pointer = 1;
1221 attr->proc_pointer
[all...]
H A Dclass.c823 c->attr.proc_pointer = 1;
830 else if (c->attr.proc_pointer && c->tb)
917 if (comp->attr.proc_pointer)
2473 c->attr.proc_pointer = 1;
2539 c->attr.proc_pointer = 1;
2549 c->attr.proc_pointer = 1;
2667 && !c->attr.pointer && !c->attr.proc_pointer && !c->attr.allocatable
2804 c->attr.proc_pointer = 1;
2875 c->attr.proc_pointer = 1;
H A Dresolve.c599 else if (!sym->result->attr.proc_pointer)
986 if (csym->attr.flavor == FL_UNKNOWN && !csym->attr.proc_pointer)
1320 if (!comp->attr.proc_pointer &&
1392 || comp->attr.proc_pointer || comp->ts.f90_type == BT_VOID
1404 if (comp->attr.proc_pointer && comp->ts.interface)
1476 if (!comp->attr.pointer || comp->attr.proc_pointer
2993 && !sym->attr.proc_pointer
3143 if ((sym->attr.array_outer_dependency || sym->attr.proc_pointer)
3405 && !expr->symtree->n.sym->result->attr.proc_pointer)
5351 || ref->u.c.component->attr.proc_pointer
[all...]
H A Dtrans-expr.c2681 if (c->ts.type == BT_CHARACTER && !c->attr.proc_pointer
2702 || c->attr.proc_pointer)
2963 if (!sym->attr.dummy && !sym->attr.proc_pointer)
4141 if (sym->attr.proc_pointer)
4248 && !sym->attr.proc_pointer);
5980 && e->symtree->n.sym->result->attr.proc_pointer)
5984 if (fsym && fsym->attr.proc_pointer)
6258 || (fsym->attr.proc_pointer
6261 || (fsym->attr.proc_pointer
6663 if (fsym != NULL && fsym->attr.optional && !attr.proc_pointer
[all...]
H A Dtrans-common.c990 dummy_symbol->proc_pointer |= attr.proc_pointer;
H A Dinterface.c1601 if (r1 != s1 && r1->attr.proc_pointer != r2->attr.proc_pointer)
2953 && ref->u.c.component->attr.proc_pointer
3009 return (c->ts.interface && (c->ts.interface->attr.proc_pointer == 1));
3012 && (expr->symtree->n.sym->result->attr.proc_pointer == 1));
3298 if (f->sym->attr.proc_pointer
3300 && (a->expr->symtree->n.sym->attr.proc_pointer
3316 || a->expr->symtree->n.sym->attr.proc_pointer
H A Dtrans-decl.c1912 sym->attr.proc_pointer);
1919 && !sym->attr.proc_pointer
2088 if (sym->attr.proc_pointer)
2717 if (f->sym->attr.proc_pointer)
2740 && (!f->sym->attr.proc_pointer
5278 && !(sym->attr.flavor == FL_PROCEDURE && sym->attr.proc_pointer))
5338 gcc_assert (length || sym->attr.proc_pointer);
H A Ddecl.c1931 && !sym->attr.proc_pointer
6866 sym->result->attr.proc_pointer = sym->attr.proc_pointer;
6871 sym->attr.proc_pointer = 0;
6877 sym->result->attr.proc_pointer = 1;
6889 sym->result->attr.proc_pointer = 1;
7146 current_attr.proc_pointer = 1;
H A Dmatch.c1418 if (lvalue->symtree->n.sym->attr.proc_pointer
4355 || sym->attr.proc_pointer);
4359 || sym->ns->proc_name->attr.proc_pointer);
4767 || sym->attr.proc_pointer);
H A Dcheck.c1446 if (!attr1.pointer && !attr1.proc_pointer)
4351 if (!attr.pointer && !attr.proc_pointer && !attr.allocatable)
5455 if (!attr.proc_pointer)
5491 if (attr.function && !attr.proc_pointer && x->expr_type == EXPR_VARIABLE
H A Dtrans-array.c7542 || (gfc_expr_attr (expr).proc_pointer
8096 return sym->attr.pointer || sym->attr.proc_pointer;
8995 && !c->attr.pointer && !c->attr.proc_pointer)
9123 && !c->attr.pointer && !c->attr.proc_pointer
9171 else if (attr->dimension && !attr->proc_pointer)
9174 if (attr->dimension && !attr->codimension && !attr->proc_pointer)
9315 if (c->attr.proc_pointer
9485 if (c->attr.pointer || c->attr.proc_pointer)
9578 if (cmp_has_alloc_comps && !c->attr.proc_pointer && !same_type)
9620 && !c->attr.proc_pointer
[all...]
/netbsd-current/external/gpl3/gcc/dist/gcc/fortran/
H A Dexpr.cc3900 int proc_pointer; local
3907 if (lvalue->ts.type == BT_UNKNOWN && !lhs_attr.proc_pointer)
3915 && !lhs_attr.proc_pointer)
3923 proc_pointer = lvalue->symtree->n.sym->attr.proc_pointer;
3930 proc_pointer = ref->u.c.component->attr.proc_pointer;
4042 if (proc_pointer)
4051 || (rvalue->expr_type == EXPR_FUNCTION && attr.proc_pointer)
4052 || (rvalue->expr_type == EXPR_VARIABLE && attr.proc_pointer)
4559 bool pointer, proc_pointer; local
[all...]
H A Dprimary.cc1654 if (sym->attr.in_common && !sym->attr.proc_pointer)
2150 && !sym->attr.proc_pointer && !gfc_is_proc_ptr_comp (primary)
2482 if (component->attr.proc_pointer && ppc_arg)
2504 if (component->as != NULL && !component->attr.proc_pointer)
2515 && CLASS_DATA (component)->as && !component->attr.proc_pointer)
2661 if (pointer || attr.proc_pointer)
2737 if (pointer || attr.proc_pointer)
2859 if (pointer || attr.proc_pointer)
2918 if (pointer || attr.proc_pointer)
3443 && (*sym)->result->attr.proc_pointer
[all...]
H A Dtrans-types.cc2281 if (sym->attr.proc_pointer && sym->attr.in_common)
2283 /* Unset proc_pointer as gfc_get_function_type calls gfc_sym_type. */
2284 sym->attr.proc_pointer = 0;
2286 sym->attr.proc_pointer = 1;
2325 && !sym->attr.proc_pointer && !sym->attr.cray_pointee;
2703 if (!c->attr.proc_pointer
2746 if ((!c->attr.pointer && !c->attr.proc_pointer
2788 if (c->attr.proc_pointer
2794 else if (c->attr.proc_pointer && derived->backend_decl)
2821 if ((c->attr.dimension || c->attr.codimension) && !c->attr.proc_pointer )
[all...]
H A Dsymbol.cc385 else if (!proc->result->attr.proc_pointer)
427 *proc_pointer = "PROCEDURE POINTER", *abstract = "ABSTRACT", local
564 if (attr->proc_pointer && !gfc_notify_std (GFC_STD_F2003,
703 conf (proc_pointer, abstract)
704 conf (proc_pointer, omp_declare_target)
705 conf (proc_pointer, omp_declare_target_link)
812 if (!attr->proc_pointer)
818 if (!attr->proc_pointer || (gfc_option.allow_std & GFC_STD_F2008))
1138 attr->proc_pointer = 1;
1228 attr->proc_pointer
[all...]
H A Dclass.cc838 c->attr.proc_pointer = 1;
845 else if (c->attr.proc_pointer && c->tb)
932 if (comp->attr.proc_pointer)
2483 c->attr.proc_pointer = 1;
2550 c->attr.proc_pointer = 1;
2560 c->attr.proc_pointer = 1;
2679 && !c->attr.pointer && !c->attr.proc_pointer && !c->attr.allocatable
2817 c->attr.proc_pointer = 1;
2889 c->attr.proc_pointer = 1;
H A Dresolve.cc599 else if (!sym->result->attr.proc_pointer)
1010 if (csym->attr.flavor == FL_UNKNOWN && !csym->attr.proc_pointer)
1348 if (!comp->attr.proc_pointer &&
1431 || comp->attr.proc_pointer || comp->ts.f90_type == BT_VOID
1443 if (comp->attr.proc_pointer && comp->ts.interface)
1515 if (!comp->attr.pointer || comp->attr.proc_pointer
3065 && !sym->attr.proc_pointer
3215 if ((sym->attr.array_outer_dependency || sym->attr.proc_pointer)
3477 && !expr->symtree->n.sym->result->attr.proc_pointer)
5434 || ref->u.c.component->attr.proc_pointer
[all...]
H A Dtrans-expr.cc2775 if (c->ts.type == BT_CHARACTER && !c->attr.proc_pointer
2796 || c->attr.proc_pointer)
3063 if (!sym->attr.dummy && !sym->attr.proc_pointer)
4228 if (sym->attr.proc_pointer)
4335 && !sym->attr.proc_pointer);
6410 && e->symtree->n.sym->result->attr.proc_pointer)
6414 if (fsym && fsym->attr.proc_pointer)
6689 || (fsym->attr.proc_pointer
6692 || (fsym->attr.proc_pointer
7184 if (fsym != NULL && fsym->attr.optional && !attr.proc_pointer
[all...]
H A Dtrans-common.cc1019 dummy_symbol->proc_pointer |= attr.proc_pointer;
H A Dinterface.cc1613 if (r1 != s1 && r1->attr.proc_pointer != r2->attr.proc_pointer)
3002 && ref->u.c.component->attr.proc_pointer
3058 return (c->ts.interface && (c->ts.interface->attr.proc_pointer == 1));
3061 && (expr->symtree->n.sym->result->attr.proc_pointer == 1));
3371 if (f->sym->attr.proc_pointer
3373 && (a->expr->symtree->n.sym->attr.proc_pointer
3390 || a->expr->symtree->n.sym->attr.proc_pointer
H A Dcheck.cc1448 if (!attr1.pointer && !attr1.proc_pointer)
4365 if (!attr.pointer && !attr.proc_pointer && !attr.allocatable)
5474 if (!attr.proc_pointer)
5510 if (attr.function && !attr.proc_pointer && x->expr_type == EXPR_VARIABLE
H A Dmatch.cc1393 if (lvalue->symtree->n.sym->attr.proc_pointer
4396 || sym->attr.proc_pointer);
4400 || sym->ns->proc_name->attr.proc_pointer);
4808 || sym->attr.proc_pointer);

Completed in 770 milliseconds

12