1 typedef struct descriptor_dimension
6 } descriptor_dimension;
10 descriptor_dimension dim[7];
14 msum_i4 (gfc_array_i4 * const retarray,
15 gfc_array_i4 * const array,
16 const int * const pdim)
27 len = array->dim[dim].ubound + 1 - array->dim[dim].lbound;
29 for (n = 0; n < dim; n++)
31 extent[n] = array->dim[n].ubound + 1 - array->dim[n].lbound;
35 dest = retarray->data;
42 for (n = 0; n < len; n++, base++)
49 while (count[0] != extent[0]);
56 gfc_array_i4 retarray = { rdata, 265, { { 1, 1, 3 } } };
57 gfc_array_i4 array = { adata, 266, { { 1, 1, 3 }, { 3, 1, 3 } } };
59 msum_i4 (&retarray, &array, &dim);