Home
last modified time | relevance | path

Searched refs:codimen (Results 1 – 25 of 27) sorted by relevance

12

/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Darray.c72 i = ar->dimen + ar->codimen; in match_subscript()
253 for (ar->codimen = 0; ar->codimen + ar->dimen < GFC_MAX_DIMENSIONS; ar->codimen++) in gfc_match_array_ref()
287 ar->codimen++; in gfc_match_array_ref()
288 if (ar->codimen < corank) in gfc_match_array_ref()
291 corank, ar->codimen); in gfc_match_array_ref()
294 if (ar->codimen > corank) in gfc_match_array_ref()
297 corank, ar->codimen); in gfc_match_array_ref()
307 ar->codimen + 1, corank); in gfc_match_array_ref()
312 else if (ar->dimen_type[ar->codimen + ar->dimen] == DIMEN_STAR) in gfc_match_array_ref()
315 ar->codimen + 1, corank); in gfc_match_array_ref()
[all …]
H A Dtrans-types.c1790 gfc_get_array_descriptor_base (int dimen, int codimen, bool restricted) in gfc_get_array_descriptor_base() argument
1800 idx = 2 * (codimen + dimen) + restricted; in gfc_get_array_descriptor_base()
1802 gcc_assert (codimen + dimen >= 0 && codimen + dimen <= GFC_MAX_DIMENSIONS); in gfc_get_array_descriptor_base()
1804 if (flag_coarray == GFC_FCOARRAY_LIB && codimen) in gfc_get_array_descriptor_base()
1815 sprintf (name, "array_descriptor" GFC_RANK_PRINTF_FORMAT, dimen + codimen); in gfc_get_array_descriptor_base()
1845 if (dimen + codimen > 0) in gfc_get_array_descriptor_base()
1851 gfc_rank_cst[codimen + dimen - 1])); in gfc_get_array_descriptor_base()
1870 if (flag_coarray == GFC_FCOARRAY_LIB && codimen) in gfc_get_array_descriptor_base()
1882 gfc_get_array_type_bounds (tree etype, int dimen, int codimen, tree * lbound, in gfc_get_array_type_bounds() argument
1891 base_type = gfc_get_array_descriptor_base (dimen, codimen, restricted); in gfc_get_array_type_bounds()
[all …]
H A Dexpr.c4010 if (ref->type == REF_ARRAY && ref->u.ar.codimen) in gfc_check_pointer_assign()
4458 if (ref->type == REF_ARRAY && ref->u.ar.codimen) in gfc_check_pointer_assign()
5678 gcc_assert (ref->type == REF_ARRAY && ref->u.ar.codimen > 0); in gfc_ref_this_image()
5680 for (n = ref->u.ar.dimen; n < ref->u.ar.dimen + ref->u.ar.codimen; n++) in gfc_ref_this_image()
5693 if (ref->type == REF_ARRAY && ref->u.ar.codimen > 0) in gfc_find_team_co()
5699 if (ref->type == REF_ARRAY && ref->u.ar.codimen > 0) in gfc_find_team_co()
5711 if (ref->type == REF_ARRAY && ref->u.ar.codimen > 0) in gfc_find_stat_co()
5717 if (ref->type == REF_ARRAY && ref->u.ar.codimen > 0) in gfc_find_stat_co()
5729 if (ref->type == REF_ARRAY && ref->u.ar.codimen > 0) in gfc_is_coindexed()
5785 if (ref->u.ar.codimen > 0 && !gfc_ref_this_image (ref)) in gfc_is_coarray()
H A Dresolve.c4766 if (as->corank != ar->codimen && ar->codimen != 0) in compare_spec_to_ref()
4769 &ar->where, ar->codimen, as->corank); in compare_spec_to_ref()
4778 if (ar->codimen != 0) in compare_spec_to_ref()
4963 for (i = 0; i < ar->dimen + ar->codimen; i++) in resolve_array_ref()
5068 if (ar->as->corank && ar->codimen == 0) in resolve_array_ref()
5071 ar->codimen = ar->as->corank; in resolve_array_ref()
5072 for (n = ar->dimen; n < ar->dimen + ar->codimen; n++) in resolve_array_ref()
5529 if (ref->type == REF_ARRAY && ref->u.ar.codimen > 0) in add_caf_get_intrinsic()
5534 for (n = ref->u.ar.dimen; n < ref->u.ar.dimen + ref->u.ar.codimen; n++) in add_caf_get_intrinsic()
5917 if (ref->type == REF_ARRAY && ref->u.ar.codimen > 0) in resolve_variable()
[all …]
H A Ddependency.c2152 if (lref->u.ar.codimen || rref->u.ar.codimen) in gfc_dep_resolver()
H A Dgfortran.h1975 int codimen; member
3041 tree gfc_get_derived_type (gfc_symbol * derived, int codimen = 0);
H A Dtrans-expr.c2258 const int ranksum = ref->u.ar.dimen + ref->u.ar.codimen; in gfc_get_caf_token_offset()
2310 if (ref->type == REF_ARRAY && ref->u.ar.codimen > 0) in gfc_caf_get_image_index()
2323 for (i = ref->u.ar.dimen; i < ref->u.ar.dimen + ref->u.ar.codimen; i++) in gfc_caf_get_image_index()
2335 if (i < ref->u.ar.dimen + ref->u.ar.codimen - 1) in gfc_caf_get_image_index()
2344 for (i = ref->u.ar.dimen; i < ref->u.ar.dimen + ref->u.ar.codimen; i++) in gfc_caf_get_image_index()
2356 if (i < ref->u.ar.dimen + ref->u.ar.codimen - 1) in gfc_caf_get_image_index()
H A Dmatch.c6195 for (int i = 0; i < ref->u.ar.dimen + ref->u.ar.codimen; i++) in copy_ts_from_selector_to_associate()
6218 for (int i = 0; i < ref->u.ar.dimen + ref->u.ar.codimen; i++) in copy_ts_from_selector_to_associate()
H A Dtrans-array.c3773 gcc_assert (ar->codimen || sym->attr.select_rank_temporary in gfc_conv_array_ref()
5913 || (ref->u.ar.dimen == 0 && ref->u.ar.codimen > 0)); in retrieve_last_ref()
5988 if (coref->type == REF_ARRAY && coref->u.ar.codimen > 0) in gfc_array_allocate()
7331 && ref->u.ar.codimen > 0) in walk_coarray()
H A Dtrans-intrinsic.c1209 while (ref && (ref->type != REF_ARRAY || ref->u.ar.codimen == 0)) in conv_expr_ref_to_caf_ref()
1231 if (ref->type == REF_ARRAY && ref->u.ar.codimen > 0 in conv_expr_ref_to_caf_ref()
8711 if (ref->type == REF_ARRAY && ref->u.ar.codimen) in caf_this_image_ref()
H A Dfrontend-passes.c1250 if (!ref || ref->type != REF_ARRAY || ref->u.ar.codimen != 0 || ref->next) in traverse_io_block()
/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Darray.cc72 i = ar->dimen + ar->codimen; in match_subscript()
260 for (ar->codimen = 0; ar->codimen + ar->dimen < GFC_MAX_DIMENSIONS; ar->codimen++) in gfc_match_array_ref()
294 ar->codimen++; in gfc_match_array_ref()
295 if (ar->codimen < corank) in gfc_match_array_ref()
298 corank, ar->codimen); in gfc_match_array_ref()
301 if (ar->codimen > corank) in gfc_match_array_ref()
304 corank, ar->codimen); in gfc_match_array_ref()
314 ar->codimen + 1, corank); in gfc_match_array_ref()
319 else if (ar->dimen_type[ar->codimen + ar->dimen] == DIMEN_STAR) in gfc_match_array_ref()
322 ar->codimen + 1, corank); in gfc_match_array_ref()
[all …]
H A Dtrans-types.cc1842 gfc_get_array_descriptor_base (int dimen, int codimen, bool restricted) in gfc_get_array_descriptor_base() argument
1852 idx = 2 * (codimen + dimen) + restricted; in gfc_get_array_descriptor_base()
1854 gcc_assert (codimen + dimen >= 0 && codimen + dimen <= GFC_MAX_DIMENSIONS); in gfc_get_array_descriptor_base()
1856 if (flag_coarray == GFC_FCOARRAY_LIB && codimen) in gfc_get_array_descriptor_base()
1867 sprintf (name, "array_descriptor" GFC_RANK_PRINTF_FORMAT, dimen + codimen); in gfc_get_array_descriptor_base()
1897 if (dimen + codimen > 0) in gfc_get_array_descriptor_base()
1903 gfc_rank_cst[codimen + dimen - 1])); in gfc_get_array_descriptor_base()
1922 if (flag_coarray == GFC_FCOARRAY_LIB && codimen) in gfc_get_array_descriptor_base()
1934 gfc_get_array_type_bounds (tree etype, int dimen, int codimen, tree * lbound, in gfc_get_array_type_bounds() argument
1943 base_type = gfc_get_array_descriptor_base (dimen, codimen, restricted); in gfc_get_array_type_bounds()
[all …]
H A Dexpr.cc4042 if (ref->type == REF_ARRAY && ref->u.ar.codimen) in gfc_check_pointer_assign()
4490 if (ref->type == REF_ARRAY && ref->u.ar.codimen) in gfc_check_pointer_assign()
5718 gcc_assert (ref->type == REF_ARRAY && ref->u.ar.codimen > 0); in gfc_ref_this_image()
5720 for (n = ref->u.ar.dimen; n < ref->u.ar.dimen + ref->u.ar.codimen; n++) in gfc_ref_this_image()
5733 if (ref->type == REF_ARRAY && ref->u.ar.codimen > 0) in gfc_find_team_co()
5739 if (ref->type == REF_ARRAY && ref->u.ar.codimen > 0) in gfc_find_team_co()
5751 if (ref->type == REF_ARRAY && ref->u.ar.codimen > 0) in gfc_find_stat_co()
5757 if (ref->type == REF_ARRAY && ref->u.ar.codimen > 0) in gfc_find_stat_co()
5769 if (ref->type == REF_ARRAY && ref->u.ar.codimen > 0) in gfc_is_coindexed()
5825 if (ref->u.ar.codimen > 0 && !gfc_ref_this_image (ref)) in gfc_is_coarray()
H A DChangeLog-20111385 * trans.h (gfc_ss_info): Remove codimen field.
1386 * trans-array.c (gfc_get_array_ss): Don't set codimen field.
1389 (gfc_conv_ss_startstride): Don't set codimen field.
1393 conv_intrinsic_cobound): Don't set codimen field
1397 * trans.h (gfc_loopinfo): Remove codimen field.
1404 (gfc_conv_ss_startstride): Don't set loop's codimen field.
1406 (gfc_conv_expr_descriptor): Don't use loop's codimen field as corank.
1410 * trans.h (gfc_ss): Remove data.temp.codimen field.
1412 gfc_conv_expr_descriptor): Don't set temp's codimen field.
1454 loop.codimen as argument to gfc_get_array_type_bounds.
[all …]
H A Dresolve.cc4852 if (as->corank != ar->codimen && ar->codimen != 0) in compare_spec_to_ref()
4855 &ar->where, ar->codimen, as->corank); in compare_spec_to_ref()
4864 if (ar->codimen != 0) in compare_spec_to_ref()
5049 for (i = 0; i < ar->dimen + ar->codimen; i++) in resolve_array_ref()
5154 if (ar->as->corank && ar->codimen == 0) in resolve_array_ref()
5157 ar->codimen = ar->as->corank; in resolve_array_ref()
5158 for (n = ar->dimen; n < ar->dimen + ar->codimen; n++) in resolve_array_ref()
5614 if (ref->type == REF_ARRAY && ref->u.ar.codimen > 0) in add_caf_get_intrinsic()
5619 for (n = ref->u.ar.dimen; n < ref->u.ar.dimen + ref->u.ar.codimen; n++) in add_caf_get_intrinsic()
6001 if (ref->type == REF_ARRAY && ref->u.ar.codimen > 0) in resolve_variable()
[all …]
H A Ddependency.cc2156 && ((lref->u.ar.codimen in gfc_dep_resolver()
2159 || (rref->u.ar.codimen in gfc_dep_resolver()
H A Ddump-parse-tree.cc364 if (ar->codimen == 0) in show_array_ref()
369 for (i = ar->dimen; i < ar->dimen + ar->codimen; i++) in show_array_ref()
384 if (i != ar->dimen + ar->codimen - 1) in show_array_ref()
H A Dgfortran.h2240 int codimen; member
3325 tree gfc_get_derived_type (gfc_symbol * derived, int codimen = 0);
H A Dtrans-expr.cc2352 const int ranksum = ref->u.ar.dimen + ref->u.ar.codimen; in gfc_get_caf_token_offset()
2404 if (ref->type == REF_ARRAY && ref->u.ar.codimen > 0) in gfc_caf_get_image_index()
2417 for (i = ref->u.ar.dimen; i < ref->u.ar.dimen + ref->u.ar.codimen; i++) in gfc_caf_get_image_index()
2429 if (i < ref->u.ar.dimen + ref->u.ar.codimen - 1) in gfc_caf_get_image_index()
2438 for (i = ref->u.ar.dimen; i < ref->u.ar.dimen + ref->u.ar.codimen; i++) in gfc_caf_get_image_index()
2450 if (i < ref->u.ar.dimen + ref->u.ar.codimen - 1) in gfc_caf_get_image_index()
H A Dmatch.cc6286 for (int i = 0; i < ref->u.ar.dimen + ref->u.ar.codimen; i++) in copy_ts_from_selector_to_associate()
6309 for (int i = 0; i < ref->u.ar.dimen + ref->u.ar.codimen; i++) in copy_ts_from_selector_to_associate()
H A Dtrans-intrinsic.cc1217 while (ref && (ref->type != REF_ARRAY || ref->u.ar.codimen == 0)) in conv_expr_ref_to_caf_ref()
1239 if (ref->type == REF_ARRAY && ref->u.ar.codimen > 0 in conv_expr_ref_to_caf_ref()
8795 if (ref->type == REF_ARRAY && ref->u.ar.codimen) in caf_this_image_ref()
8838 if (ref->type == REF_ARRAY && ref->u.ar.codimen) in gfc_conv_allocated()
8841 i < ref->u.ar.dimen + ref->u.ar.codimen; ++i) in gfc_conv_allocated()
H A Dtrans-array.cc3856 gcc_assert (ar->codimen || sym->attr.select_rank_temporary in gfc_conv_array_ref()
6023 || (ref->u.ar.dimen == 0 && ref->u.ar.codimen > 0)); in retrieve_last_ref()
6098 if (coref->type == REF_ARRAY && coref->u.ar.codimen > 0) in gfc_array_allocate()
7449 && ref->u.ar.codimen > 0) in walk_coarray()
H A Dfrontend-passes.cc1250 if (!ref || ref->type != REF_ARRAY || ref->u.ar.codimen != 0 || ref->next) in traverse_io_block()
H A DChangeLog-20182927 field to the descriptor even when codimen not set.

12