| /netbsd-src/external/gpl3/gcc/dist/gcc/fortran/ |
| H A D | expr.cc | 3909 int proc_pointer; in gfc_check_pointer_assign() local
3916 if (lvalue->ts.type == BT_UNKNOWN && !lhs_attr.proc_pointer) in gfc_check_pointer_assign()
3924 && !lhs_attr.proc_pointer) in gfc_check_pointer_assign()
3932 proc_pointer = lvalue->symtree->n.sym->attr.proc_pointer; in gfc_check_pointer_assign()
3939 proc_pointer = ref->u.c.component->attr.proc_pointer; in gfc_check_pointer_assign()
4051 if (proc_pointer) in gfc_check_pointer_assign()
4060 || (rvalue->expr_type == EXPR_FUNCTION && attr.proc_pointer) in gfc_check_pointer_assign()
4061 || (rvalue->expr_type == EXPR_VARIABLE && attr.proc_pointer) in gfc_check_pointer_assign()
4070 if (rvalue->expr_type == EXPR_VARIABLE && !attr.proc_pointer) in gfc_check_pointer_assign()
4199 if (s2 && s2->attr.proc_pointer && s2->ts.interface) in gfc_check_pointer_assign()
[all …]
|
| H A D | trans-types.cc | 2272 if (sym->attr.proc_pointer && sym->attr.in_common) in gfc_sym_type()
2275 sym->attr.proc_pointer = 0; in gfc_sym_type()
2277 sym->attr.proc_pointer = 1; in gfc_sym_type()
2316 && !sym->attr.proc_pointer && !sym->attr.cray_pointee; in gfc_sym_type()
2692 if (!c->attr.proc_pointer in gfc_get_derived_type()
2735 if ((!c->attr.pointer && !c->attr.proc_pointer in gfc_get_derived_type()
2777 if (c->attr.proc_pointer in gfc_get_derived_type()
2783 else if (c->attr.proc_pointer && derived->backend_decl) in gfc_get_derived_type()
2810 if ((c->attr.dimension || c->attr.codimension) && !c->attr.proc_pointer ) in gfc_get_derived_type()
2834 && !c->attr.proc_pointer in gfc_get_derived_type()
[all …]
|
| H A D | primary.cc | 1654 if (sym->attr.in_common && !sym->attr.proc_pointer) in match_actual_arg()
2150 && !sym->attr.proc_pointer && !gfc_is_proc_ptr_comp (primary) in gfc_match_varspec()
2491 if (component->attr.proc_pointer && ppc_arg) in gfc_match_varspec()
2513 if (component->as != NULL && !component->attr.proc_pointer) in gfc_match_varspec()
2524 && CLASS_DATA (component)->as && !component->attr.proc_pointer) in gfc_match_varspec()
2670 if (pointer || attr.proc_pointer) in gfc_variable_attr()
2758 if (pointer || attr.proc_pointer) in gfc_variable_attr()
2880 if (pointer || attr.proc_pointer) in caf_variable_attr()
2939 if (pointer || attr.proc_pointer) in caf_variable_attr()
3465 && (*sym)->result->attr.proc_pointer in replace_hidden_procptr_result()
[all …]
|
| H A D | symbol.cc | 385 else if (!proc->result->attr.proc_pointer) in gfc_check_function_type()
427 *proc_pointer = "PROCEDURE POINTER", *abstract = "ABSTRACT", in gfc_check_conflict() local
564 if (attr->proc_pointer && !gfc_notify_std (GFC_STD_F2003, in gfc_check_conflict()
703 conf (proc_pointer, abstract) in gfc_check_conflict()
704 conf (proc_pointer, omp_declare_target) in gfc_check_conflict()
705 conf (proc_pointer, omp_declare_target_link) in gfc_check_conflict()
812 if (!attr->proc_pointer) in gfc_check_conflict()
818 if (!attr->proc_pointer || (gfc_option.allow_std & GFC_STD_F2008)) in gfc_check_conflict()
1138 attr->proc_pointer = 1; in gfc_add_external()
1228 attr->proc_pointer = 1; in gfc_add_pointer()
[all …]
|
| H A D | class.cc | 838 c->attr.proc_pointer = 1; in add_proc_comp()
845 else if (c->attr.proc_pointer && c->tb) in add_proc_comp()
932 if (comp->attr.proc_pointer) in comp_is_finalizable()
2483 c->attr.proc_pointer = 1; in gfc_find_derived_vtab()
2550 c->attr.proc_pointer = 1; in gfc_find_derived_vtab()
2560 c->attr.proc_pointer = 1; in gfc_find_derived_vtab()
2679 && !c->attr.pointer && !c->attr.proc_pointer && !c->attr.allocatable in gfc_is_finalizable()
2817 c->attr.proc_pointer = 1; in find_intrinsic_vtab()
2889 c->attr.proc_pointer = 1; in find_intrinsic_vtab()
|
| H A D | resolve.cc | 599 else if (!sym->result->attr.proc_pointer) in resolve_contained_fntype()
1010 if (csym->attr.flavor == FL_UNKNOWN && !csym->attr.proc_pointer) in resolve_common_vars()
1348 if (!comp->attr.proc_pointer && in resolve_structure_cons()
1431 || comp->attr.proc_pointer || comp->ts.f90_type == BT_VOID in resolve_structure_cons()
1443 if (comp->attr.proc_pointer && comp->ts.interface) in resolve_structure_cons()
1515 if (!comp->attr.pointer || comp->attr.proc_pointer in resolve_structure_cons()
3065 && !sym->attr.proc_pointer in is_external_proc()
3215 if ((sym->attr.array_outer_dependency || sym->attr.proc_pointer) in update_current_proc_array_outer_dependency()
3477 && !expr->symtree->n.sym->result->attr.proc_pointer) in resolve_function()
5434 || ref->u.c.component->attr.proc_pointer in gfc_resolve_ref()
[all …]
|
| H A D | trans-expr.cc | 2775 if (c->ts.type == BT_CHARACTER && !c->attr.proc_pointer in gfc_conv_component_ref()
2796 || c->attr.proc_pointer) in gfc_conv_component_ref()
3065 if (!sym->attr.dummy && !sym->attr.proc_pointer) in gfc_conv_variable()
4230 if (sym->attr.proc_pointer) in conv_function_val()
4337 && !sym->attr.proc_pointer); in gfc_get_interface_mapping_array()
6412 && e->symtree->n.sym->result->attr.proc_pointer) in gfc_conv_procedure_call()
6416 if (fsym && fsym->attr.proc_pointer) in gfc_conv_procedure_call()
6691 || (fsym->attr.proc_pointer in gfc_conv_procedure_call()
6694 || (fsym->attr.proc_pointer in gfc_conv_procedure_call()
7186 if (fsym != NULL && fsym->attr.optional && !attr.proc_pointer in gfc_conv_procedure_call()
[all …]
|
| H A D | trans-common.cc | 1019 dummy_symbol->proc_pointer |= attr.proc_pointer; in accumulate_equivalence_attributes()
|
| H A D | interface.cc | 1613 if (r1 != s1 && r1->attr.proc_pointer != r2->attr.proc_pointer) in gfc_check_result_characteristics()
3020 && ref->u.c.component->attr.proc_pointer in get_expr_storage_size()
3076 return (c->ts.interface && (c->ts.interface->attr.proc_pointer == 1)); in is_procptr_result()
3079 && (expr->symtree->n.sym->result->attr.proc_pointer == 1)); in is_procptr_result()
3389 if (f->sym->attr.proc_pointer in gfc_compare_actual_formal()
3391 && (a->expr->symtree->n.sym->attr.proc_pointer in gfc_compare_actual_formal()
3408 || a->expr->symtree->n.sym->attr.proc_pointer in gfc_compare_actual_formal()
|
| H A D | trans-array.cc | 7667 || (gfc_expr_attr (expr).proc_pointer in gfc_conv_expr_descriptor()
8264 return sym->attr.pointer || sym->attr.proc_pointer; in is_pointer()
9167 && !c->attr.pointer && !c->attr.proc_pointer) in structure_alloc_comps()
9315 && !c->attr.pointer && !c->attr.proc_pointer in structure_alloc_comps()
9363 else if (attr->dimension && !attr->proc_pointer) in structure_alloc_comps()
9366 if (attr->dimension && !attr->codimension && !attr->proc_pointer) in structure_alloc_comps()
9507 if (c->attr.proc_pointer in structure_alloc_comps()
9677 if (c->attr.pointer || c->attr.proc_pointer) in structure_alloc_comps()
9770 if (cmp_has_alloc_comps && !c->attr.proc_pointer && !same_type) in structure_alloc_comps()
9812 && !c->attr.proc_pointer && !same_type in structure_alloc_comps()
[all …]
|
| H A D | trans-decl.cc | 1951 sym->attr.proc_pointer); in gfc_get_symbol_decl()
1958 && !sym->attr.proc_pointer in gfc_get_symbol_decl()
2128 if (sym->attr.proc_pointer) in gfc_get_extern_function_decl()
2741 if (f->sym->attr.proc_pointer) in create_function_arglist()
2774 && (!f->sym->attr.proc_pointer in create_function_arglist()
5206 && !(sym->attr.flavor == FL_PROCEDURE && sym->attr.proc_pointer)) in gfc_create_module_variable()
5266 gcc_assert (length || sym->attr.proc_pointer); in gfc_create_module_variable()
|
| H A D | decl.cc | 2013 && !sym->attr.proc_pointer in add_init_expr_to_sym()
6955 sym->result->attr.proc_pointer = sym->attr.proc_pointer; in add_hidden_procptr_result()
6960 sym->attr.proc_pointer = 0; in add_hidden_procptr_result()
6966 sym->result->attr.proc_pointer = 1; in add_hidden_procptr_result()
6978 sym->result->attr.proc_pointer = 1; in add_hidden_procptr_result()
7235 current_attr.proc_pointer = 1; in match_ppc_decl()
|
| H A D | match.cc | 1393 if (lvalue->symtree->n.sym->attr.proc_pointer in gfc_match_pointer_assignment()
4396 || sym->attr.proc_pointer); in gfc_match_allocate()
4400 || sym->ns->proc_name->attr.proc_pointer); in gfc_match_allocate()
4808 || sym->attr.proc_pointer); in gfc_match_deallocate()
|
| /netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| H A D | expr.c | 3877 int proc_pointer; in gfc_check_pointer_assign() local
3884 if (lvalue->ts.type == BT_UNKNOWN && !lhs_attr.proc_pointer) in gfc_check_pointer_assign()
3892 && !lhs_attr.proc_pointer) in gfc_check_pointer_assign()
3900 proc_pointer = lvalue->symtree->n.sym->attr.proc_pointer; in gfc_check_pointer_assign()
3907 proc_pointer = ref->u.c.component->attr.proc_pointer; in gfc_check_pointer_assign()
4019 if (proc_pointer) in gfc_check_pointer_assign()
4028 || (rvalue->expr_type == EXPR_FUNCTION && attr.proc_pointer) in gfc_check_pointer_assign()
4029 || (rvalue->expr_type == EXPR_VARIABLE && attr.proc_pointer) in gfc_check_pointer_assign()
4038 if (rvalue->expr_type == EXPR_VARIABLE && !attr.proc_pointer) in gfc_check_pointer_assign()
4167 if (s2 && s2->attr.proc_pointer && s2->ts.interface) in gfc_check_pointer_assign()
[all …]
|
| H A D | trans-types.c | 2212 if (sym->attr.proc_pointer && sym->attr.in_common) in gfc_sym_type()
2215 sym->attr.proc_pointer = 0; in gfc_sym_type()
2217 sym->attr.proc_pointer = 1; in gfc_sym_type()
2255 && !sym->attr.proc_pointer && !sym->attr.cray_pointee; in gfc_sym_type()
2622 if (!c->attr.proc_pointer in gfc_get_derived_type()
2665 if ((!c->attr.pointer && !c->attr.proc_pointer in gfc_get_derived_type()
2707 if (c->attr.proc_pointer in gfc_get_derived_type()
2713 else if (c->attr.proc_pointer && derived->backend_decl) in gfc_get_derived_type()
2740 if ((c->attr.dimension || c->attr.codimension) && !c->attr.proc_pointer ) in gfc_get_derived_type()
2764 && !c->attr.proc_pointer in gfc_get_derived_type()
[all …]
|
| H A D | primary.c | 1675 if (sym->attr.in_common && !sym->attr.proc_pointer) in match_actual_arg()
2171 && !sym->attr.proc_pointer && !gfc_is_proc_ptr_comp (primary) in gfc_match_varspec()
2503 if (component->attr.proc_pointer && ppc_arg) in gfc_match_varspec()
2525 if (component->as != NULL && !component->attr.proc_pointer) in gfc_match_varspec()
2536 && CLASS_DATA (component)->as && !component->attr.proc_pointer) in gfc_match_varspec()
2681 if (pointer || attr.proc_pointer) in gfc_variable_attr()
2751 if (pointer || attr.proc_pointer) in gfc_variable_attr()
2872 if (pointer || attr.proc_pointer) in caf_variable_attr()
2931 if (pointer || attr.proc_pointer) in caf_variable_attr()
3457 && (*sym)->result->attr.proc_pointer in replace_hidden_procptr_result()
[all …]
|
| H A D | symbol.c | 385 else if (!proc->result->attr.proc_pointer) in gfc_check_function_type()
427 *proc_pointer = "PROCEDURE POINTER", *abstract = "ABSTRACT", in gfc_check_conflict() local
564 if (attr->proc_pointer && !gfc_notify_std (GFC_STD_F2003, in gfc_check_conflict()
703 conf (proc_pointer, abstract) in gfc_check_conflict()
704 conf (proc_pointer, omp_declare_target) in gfc_check_conflict()
705 conf (proc_pointer, omp_declare_target_link) in gfc_check_conflict()
811 if (!attr->proc_pointer) in gfc_check_conflict()
817 if (!attr->proc_pointer || (gfc_option.allow_std & GFC_STD_F2008)) in gfc_check_conflict()
1131 attr->proc_pointer = 1; in gfc_add_external()
1221 attr->proc_pointer = 1; in gfc_add_pointer()
[all …]
|
| H A D | class.c | 823 c->attr.proc_pointer = 1; in add_proc_comp()
830 else if (c->attr.proc_pointer && c->tb) in add_proc_comp()
917 if (comp->attr.proc_pointer) in comp_is_finalizable()
2473 c->attr.proc_pointer = 1; in gfc_find_derived_vtab()
2539 c->attr.proc_pointer = 1; in gfc_find_derived_vtab()
2549 c->attr.proc_pointer = 1; in gfc_find_derived_vtab()
2667 && !c->attr.pointer && !c->attr.proc_pointer && !c->attr.allocatable in gfc_is_finalizable()
2804 c->attr.proc_pointer = 1; in find_intrinsic_vtab()
2875 c->attr.proc_pointer = 1; in find_intrinsic_vtab()
|
| H A D | trans-expr.c | 2681 if (c->ts.type == BT_CHARACTER && !c->attr.proc_pointer in gfc_conv_component_ref()
2702 || c->attr.proc_pointer) in gfc_conv_component_ref()
2963 if (!sym->attr.dummy && !sym->attr.proc_pointer) in gfc_conv_variable()
4141 if (sym->attr.proc_pointer) in conv_function_val()
4248 && !sym->attr.proc_pointer); in gfc_get_interface_mapping_array()
5980 && e->symtree->n.sym->result->attr.proc_pointer) in gfc_conv_procedure_call()
5984 if (fsym && fsym->attr.proc_pointer) in gfc_conv_procedure_call()
6258 || (fsym->attr.proc_pointer in gfc_conv_procedure_call()
6261 || (fsym->attr.proc_pointer in gfc_conv_procedure_call()
6663 if (fsym != NULL && fsym->attr.optional && !attr.proc_pointer in gfc_conv_procedure_call()
[all …]
|
| H A D | resolve.c | 599 else if (!sym->result->attr.proc_pointer) in resolve_contained_fntype()
986 if (csym->attr.flavor == FL_UNKNOWN && !csym->attr.proc_pointer) in resolve_common_vars()
1320 if (!comp->attr.proc_pointer && in resolve_structure_cons()
1392 || comp->attr.proc_pointer || comp->ts.f90_type == BT_VOID in resolve_structure_cons()
1404 if (comp->attr.proc_pointer && comp->ts.interface) in resolve_structure_cons()
1476 if (!comp->attr.pointer || comp->attr.proc_pointer in resolve_structure_cons()
2993 && !sym->attr.proc_pointer in is_external_proc()
3143 if ((sym->attr.array_outer_dependency || sym->attr.proc_pointer) in update_current_proc_array_outer_dependency()
3405 && !expr->symtree->n.sym->result->attr.proc_pointer) in resolve_function()
5351 || ref->u.c.component->attr.proc_pointer in gfc_resolve_ref()
[all …]
|
| H A D | interface.c | 1601 if (r1 != s1 && r1->attr.proc_pointer != r2->attr.proc_pointer) in gfc_check_result_characteristics()
2953 && ref->u.c.component->attr.proc_pointer in get_expr_storage_size()
3009 return (c->ts.interface && (c->ts.interface->attr.proc_pointer == 1)); in is_procptr_result()
3012 && (expr->symtree->n.sym->result->attr.proc_pointer == 1)); in is_procptr_result()
3298 if (f->sym->attr.proc_pointer in gfc_compare_actual_formal()
3300 && (a->expr->symtree->n.sym->attr.proc_pointer in gfc_compare_actual_formal()
3316 || a->expr->symtree->n.sym->attr.proc_pointer in gfc_compare_actual_formal()
|
| H A D | trans-common.c | 990 dummy_symbol->proc_pointer |= attr.proc_pointer; in accumulate_equivalence_attributes()
|
| H A D | trans-array.c | 7542 || (gfc_expr_attr (expr).proc_pointer in gfc_conv_expr_descriptor()
8096 return sym->attr.pointer || sym->attr.proc_pointer; in is_pointer()
8995 && !c->attr.pointer && !c->attr.proc_pointer) in structure_alloc_comps()
9123 && !c->attr.pointer && !c->attr.proc_pointer in structure_alloc_comps()
9171 else if (attr->dimension && !attr->proc_pointer) in structure_alloc_comps()
9174 if (attr->dimension && !attr->codimension && !attr->proc_pointer) in structure_alloc_comps()
9315 if (c->attr.proc_pointer in structure_alloc_comps()
9485 if (c->attr.pointer || c->attr.proc_pointer) in structure_alloc_comps()
9578 if (cmp_has_alloc_comps && !c->attr.proc_pointer && !same_type) in structure_alloc_comps()
9620 && !c->attr.proc_pointer && !same_type in structure_alloc_comps()
[all …]
|
| H A D | trans-decl.c | 1912 sym->attr.proc_pointer); in gfc_get_symbol_decl()
1919 && !sym->attr.proc_pointer in gfc_get_symbol_decl()
2088 if (sym->attr.proc_pointer) in gfc_get_extern_function_decl()
2717 if (f->sym->attr.proc_pointer) in create_function_arglist()
2740 && (!f->sym->attr.proc_pointer in create_function_arglist()
5278 && !(sym->attr.flavor == FL_PROCEDURE && sym->attr.proc_pointer)) in gfc_create_module_variable()
5338 gcc_assert (length || sym->attr.proc_pointer); in gfc_create_module_variable()
|
| H A D | decl.c | 1931 && !sym->attr.proc_pointer in add_init_expr_to_sym()
6866 sym->result->attr.proc_pointer = sym->attr.proc_pointer; in add_hidden_procptr_result()
6871 sym->attr.proc_pointer = 0; in add_hidden_procptr_result()
6877 sym->result->attr.proc_pointer = 1; in add_hidden_procptr_result()
6889 sym->result->attr.proc_pointer = 1; in add_hidden_procptr_result()
7146 current_attr.proc_pointer = 1; in match_ppc_decl()
|