| typedef struct descriptor_dimension |
| descriptor_dimension dim[7]; |
| msum_i4 (gfc_array_i4 * const retarray, |
| gfc_array_i4 * const array, |
| len = array->dim[dim].ubound + 1 - array->dim[dim].lbound; |
| for (n = 0; n < dim; n++) |
| extent[n] = array->dim[n].ubound + 1 - array->dim[n].lbound; |
| for (n = 0; n < len; n++, base++) |
| while (count[0] != extent[0]); |
| gfc_array_i4 retarray = { rdata, 265, { { 1, 1, 3 } } }; |
| gfc_array_i4 array = { adata, 266, { { 1, 1, 3 }, { 3, 1, 3 } } }; |
| msum_i4 (&retarray, &array, &dim); |