Searched refs:codimen (Results 1 - 9 of 9) sorted by relevance

/haiku-buildtools/gcc/gcc/fortran/
H A Darray.c70 i = ar->dimen + ar->codimen;
223 for (ar->codimen = 0; ar->codimen + ar->dimen < GFC_MAX_DIMENSIONS; ar->codimen++)
231 ar->codimen++;
232 if (ar->codimen < corank)
235 corank, ar->codimen);
238 if (ar->codimen > corank)
241 corank, ar->codimen);
251 ar->codimen
[all...]
H A Dtrans-types.c1741 gfc_get_array_descriptor_base (int dimen, int codimen, bool restricted,
1752 idx = 2 * (codimen + dimen) + restricted;
1754 gcc_assert (codimen + dimen >= 0 && codimen + dimen <= GFC_MAX_DIMENSIONS);
1756 if (flag_coarray == GFC_FCOARRAY_LIB && codimen)
1767 sprintf (name, "array_descriptor" GFC_RANK_PRINTF_FORMAT, dimen + codimen);
1791 if (dimen + codimen > 0)
1797 gfc_rank_cst[codimen + dimen - 1]));
1804 if (flag_coarray == GFC_FCOARRAY_LIB && codimen
1817 if (flag_coarray == GFC_FCOARRAY_LIB && codimen
1734 gfc_get_array_descriptor_base(int dimen, int codimen, bool restricted, enum gfc_array_kind akind) argument
1823 gfc_get_array_type_bounds(tree etype, int dimen, int codimen, tree * lbound, tree * ubound, int packed, enum gfc_array_kind akind, bool restricted) argument
[all...]
H A Dexpr.c3442 if (ref->type == REF_ARRAY && ref->u.ar.codimen)
3773 if (ref->type == REF_ARRAY && ref->u.ar.codimen)
4431 gcc_assert (ref->type == REF_ARRAY && ref->u.ar.codimen > 0);
4433 for (n = ref->u.ar.dimen; n < ref->u.ar.dimen + ref->u.ar.codimen; n++)
4447 if (ref->type == REF_ARRAY && ref->u.ar.codimen > 0)
4503 if (ref->u.ar.codimen > 0 && !gfc_ref_this_image (ref))
H A Dresolve.c4157 /* ar->codimen == 0 is a local array. */
4158 if (as->corank != ar->codimen && ar->codimen != 0)
4161 &ar->where, ar->codimen, as->corank);
4170 if (ar->codimen != 0)
4341 for (i = 0; i < ar->dimen + ar->codimen; i++)
4446 if (ar->as->corank && ar->codimen == 0)
4449 ar->codimen = ar->as->corank;
4450 for (n = ar->dimen; n < ar->dimen + ar->codimen; n++)
4837 if (ref->type == REF_ARRAY && ref->u.ar.codimen >
[all...]
H A Dtrans-expr.c1909 if (ref->type == REF_ARRAY && ref->u.ar.codimen > 0)
1916 for (i = ref->u.ar.dimen; i < ref->u.ar.dimen + ref->u.ar.codimen; i++)
1929 if (i < ref->u.ar.dimen + ref->u.ar.codimen - 1)
1939 for (i = ref->u.ar.dimen; i < ref->u.ar.dimen + ref->u.ar.codimen; i++)
1952 if (i < ref->u.ar.dimen + ref->u.ar.codimen - 1)
H A Dgfortran.h1767 int codimen; member in struct:gfc_array_ref
H A Dtrans-array.c3218 gcc_assert (ar->codimen);
5253 || (ref->u.ar.dimen == 0 && ref->u.ar.codimen > 0));
6481 && ref->u.ar.codimen > 0)
H A Dmatch.c5336 for (int i = 0; i < ref->u.ar.dimen + ref->u.ar.codimen; i++)
H A Dopenmp.c3123 else if (n->expr->ref->u.ar.codimen)

Completed in 247 milliseconds