Home
last modified time | relevance | path

Searched refs:REF_ARRAY (Results 1 – 25 of 60) sorted by relevance

123

/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dclass.c102 else if (new_ref->next->type == REF_ARRAY in insert_component_ref()
222 && (*tail)->next->type == REF_ARRAY in gfc_add_component_ref()
227 if ((*tail)->type == REF_ARRAY && (*tail)->next == NULL) in gfc_add_component_ref()
272 if (ref->type != REF_ARRAY) in gfc_add_class_array_ref()
276 ref->type = REF_ARRAY; in gfc_add_class_array_ref()
295 if (ref && ref->type == REF_ARRAY in class_array_ref_detected()
314 else if (ref->next && ref->next->type == REF_ARRAY in class_array_ref_detected()
985 ref->next->type = REF_ARRAY; in finalize_component()
1218 expr->ref->type = REF_ARRAY; in finalization_get_offset()
1238 expr2->value.op.op2->ref->type = REF_ARRAY; in finalization_get_offset()
[all …]
H A Dexpr.c596 case REF_ARRAY: in gfc_free_ref_list()
760 case REF_ARRAY: in gfc_copy_ref()
795 if (ref->type == REF_ARRAY) in gfc_has_vector_index()
1154 if (ref->type == REF_ARRAY in is_subref_array()
1159 && ref->type != REF_ARRAY) in is_subref_array()
1912 case REF_ARRAY: in simplify_const_ref()
2048 case REF_ARRAY: in simplify_ref_chain()
2320 if (p->expr_type == EXPR_ARRAY && p->ref && p->ref->type == REF_ARRAY in gfc_simplify_expr()
3346 case REF_ARRAY: in check_references()
3909 if (ref->type == REF_ARRAY && ref->next == NULL) in gfc_check_pointer_assign()
[all …]
H A Ddependency.c165 case REF_ARRAY: in are_identical_variables()
896 case REF_ARRAY: in gfc_ref_needs_temporary_p()
1834 case REF_ARRAY: in contains_forall_index_p()
1941 if (ref->type != REF_ARRAY) in gfc_full_array_ref_p()
2035 if (full_ref->type != REF_ARRAY) in ref_same_as_full_array()
2039 if (ref->type != REF_ARRAY) in ref_same_as_full_array()
2149 case REF_ARRAY: in gfc_dep_resolver()
H A Dresolve.c2107 e->ref->type = REF_ARRAY; in resolve_actual_arglist()
4926 case REF_ARRAY: in find_array_spec()
5271 if (ref->type == REF_ARRAY && ref->u.ar.as == NULL) in gfc_resolve_ref()
5281 case REF_ARRAY: in gfc_resolve_ref()
5319 case REF_ARRAY: in gfc_resolve_ref()
5490 if (ref->type != REF_ARRAY) in gfc_expression_rank()
5529 if (ref->type == REF_ARRAY && ref->u.ar.codimen > 0) in add_caf_get_intrinsic()
5642 && !(e->ref->type == REF_ARRAY && e->ref->u.ar.type == AR_FULL in resolve_variable()
5651 && !(e->ref->type == REF_ARRAY && e->ref->u.ar.type == AR_FULL in resolve_variable()
5667 && !(e->ref->type == REF_ARRAY && e->ref->u.ar.type == AR_FULL in resolve_variable()
[all …]
H A Dprimary.c2139 if (ref->type == REF_ARRAY in gfc_match_varspec()
2182 tail->type = REF_ARRAY; in gfc_match_varspec()
2204 tail->type = REF_ARRAY; in gfc_match_varspec()
2528 tail->type = REF_ARRAY; in gfc_match_varspec()
2539 tail->type = REF_ARRAY; in gfc_match_varspec()
2698 case REF_ARRAY: in gfc_variable_attr()
2878 case REF_ARRAY: in caf_variable_attr()
2928 || (ref->next->type == REF_ARRAY && ref->next->next == NULL))) in caf_variable_attr()
3634 if (ref->type == REF_ARRAY) in gfc_match_rvalue()
H A Dtrans-array.c875 if (!(expr->ref && expr->ref->type == REF_ARRAY) in get_CFI_desc()
920 && expr->ref->next->type == REF_ARRAY in gfc_get_array_span()
2288 case REF_ARRAY: in get_array_ctor_var_strlen()
3533 && ref->next->next->type == REF_ARRAY in build_class_array_ref()
3809 if (ref->type == REF_ARRAY && &ref->u.ar == ar) in gfc_conv_array_ref()
3820 if (ref->type == REF_ARRAY && &ref->u.ar == ar) in gfc_conv_array_ref()
5912 gcc_assert (ref->type != REF_ARRAY || ref->u.ar.type == AR_ELEMENT in retrieve_last_ref()
5918 if (ref == NULL || ref->type != REF_ARRAY) in retrieve_last_ref()
5988 if (coref->type == REF_ARRAY && coref->u.ar.codimen > 0) in gfc_array_allocate()
7048 if (ref->type == REF_ARRAY && in gfc_get_dataptr_offset()
[all …]
H A Dfrontend-passes.c862 result->ref->type = REF_ARRAY; in create_var()
1250 if (!ref || ref->type != REF_ARRAY || ref->u.ar.codimen != 0 || ref->next) in traverse_io_block()
2234 if ((*rr)->type == REF_SUBSTRING || (*rr)->type == REF_ARRAY) in optimize_trim()
2576 if (ref->type == REF_ARRAY && ref->u.ar.type == AR_ELEMENT) in do_subscript()
3396 else if (r->type == REF_ARRAY) in freeze_references()
3639 if (ref->type == REF_ARRAY in scalarized_expr()
4823 if (ref->type == REF_ARRAY) in index_cost()
5007 case REF_ARRAY: in gfc_expr_walker()
H A Dinterface.c2671 else if (ref->type == REF_ARRAY && ref->u.ar.type == AR_ELEMENT in compare_parameter()
2857 if (ref->type == REF_ARRAY && ref->u.ar.type == AR_SECTION) in get_expr_storage_size()
2904 else if (ref->type == REF_ARRAY && ref->u.ar.type == AR_FULL) in get_expr_storage_size()
2918 else if (ref->type == REF_ARRAY && ref->u.ar.type == AR_ELEMENT in get_expr_storage_size()
2995 if (ref->type == REF_ARRAY && ref->u.ar.type == AR_SECTION) in gfc_has_vector_subscript()
3332 || (a->expr->ref->type == REF_ARRAY in gfc_compare_actual_formal()
3646 case REF_ARRAY: in compare_actual_expr()
H A Darray.c2578 if (ref->type != REF_ARRAY) in gfc_array_dimen_size()
2673 if (ref->type != REF_ARRAY) in gfc_array_size()
2754 if (ref->type == REF_ARRAY in gfc_find_array_ref()
H A Dgfc-internals.texi547 EXPR_VARIABLE(struct) ==> REF_COMPONENT(component) ==> REF_ARRAY(2:5) ==|
554 @code{REF_ARRAY} reference must be built as the last element in the chain with
572 EXPR_VARIABLE(variable) ==> REF_COMPONENT(array) ==> REF_ARRAY(FULL) ==|
573 EXPR_VARIABLE(local_array) ==> REF_ARRAY(FULL) ==|
H A Dmatch.c4349 || tail->expr->ref->type == REF_ARRAY)); in gfc_match_allocate()
4638 if (!remap->next && remap->type == REF_ARRAY in gfc_match_nullify()
4761 || tail->expr->ref->type == REF_ARRAY)); in gfc_match_deallocate()
5705 if (ref->type == REF_ARRAY && ref->u.ar.type == AR_SECTION) in gfc_match_equivalence()
6187 && ref && ref->type == REF_ARRAY) in copy_ts_from_selector_to_associate()
6478 && expr1->ref->type == REF_ARRAY in gfc_match_select_type()
H A Ddata.c260 case REF_ARRAY: in gfc_assign_data_value()
/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Dclass.cc104 else if (new_ref->next->type == REF_ARRAY in insert_component_ref()
224 && (*tail)->next->type == REF_ARRAY in gfc_add_component_ref()
229 if ((*tail)->type == REF_ARRAY && (*tail)->next == NULL) in gfc_add_component_ref()
274 if (ref->type != REF_ARRAY) in gfc_add_class_array_ref()
278 ref->type = REF_ARRAY; in gfc_add_class_array_ref()
297 if (ref && ref->type == REF_ARRAY in class_array_ref_detected()
316 else if (ref->next && ref->next->type == REF_ARRAY in class_array_ref_detected()
1000 ref->next->type = REF_ARRAY; in finalize_component()
1233 expr->ref->type = REF_ARRAY; in finalization_get_offset()
1253 expr2->value.op.op2->ref->type = REF_ARRAY; in finalization_get_offset()
[all …]
H A Dexpr.cc604 case REF_ARRAY: in gfc_free_ref_list()
768 case REF_ARRAY: in gfc_copy_ref()
803 if (ref->type == REF_ARRAY) in gfc_has_vector_index()
1164 if (ref->type == REF_ARRAY in is_subref_array()
1169 && ref->type != REF_ARRAY) in is_subref_array()
1937 case REF_ARRAY: in simplify_const_ref()
2073 case REF_ARRAY: in simplify_ref_chain()
2346 if (p->expr_type == EXPR_ARRAY && p->ref && p->ref->type == REF_ARRAY in gfc_simplify_expr()
3378 case REF_ARRAY: in check_references()
3941 if (ref->type == REF_ARRAY && ref->next == NULL) in gfc_check_pointer_assign()
[all …]
H A Ddependency.cc166 case REF_ARRAY: in are_identical_variables()
897 case REF_ARRAY: in gfc_ref_needs_temporary_p()
1835 case REF_ARRAY: in contains_forall_index_p()
1942 if (ref->type != REF_ARRAY) in gfc_full_array_ref_p()
2036 if (full_ref->type != REF_ARRAY) in ref_same_as_full_array()
2040 if (ref->type != REF_ARRAY) in ref_same_as_full_array()
2150 case REF_ARRAY: in gfc_dep_resolver()
H A Dprimary.cc2118 if (ref->type == REF_ARRAY in gfc_match_varspec()
2161 tail->type = REF_ARRAY; in gfc_match_varspec()
2183 tail->type = REF_ARRAY; in gfc_match_varspec()
2516 tail->type = REF_ARRAY; in gfc_match_varspec()
2527 tail->type = REF_ARRAY; in gfc_match_varspec()
2700 case REF_ARRAY: in gfc_variable_attr()
2886 case REF_ARRAY: in caf_variable_attr()
2936 || (ref->next->type == REF_ARRAY && ref->next->next == NULL))) in caf_variable_attr()
3642 if (ref->type == REF_ARRAY) in gfc_match_rvalue()
H A Dresolve.cc2148 e->ref->type = REF_ARRAY; in resolve_actual_arglist()
5012 case REF_ARRAY: in find_array_spec()
5354 if (ref->type == REF_ARRAY && ref->u.ar.as == NULL) in gfc_resolve_ref()
5364 case REF_ARRAY: in gfc_resolve_ref()
5402 case REF_ARRAY: in gfc_resolve_ref()
5575 if (ref->type != REF_ARRAY) in gfc_expression_rank()
5614 if (ref->type == REF_ARRAY && ref->u.ar.codimen > 0) in add_caf_get_intrinsic()
5727 && !(e->ref->type == REF_ARRAY && e->ref->u.ar.type == AR_FULL in resolve_variable()
5736 && !(e->ref->type == REF_ARRAY && e->ref->u.ar.type == AR_FULL in resolve_variable()
5752 && !(e->ref->type == REF_ARRAY && e->ref->u.ar.type == AR_FULL in resolve_variable()
[all …]
H A Dfrontend-passes.cc862 result->ref->type = REF_ARRAY; in create_var()
1250 if (!ref || ref->type != REF_ARRAY || ref->u.ar.codimen != 0 || ref->next) in traverse_io_block()
2234 if ((*rr)->type == REF_SUBSTRING || (*rr)->type == REF_ARRAY) in optimize_trim()
2817 if (ref->type == REF_ARRAY && ref->u.ar.type == AR_ELEMENT) in do_subscript()
3674 else if (r->type == REF_ARRAY) in freeze_references()
3917 if (ref->type == REF_ARRAY in scalarized_expr()
5103 if (ref->type == REF_ARRAY) in index_cost()
5287 case REF_ARRAY: in gfc_expr_walker()
H A Dinterface.cc2738 else if (ref->type == REF_ARRAY && ref->u.ar.type == AR_ELEMENT in compare_parameter()
2924 if (ref->type == REF_ARRAY && ref->u.ar.type == AR_SECTION) in get_expr_storage_size()
2971 else if (ref->type == REF_ARRAY && ref->u.ar.type == AR_FULL) in get_expr_storage_size()
2985 else if (ref->type == REF_ARRAY && ref->u.ar.type == AR_ELEMENT in get_expr_storage_size()
3062 if (ref->type == REF_ARRAY && ref->u.ar.type == AR_SECTION) in gfc_has_vector_subscript()
3475 || (a->expr->ref->type == REF_ARRAY in gfc_compare_actual_formal()
3495 || (a->expr->ref->type == REF_ARRAY in gfc_compare_actual_formal()
3849 case REF_ARRAY: in compare_actual_expr()
H A Darray.cc2590 if (ref->type != REF_ARRAY) in gfc_array_dimen_size()
2685 if (ref->type != REF_ARRAY) in gfc_array_size()
2766 if (ref->type == REF_ARRAY in gfc_find_array_ref()
H A Dtrans-array.cc922 if (!(expr->ref && expr->ref->type == REF_ARRAY) in get_CFI_desc()
979 && expr->ref->next->type == REF_ARRAY in gfc_get_array_span()
2384 case REF_ARRAY: in get_array_ctor_var_strlen()
3892 if (ref->type == REF_ARRAY && &ref->u.ar == ar) in gfc_conv_array_ref()
3903 if (ref->type == REF_ARRAY && &ref->u.ar == ar) in gfc_conv_array_ref()
6022 gcc_assert (ref->type != REF_ARRAY || ref->u.ar.type == AR_ELEMENT in retrieve_last_ref()
6028 if (ref == NULL || ref->type != REF_ARRAY) in retrieve_last_ref()
6098 if (coref->type == REF_ARRAY && coref->u.ar.codimen > 0) in gfc_array_allocate()
7166 if (ref->type == REF_ARRAY && in gfc_get_dataptr_offset()
7194 case REF_ARRAY: in gfc_get_dataptr_offset()
[all …]
H A Dtrans-expr.cc465 && ref->next->next->type == REF_ARRAY in gfc_find_and_cut_at_last_class_ref()
478 if (ref->type == REF_ARRAY && ref->u.ar.type != AR_ELEMENT) in gfc_find_and_cut_at_last_class_ref()
809 if (ref->type == REF_ARRAY in gfc_conv_derived_to_class()
2159 case REF_ARRAY: in gfc_get_expr_charlen()
2222 if (expr->ref && expr->ref->type == REF_ARRAY) in gfc_get_tree_for_caf_expr()
2238 else if (ref->type == REF_ARRAY && ref->u.ar.dimen) in gfc_get_tree_for_caf_expr()
2349 if (ref->type == REF_ARRAY in gfc_get_caf_token_offset()
2404 if (ref->type == REF_ARRAY && ref->u.ar.codimen > 0) in gfc_caf_get_image_index()
3000 gcc_assert (ref->type == REF_ARRAY in gfc_conv_variable()
3097 case REF_ARRAY: in gfc_conv_variable()
[all …]
H A Dgfc-internals.texi547 EXPR_VARIABLE(struct) ==> REF_COMPONENT(component) ==> REF_ARRAY(2:5) ==|
554 @code{REF_ARRAY} reference must be built as the last element in the chain with
572 EXPR_VARIABLE(variable) ==> REF_COMPONENT(array) ==> REF_ARRAY(FULL) ==|
573 EXPR_VARIABLE(local_array) ==> REF_ARRAY(FULL) ==|
H A Dmatch.cc4390 || tail->expr->ref->type == REF_ARRAY)); in gfc_match_allocate()
4679 if (!remap->next && remap->type == REF_ARRAY in gfc_match_nullify()
4802 || tail->expr->ref->type == REF_ARRAY)); in gfc_match_deallocate()
5774 if (ref->type == REF_ARRAY && ref->u.ar.type == AR_SECTION) in gfc_match_equivalence()
6278 && ref && ref->type == REF_ARRAY) in copy_ts_from_selector_to_associate()
6569 && expr1->ref->type == REF_ARRAY in gfc_match_select_type()
H A Ddata.cc280 case REF_ARRAY: in gfc_assign_data_value()

123