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
);