| /src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| expr.cc | 3909 int proc_pointer; local
3916 if (lvalue->ts.type == BT_UNKNOWN && !lhs_attr.proc_pointer)
3924 && !lhs_attr.proc_pointer)
3932 proc_pointer = lvalue->symtree->n.sym->attr.proc_pointer;
3939 proc_pointer = ref->u.c.component->attr.proc_pointer;
4051 if (proc_pointer)
4060 || (rvalue->expr_type == EXPR_FUNCTION && attr.proc_pointer)
4061 || (rvalue->expr_type == EXPR_VARIABLE && attr.proc_pointer)
4568 bool pointer, proc_pointer; local
[all...] |
| primary.cc | 1654 if (sym->attr.in_common && !sym->attr.proc_pointer)
2150 && !sym->attr.proc_pointer && !gfc_is_proc_ptr_comp (primary)
2491 if (component->attr.proc_pointer && ppc_arg)
2513 if (component->as != NULL && !component->attr.proc_pointer)
2524 && CLASS_DATA (component)->as && !component->attr.proc_pointer)
2670 if (pointer || attr.proc_pointer)
2758 if (pointer || attr.proc_pointer)
2880 if (pointer || attr.proc_pointer)
2939 if (pointer || attr.proc_pointer)
3463 && (*sym)->result->attr.proc_pointer
[all...] |
| 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...] |
| 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 = 1
[all...] |
| 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;
|
| 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...] |
| trans-expr.cc | 2775 if (c->ts.type == BT_CHARACTER && !c->attr.proc_pointer
2796 || c->attr.proc_pointer)
3065 if (!sym->attr.dummy && !sym->attr.proc_pointer)
4243 if (sym->attr.proc_pointer)
4353 && !sym->attr.proc_pointer);
6437 && e->symtree->n.sym->result->attr.proc_pointer)
6441 if (fsym && fsym->attr.proc_pointer)
6716 || (fsym->attr.proc_pointer
6719 || (fsym->attr.proc_pointer
7211 if (fsym != NULL && fsym->attr.optional && !attr.proc_pointer
[all...] |
| interface.cc | 1613 if (r1 != s1 && r1->attr.proc_pointer != r2->attr.proc_pointer)
3020 && ref->u.c.component->attr.proc_pointer
3076 return (c->ts.interface && (c->ts.interface->attr.proc_pointer == 1));
3079 && (expr->symtree->n.sym->result->attr.proc_pointer == 1));
3393 if (f->sym->attr.proc_pointer
3395 && (a->expr->symtree->n.sym->attr.proc_pointer
3412 || a->expr->symtree->n.sym->attr.proc_pointer
|
| trans-common.cc | 1019 dummy_symbol->proc_pointer |= attr.proc_pointer;
|
| 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
|
| 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);
|
| trans-array.cc | 7695 || (gfc_expr_attr (expr).proc_pointer
8292 return sym->attr.pointer || sym->attr.proc_pointer;
9195 && !c->attr.pointer && !c->attr.proc_pointer)
9343 && !c->attr.pointer && !c->attr.proc_pointer
9391 else if (attr->dimension && !attr->proc_pointer)
9394 if (attr->dimension && !attr->codimension && !attr->proc_pointer)
9535 if (c->attr.proc_pointer
9705 if (c->attr.pointer || c->attr.proc_pointer)
9798 if (cmp_has_alloc_comps && !c->attr.proc_pointer && !same_type)
9840 && !c->attr.proc_pointer && !same_typ
[all...] |
| /src/external/gpl3/gcc/dist/gcc/fortran/ |
| expr.cc | 3925 int proc_pointer; local
3932 if (lvalue->ts.type == BT_UNKNOWN && !lhs_attr.proc_pointer)
3940 && !lhs_attr.proc_pointer)
3948 proc_pointer = lvalue->symtree->n.sym->attr.proc_pointer;
3955 proc_pointer = ref->u.c.component->attr.proc_pointer;
4067 if (proc_pointer)
4076 || (rvalue->expr_type == EXPR_FUNCTION && attr.proc_pointer)
4077 || (rvalue->expr_type == EXPR_VARIABLE && attr.proc_pointer)
4584 bool pointer, proc_pointer; local
[all...] |
| trans-types.cc | 2290 if (sym->attr.proc_pointer && sym->attr.in_common)
2292 /* Unset proc_pointer as gfc_get_function_type calls gfc_sym_type. */
2293 sym->attr.proc_pointer = 0;
2295 sym->attr.proc_pointer = 1;
2712 if (!c->attr.proc_pointer
2755 if ((!c->attr.pointer && !c->attr.proc_pointer
2797 if (c->attr.proc_pointer
2803 else if (c->attr.proc_pointer && derived->backend_decl)
2830 if ((c->attr.dimension || c->attr.codimension) && !c->attr.proc_pointer )
2854 && !c->attr.proc_pointer
[all...] |
| symbol.cc | 396 else if (!proc->result->attr.proc_pointer)
456 *proc_pointer = "PROCEDURE POINTER", *abstract = "ABSTRACT", local
582 if (attr->proc_pointer && !gfc_notify_std (GFC_STD_F2003,
721 conf (proc_pointer, abstract)
722 conf (proc_pointer, omp_declare_target)
723 conf (proc_pointer, omp_declare_target_link)
830 if (!attr->proc_pointer)
836 if (!attr->proc_pointer || (gfc_option.allow_std & GFC_STD_F2008))
1140 attr->proc_pointer = 1;
1230 attr->proc_pointer = 1
[all...] |
| primary.cc | 1646 if (sym->attr.in_common && !sym->attr.proc_pointer)
2179 && !sym->attr.proc_pointer && !gfc_is_proc_ptr_comp (primary)
2613 if (component->attr.proc_pointer && ppc_arg)
2635 if (component->as != NULL && !component->attr.proc_pointer)
2646 && CLASS_DATA (component)->as && !component->attr.proc_pointer)
2795 if (pointer || attr.proc_pointer)
2905 if (pointer || attr.proc_pointer)
3027 if (pointer || attr.proc_pointer)
3086 if (pointer || attr.proc_pointer)
3611 && (*sym)->result->attr.proc_pointer
[all...] |
| class.cc | 903 c->attr.proc_pointer = 1;
910 else if (c->attr.proc_pointer && c->tb)
998 if (comp->attr.proc_pointer)
2612 c->attr.proc_pointer = 1;
2679 c->attr.proc_pointer = 1;
2689 c->attr.proc_pointer = 1;
2808 && !c->attr.pointer && !c->attr.proc_pointer && !c->attr.allocatable
2954 c->attr.proc_pointer = 1;
3026 c->attr.proc_pointer = 1;
|
| resolve.cc | 618 else if (!sym->result->attr.proc_pointer)
1059 if (csym->attr.flavor == FL_UNKNOWN && !csym->attr.proc_pointer)
1400 if (!comp->attr.proc_pointer &&
1486 || comp->attr.proc_pointer || comp->ts.f90_type == BT_VOID
1498 if (comp->attr.proc_pointer && comp->ts.interface)
1570 if (!comp->attr.pointer || comp->attr.proc_pointer
3143 && !sym->attr.proc_pointer
3300 if ((sym->attr.array_outer_dependency || sym->attr.proc_pointer)
3562 && !expr->symtree->n.sym->result->attr.proc_pointer)
5578 || ref->u.c.component->attr.proc_pointer
[all...] |
| trans-expr.cc | 2871 if (c->ts.type == BT_CHARACTER && !c->attr.proc_pointer
2892 || c->attr.proc_pointer)
3161 if (!sym->attr.dummy && !sym->attr.proc_pointer)
4359 if (sym->attr.proc_pointer)
4475 && !sym->attr.proc_pointer);
6806 && e->symtree->n.sym->result->attr.proc_pointer)
6810 if (fsym && fsym->attr.proc_pointer)
7123 || (fsym->attr.proc_pointer
7126 || (fsym->attr.proc_pointer
7743 if (fsym != NULL && fsym->attr.optional && !attr.proc_pointer
[all...] |
| trans-common.cc | 1019 dummy_symbol->proc_pointer |= attr.proc_pointer;
|
| interface.cc | 1665 if (r1 != s1 && r1->attr.proc_pointer != r2->attr.proc_pointer)
3094 && ref->u.c.component->attr.proc_pointer
3150 return (c->ts.interface && (c->ts.interface->attr.proc_pointer == 1));
3153 && (expr->symtree->n.sym->result->attr.proc_pointer == 1));
3516 if (f->sym->attr.proc_pointer
3518 && (a->expr->symtree->n.sym->attr.proc_pointer
3537 || a->expr->symtree->n.sym->attr.proc_pointer
|
| gfortran.h | 867 implied_index:1, subref_array_pointer:1, proc_pointer:1, asynchronous:1, member in struct:__anon78
4050 ? CLASS_DATA (sym)->attr.proc_pointer : sym->attr.proc_pointer)
|
| match.cc | 1401 if (lvalue->symtree->n.sym->attr.proc_pointer
4404 || sym->attr.proc_pointer);
4408 || sym->ns->proc_name->attr.proc_pointer);
4816 || sym->attr.proc_pointer);
5067 && !sym->attr.proc_pointer
|
| trans-array.cc | 8056 || (gfc_expr_attr (expr).proc_pointer
8672 return sym->attr.pointer || sym->attr.proc_pointer;
9672 && !c->attr.pointer && !c->attr.proc_pointer)
9795 if (attr->class_pointer || c->attr.proc_pointer)
9801 if (attr->pointer || attr->proc_pointer)
9821 && !c->attr.pointer && !c->attr.proc_pointer
9870 else if (attr->dimension && !attr->proc_pointer)
10009 if (c->attr.proc_pointer
10180 if (c->attr.pointer || c->attr.proc_pointer)
10273 if (cmp_has_alloc_comps && !c->attr.proc_pointer && !same_type
[all...] |
| check.cc | 1475 if (!attr1.pointer && !attr1.proc_pointer)
4395 if (!attr.pointer && !attr.proc_pointer && !attr.allocatable)
5509 if (!attr.proc_pointer)
5545 if (attr.function && !attr.proc_pointer && x->expr_type == EXPR_VARIABLE
|
