int main() { int rdata[3] = {1, 2, 3}; int adata[9] = {5, 6, 7, 8, 9, 10, 11, 12, 13}; gfc_array_i4 retarray = { rdata, 265, { { 1, 1, 3 } } }; gfc_array_i4 array = { adata, 266, { { 1, 1, 3 }, { 3, 1, 3 } } }; int dim = 2; msum_i4 (&retarray, &array, &dim); return 0; }
int main() { int rdata[3]; int adata[9]; gfc_array_i4 retarray = { rdata, 265, { { 1, 1, 3 } } }; gfc_array_i4 array = { adata, 266, { { 1, 1, 3 }, { 3, 1, 3 } } }; int dim = 2; msum_i4 (&retarray, &array, &dim); return 0; }