/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/ |
H A D | dependency.c | 171 case REF_COMPONENT: in are_identical_variables() 914 case REF_COMPONENT: in gfc_ref_needs_temporary_p() 938 if (ref->type == REF_COMPONENT && ref->u.c.component->attr.pointer) in gfc_is_data_pointer() 1239 if (ref1->type != REF_COMPONENT) in check_data_pointer_types() 1842 case REF_COMPONENT: in contains_forall_index_p() 2121 if (lref && lref->type == REF_COMPONENT && lref->u.c.component in gfc_dep_resolver() 2125 if (rref && rref->type == REF_COMPONENT && rref->u.c.component in gfc_dep_resolver() 2135 case REF_COMPONENT: in gfc_dep_resolver()
|
H A D | class.c | 100 if (new_ref->next->type == REF_COMPONENT) in insert_component_ref() 104 && new_ref->next->next->type == REF_COMPONENT) in insert_component_ref() 132 if (ref->type != REF_COMPONENT) in class_data_ref_missing() 200 if ((*ref)->type == REF_COMPONENT) in gfc_fix_class_refs() 218 if ((*tail)->type == REF_COMPONENT) in gfc_add_component_ref() 305 if (ref && ref->type == REF_COMPONENT in class_array_ref_detected() 315 && ref->type == REF_COMPONENT in class_array_ref_detected() 353 if (ref->type == REF_COMPONENT in gfc_is_class_array_ref() 383 || (e->ref->type == REF_COMPONENT in gfc_is_class_scalar_expr() 391 if (ref->type == REF_COMPONENT in gfc_is_class_scalar_expr() [all …]
|
H A D | expr.c | 611 case REF_COMPONENT: in gfc_free_ref_list() 766 case REF_COMPONENT: in gfc_copy_ref() 1148 if (!seen_array && ref->type == REF_COMPONENT in is_subref_array() 2007 case REF_COMPONENT: in simplify_const_ref() 3358 case REF_COMPONENT: in check_references() 3652 if (!has_pointer && ref->type == REF_COMPONENT in gfc_check_assign() 3906 if (ref->type == REF_COMPONENT) in gfc_check_pointer_assign() 4543 lvalue.ref->type = REF_COMPONENT; in gfc_check_assign_symbol() 5285 case REF_COMPONENT: in gfc_get_full_arrayspec_from_expr() 5420 case REF_COMPONENT: in gfc_traverse_expr() [all …]
|
H A D | resolve.c | 4934 case REF_COMPONENT: in find_array_spec() 5179 if (char_ref->type == REF_COMPONENT) in gfc_resolve_substring_charlen() 5286 case REF_COMPONENT: in gfc_resolve_ref() 5346 case REF_COMPONENT: in gfc_resolve_ref() 5406 if (((ref->type == REF_COMPONENT && n_components > 1) in gfc_resolve_ref() 5416 if (ref->type == REF_COMPONENT) in gfc_resolve_ref() 5486 if (ref->type == REF_COMPONENT && ref->u.c.component->attr.proc_pointer in gfc_expression_rank() 5690 case REF_COMPONENT: in resolve_variable() 5766 else if (ref->type == REF_COMPONENT in resolve_variable() 5915 if (ref->type == REF_COMPONENT) in resolve_variable() [all …]
|
H A D | trans-array.c | 919 && expr->ref->type == REF_COMPONENT in gfc_get_array_span() 2294 case REF_COMPONENT: in get_array_ctor_var_strlen() 3528 if (ref->type == REF_COMPONENT in build_class_array_ref() 3530 && ref->next && ref->next->type == REF_COMPONENT in build_class_array_ref() 3811 if (ref->type == REF_COMPONENT) in gfc_conv_array_ref() 3822 if (ref->type == REF_COMPONENT) in gfc_conv_array_ref() 4896 if (lref->type != REF_COMPONENT) in gfc_could_be_alias() 4917 if (rref->type != REF_COMPONENT) in gfc_could_be_alias() 4949 if (rref->type != REF_COMPONENT) in gfc_could_be_alias() 5626 if (ref->type == REF_COMPONENT in gfc_array_init_size() [all …]
|
H A D | data.c | 445 case REF_COMPONENT: in gfc_assign_data_value()
|
H A D | trans-expr.c | 114 if (ref->type == REF_COMPONENT in gfc_get_ultimate_alloc_ptr_comps_caf_token() 404 if (ref->type == REF_COMPONENT in gfc_find_and_cut_at_last_class_ref() 836 if (ref->type == REF_COMPONENT in class_scalar_coarray_to_class() 1072 if (ref->type == REF_COMPONENT in gfc_conv_class_to_class() 2060 case REF_COMPONENT: in gfc_get_expr_charlen() 2112 if (ref->type == REF_COMPONENT) in gfc_get_tree_for_caf_expr() 2136 if (ref->type == REF_COMPONENT in gfc_get_tree_for_caf_expr() 2155 if (ref->type == REF_COMPONENT) in gfc_get_tree_for_caf_expr() 2727 parent.type = REF_COMPONENT; in conv_parent_component_references() 3010 case REF_COMPONENT: in gfc_conv_variable() [all …]
|
H A D | interface.c | 2299 if (ref->type == REF_COMPONENT) in maybe_dummy_array_arg() 2511 if (ref->type == REF_COMPONENT) in compare_parameter() 2669 if (ref->type == REF_COMPONENT) in compare_parameter() 2952 else if (ref->type == REF_COMPONENT && ref->u.c.component->attr.function in get_expr_storage_size() 3655 case REF_COMPONENT: in compare_actual_expr()
|
H A D | trans.c | 1219 && expr->ref->type == REF_COMPONENT in gfc_add_finalizer_call() 1229 && ref->next->type == REF_COMPONENT in gfc_add_finalizer_call()
|
H A D | symbol.c | 2422 sref->type = REF_COMPONENT; in find_union_component() 2517 sref->type = REF_COMPONENT; in gfc_find_component() 2574 tmp->type = REF_COMPONENT; in gfc_find_component()
|
H A D | gfc-internals.texi | 547 EXPR_VARIABLE(struct) ==> REF_COMPONENT(component) ==> REF_ARRAY(2:5) ==| 572 EXPR_VARIABLE(variable) ==> REF_COMPONENT(array) ==> REF_ARRAY(FULL) ==|
|
/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/ |
H A D | dependency.cc | 172 case REF_COMPONENT: in are_identical_variables() 915 case REF_COMPONENT: in gfc_ref_needs_temporary_p() 939 if (ref->type == REF_COMPONENT && ref->u.c.component->attr.pointer) in gfc_is_data_pointer() 1240 if (ref1->type != REF_COMPONENT) in check_data_pointer_types() 1843 case REF_COMPONENT: in contains_forall_index_p() 2122 if (lref && lref->type == REF_COMPONENT && lref->u.c.component in gfc_dep_resolver() 2126 if (rref && rref->type == REF_COMPONENT && rref->u.c.component in gfc_dep_resolver() 2136 case REF_COMPONENT: in gfc_dep_resolver()
|
H A D | class.cc | 102 if (new_ref->next->type == REF_COMPONENT) in insert_component_ref() 106 && new_ref->next->next->type == REF_COMPONENT) in insert_component_ref() 134 if (ref->type != REF_COMPONENT) in class_data_ref_missing() 202 if ((*ref)->type == REF_COMPONENT) in gfc_fix_class_refs() 220 if ((*tail)->type == REF_COMPONENT) in gfc_add_component_ref() 307 if (ref && ref->type == REF_COMPONENT in class_array_ref_detected() 317 && ref->type == REF_COMPONENT in class_array_ref_detected() 355 if (ref->type == REF_COMPONENT in gfc_is_class_array_ref() 385 || (e->ref->type == REF_COMPONENT in gfc_is_class_scalar_expr() 393 if (ref->type == REF_COMPONENT in gfc_is_class_scalar_expr() [all …]
|
H A D | expr.cc | 619 case REF_COMPONENT: in gfc_free_ref_list() 774 case REF_COMPONENT: in gfc_copy_ref() 1158 if (!seen_array && ref->type == REF_COMPONENT in is_subref_array() 2032 case REF_COMPONENT: in simplify_const_ref() 3390 case REF_COMPONENT: in check_references() 3684 if (!has_pointer && ref->type == REF_COMPONENT in gfc_check_assign() 3938 if (ref->type == REF_COMPONENT) in gfc_check_pointer_assign() 4583 lvalue.ref->type = REF_COMPONENT; in gfc_check_assign_symbol() 5325 case REF_COMPONENT: in gfc_get_full_arrayspec_from_expr() 5460 case REF_COMPONENT: in gfc_traverse_expr() [all …]
|
H A D | resolve.cc | 5020 case REF_COMPONENT: in find_array_spec() 5265 if (char_ref->type == REF_COMPONENT) in gfc_resolve_substring_charlen() 5369 case REF_COMPONENT: in gfc_resolve_ref() 5429 case REF_COMPONENT: in gfc_resolve_ref() 5491 if (((ref->type == REF_COMPONENT && n_components > 1) in gfc_resolve_ref() 5501 if (ref->type == REF_COMPONENT) in gfc_resolve_ref() 5571 if (ref->type == REF_COMPONENT && ref->u.c.component->attr.proc_pointer in gfc_expression_rank() 5775 case REF_COMPONENT: in resolve_variable() 5850 else if (ref->type == REF_COMPONENT in resolve_variable() 5999 if (ref->type == REF_COMPONENT) in resolve_variable() [all …]
|
H A D | trans-expr.cc | 156 if (ref->type == REF_COMPONENT in gfc_get_ultimate_alloc_ptr_comps_caf_token() 460 if (ref->type == REF_COMPONENT in gfc_find_and_cut_at_last_class_ref() 462 && ref->next && ref->next->type == REF_COMPONENT in gfc_find_and_cut_at_last_class_ref() 481 if (ref->type == REF_COMPONENT in gfc_find_and_cut_at_last_class_ref() 930 if (ref->type == REF_COMPONENT in class_scalar_coarray_to_class() 1166 if (ref->type == REF_COMPONENT in gfc_conv_class_to_class() 2154 case REF_COMPONENT: in gfc_get_expr_charlen() 2206 if (ref->type == REF_COMPONENT) in gfc_get_tree_for_caf_expr() 2230 if (ref->type == REF_COMPONENT in gfc_get_tree_for_caf_expr() 2249 if (ref->type == REF_COMPONENT) in gfc_get_tree_for_caf_expr() [all …]
|
H A D | trans-array.cc | 978 && expr->ref->type == REF_COMPONENT in gfc_get_array_span() 2390 case REF_COMPONENT: in get_array_ctor_var_strlen() 3894 if (ref->type == REF_COMPONENT) in gfc_conv_array_ref() 3905 if (ref->type == REF_COMPONENT) in gfc_conv_array_ref() 5004 if (lref->type != REF_COMPONENT) in gfc_could_be_alias() 5025 if (rref->type != REF_COMPONENT) in gfc_could_be_alias() 5057 if (rref->type != REF_COMPONENT) in gfc_could_be_alias() 5736 if (ref->type == REF_COMPONENT in gfc_array_init_size() 7178 case REF_COMPONENT: in gfc_get_dataptr_offset() 8299 if (ref->type == REF_COMPONENT) in gfc_conv_array_parameter() [all …]
|
H A D | ChangeLog-2002 | 125 * trans-array.c: Fix typo COMPONENT_REF->REF_COMPONENT
|
H A D | data.cc | 465 case REF_COMPONENT: in gfc_assign_data_value()
|
H A D | interface.cc | 2323 if (ref->type == REF_COMPONENT) in maybe_dummy_array_arg() 2576 if (ref->type == REF_COMPONENT) in compare_parameter() 2736 if (ref->type == REF_COMPONENT) in compare_parameter() 3019 else if (ref->type == REF_COMPONENT && ref->u.c.component->attr.function in get_expr_storage_size() 3858 case REF_COMPONENT: in compare_actual_expr()
|
H A D | trans.cc | 1292 && expr->ref->type == REF_COMPONENT in gfc_add_finalizer_call() 1302 && ref->next->type == REF_COMPONENT in gfc_add_finalizer_call()
|
H A D | trans-openmp.cc | 3052 if (ref->type == REF_COMPONENT || ref->type == REF_ARRAY) in gfc_trans_omp_clauses() 3057 if (lastref && lastref->type == REF_COMPONENT) in gfc_trans_omp_clauses() 3323 && (n->expr->ref->type == REF_COMPONENT in gfc_trans_omp_clauses() 3326 && lastref->type == REF_COMPONENT in gfc_trans_omp_clauses() 3377 && (n->expr->ref->type == REF_COMPONENT in gfc_trans_omp_clauses() 3385 if (ref->type == REF_COMPONENT) in gfc_trans_omp_clauses() 3407 if (lastref->type == REF_COMPONENT in gfc_trans_omp_clauses()
|
H A D | symbol.cc | 2429 sref->type = REF_COMPONENT; in find_union_component() 2524 sref->type = REF_COMPONENT; in gfc_find_component() 2581 tmp->type = REF_COMPONENT; in gfc_find_component()
|
H A D | simplify.cc | 3069 if (ref->type == REF_COMPONENT) in is_last_ref_vtab() 4187 case REF_COMPONENT: in simplify_bound() 4340 case REF_COMPONENT: in simplify_cobound() 4473 if (ref->type != REF_COMPONENT && ref->type != REF_ARRAY) in substring_has_constant_len() 4541 && e->ref && e->ref->type == REF_COMPONENT in gfc_simplify_len() 8260 if (ref->type == REF_COMPONENT) in gfc_simplify_image_index()
|
H A D | gfc-internals.texi | 547 EXPR_VARIABLE(struct) ==> REF_COMPONENT(component) ==> REF_ARRAY(2:5) ==| 572 EXPR_VARIABLE(variable) ==> REF_COMPONENT(array) ==> REF_ARRAY(FULL) ==|
|