/netbsd-current/external/gpl3/gcc.old/dist/gcc/fortran/ |
H A D | expr.c | 3877 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 D | primary.c | 1675 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 D | trans-types.c | 2221 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 D | symbol.c | 385 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 D | class.c | 823 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 D | resolve.c | 599 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 D | trans-expr.c | 2681 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 D | trans-common.c | 990 dummy_symbol->proc_pointer |= attr.proc_pointer;
|
H A D | interface.c | 1601 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 D | trans-decl.c | 1912 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 D | decl.c | 1931 && !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 D | match.c | 1418 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 D | check.c | 1446 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 D | trans-array.c | 7542 || (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 D | expr.cc | 3900 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 D | primary.cc | 1654 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 D | trans-types.cc | 2281 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 D | symbol.cc | 385 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 D | class.cc | 838 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 D | resolve.cc | 599 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 D | trans-expr.cc | 2775 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 D | trans-common.cc | 1019 dummy_symbol->proc_pointer |= attr.proc_pointer;
|
H A D | interface.cc | 1613 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 D | check.cc | 1448 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 D | match.cc | 1393 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);
|