diff options
101 files changed, 212 insertions, 160 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index b1256797e62..9fb6c5b504e 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,55 @@ +2005-07-07 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> + + * libgfortran.h (GFC_ARRAY_DESCRIPTOR): Replace 'type *base' by + 'size_t offset'. + * intrinsics/cshift0.c, intrinsics/eoshift0.c, + intrinsics/eoshift2.c,intrinsics/pack_generic.c, + intrinsics/reshape_generic.c, intrinsics/spread_generic.c, + intrinsics/transpose_generic.c, intrinsics/unpack_generic, + m4/cshift1.m4, m4/eoshift1.m4, m4/eoshift3.m4, m4/iforeach.m4, + m4/ifunction.m4, m4/matmul.m4, m4/matmull.m4, m4/reshape.m4, + m4,transpose.m4: Set renamed field 'offset' to zero instead of + 'base'. + * generated/all_l4.c, generated/all_l8.c, + generated/any_l4.c, generated/any_l8.c, generated/count_4_l4.c, + generated/count_4_l8.c, generated/count_8_l4.c, + generated/count_8_l8.c, generated/chift1_4.c, + generated/cshift1_8.c, generated/eoshift1_4.c, + generated/eoshift1_8.c, generated/eoshift3_4.c, + generated/eoshift3_8.c, generated/matmul_c4.c, + generated/matmul_c8.c, generated/matmul_i4.c, matmul_i8.c, + generated/matmul_l4.c, generated/matmul_l8.c, + generated/matmul_r4.c, generated/matmul_r8.c, + generated/maxloc0_4_i4.c, generated/maxloc0_4_i8.c, + generated/maxloc0_4_r4.c, generated/maxloc0_4_r8.c, + generated/maxloc0_8_i4.c, generated/maxloc0_8_i8.c, + generated/maxloc0_8_r4.c, generated/maxloc0_8_r8.c, + generated/maxloc1_4_i4.c, generated/maxloc1_4_i8.c, + generated/maxloc1_4_r4.c, generated/maxloc1_4_r8.c, + generated/maxloc1_8_i4.c, generated/maxloc1_8_i8.c, + generated/maxloc1_8_r4.c, generated/maxloc1_8_r8.c, + generated/maxval_i4.c, generated/maxval_i8.c, + generated/maxval_r4.c, generated/maxval_r8.c, + generated/minloc0_4_i4.c, generated/minloc0_4_i8.c, + generated/minloc0_4_r4.c, generated/minloc0_4_r8.c, + generated/minloc0_8_i4.c, generated/minloc0_8_i8.c, + generated/minloc0_8_r4.c, generated/minloc0_8_r8.c, + generated/minloc1_4_i4.c, generated/minloc1_4_i8.c, + generated/minloc1_4_r4.c, generated/minloc1_4_r8.c, + generated/minloc1_8_i4.c, generated/minloc1_8_i8.c, + generated/minloc1_8_r4.c, generated/minloc1_8_r8.c, + generated/minval_i4.c, generated/minval_i8.c, + generated/minval_r4.c, generated/minval_r8.c, + generated/product_c4.c, generated/product_c8.c, + generated/product_i4.c, generated/product_i8.c, + generated/product_r4.c, generated/product_r8.c, + generated/reshape_c4.c, generated/reshape_c8.c, + generated/reshape_i4.c, generated/reshape_i8.c, + generated/sum_c4.c, generated/sum_c8.c, generated/sum_i4.c, + generated/sum_i8.c, generated/sum_r4.c, generated/sum_r8.c, + generated/transpose_c4.c, generated/transpose_c8.c, + generated/transpose_i4.c, generated/transpose_i8.c: Regenerate: + 2005-07-07 Thomas Koenig <Thomas.Koenig@online.de> PR libfortran/21594 diff --git a/libgfortran/generated/all_l4.c b/libgfortran/generated/all_l4.c index 2b070bbb30b..8889fd0368a 100644 --- a/libgfortran/generated/all_l4.c +++ b/libgfortran/generated/all_l4.c @@ -92,7 +92,7 @@ all_l4 (gfc_array_l4 *retarray, gfc_array_l4 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_LOGICAL_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/all_l8.c b/libgfortran/generated/all_l8.c index 29f4e2653ac..d1a9f402e3a 100644 --- a/libgfortran/generated/all_l8.c +++ b/libgfortran/generated/all_l8.c @@ -92,7 +92,7 @@ all_l8 (gfc_array_l8 *retarray, gfc_array_l8 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_LOGICAL_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/any_l4.c b/libgfortran/generated/any_l4.c index 0dfbc7ae4d5..c53c06b5181 100644 --- a/libgfortran/generated/any_l4.c +++ b/libgfortran/generated/any_l4.c @@ -92,7 +92,7 @@ any_l4 (gfc_array_l4 *retarray, gfc_array_l4 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_LOGICAL_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/any_l8.c b/libgfortran/generated/any_l8.c index 94e4e27c67f..f901359cb71 100644 --- a/libgfortran/generated/any_l8.c +++ b/libgfortran/generated/any_l8.c @@ -92,7 +92,7 @@ any_l8 (gfc_array_l8 *retarray, gfc_array_l8 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_LOGICAL_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/count_4_l4.c b/libgfortran/generated/count_4_l4.c index 3f43cc14e80..a3030c1b508 100644 --- a/libgfortran/generated/count_4_l4.c +++ b/libgfortran/generated/count_4_l4.c @@ -92,7 +92,7 @@ count_4_l4 (gfc_array_i4 *retarray, gfc_array_l4 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_INTEGER_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/count_4_l8.c b/libgfortran/generated/count_4_l8.c index e8da4ef8179..a6fe2c63057 100644 --- a/libgfortran/generated/count_4_l8.c +++ b/libgfortran/generated/count_4_l8.c @@ -92,7 +92,7 @@ count_4_l8 (gfc_array_i4 *retarray, gfc_array_l8 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_INTEGER_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/count_8_l4.c b/libgfortran/generated/count_8_l4.c index fe4c88663eb..c6a3e645ab9 100644 --- a/libgfortran/generated/count_8_l4.c +++ b/libgfortran/generated/count_8_l4.c @@ -92,7 +92,7 @@ count_8_l4 (gfc_array_i8 *retarray, gfc_array_l4 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_INTEGER_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/count_8_l8.c b/libgfortran/generated/count_8_l8.c index 0bcfdb83d52..ca68b15d2d0 100644 --- a/libgfortran/generated/count_8_l8.c +++ b/libgfortran/generated/count_8_l8.c @@ -92,7 +92,7 @@ count_8_l8 (gfc_array_i8 *retarray, gfc_array_l8 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_INTEGER_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/cshift1_4.c b/libgfortran/generated/cshift1_4.c index b86f9e51c7e..1f3eee3bc74 100644 --- a/libgfortran/generated/cshift1_4.c +++ b/libgfortran/generated/cshift1_4.c @@ -85,7 +85,7 @@ cshift1_4 (gfc_array_char * ret, int i; ret->data = internal_malloc_size (size * size0 ((array_t *)array)); - ret->base = 0; + ret->offset = 0; ret->dtype = array->dtype; for (i = 0; i < GFC_DESCRIPTOR_RANK (array); i++) { diff --git a/libgfortran/generated/cshift1_8.c b/libgfortran/generated/cshift1_8.c index 24c1b6e89e3..d84c859b167 100644 --- a/libgfortran/generated/cshift1_8.c +++ b/libgfortran/generated/cshift1_8.c @@ -85,7 +85,7 @@ cshift1_8 (gfc_array_char * ret, int i; ret->data = internal_malloc_size (size * size0 ((array_t *)array)); - ret->base = 0; + ret->offset = 0; ret->dtype = array->dtype; for (i = 0; i < GFC_DESCRIPTOR_RANK (array); i++) { diff --git a/libgfortran/generated/eoshift1_4.c b/libgfortran/generated/eoshift1_4.c index 6012c3fe902..c85b2de0997 100644 --- a/libgfortran/generated/eoshift1_4.c +++ b/libgfortran/generated/eoshift1_4.c @@ -101,7 +101,7 @@ eoshift1_4 (gfc_array_char *ret, int i; ret->data = internal_malloc_size (size * size0 ((array_t *)array)); - ret->base = 0; + ret->offset = 0; ret->dtype = array->dtype; for (i = 0; i < GFC_DESCRIPTOR_RANK (array); i++) { diff --git a/libgfortran/generated/eoshift1_8.c b/libgfortran/generated/eoshift1_8.c index 3caf66a6090..685150c5201 100644 --- a/libgfortran/generated/eoshift1_8.c +++ b/libgfortran/generated/eoshift1_8.c @@ -101,7 +101,7 @@ eoshift1_8 (gfc_array_char *ret, int i; ret->data = internal_malloc_size (size * size0 ((array_t *)array)); - ret->base = 0; + ret->offset = 0; ret->dtype = array->dtype; for (i = 0; i < GFC_DESCRIPTOR_RANK (array); i++) { diff --git a/libgfortran/generated/eoshift3_4.c b/libgfortran/generated/eoshift3_4.c index 1fe4e765c82..7e715bebfe5 100644 --- a/libgfortran/generated/eoshift3_4.c +++ b/libgfortran/generated/eoshift3_4.c @@ -95,7 +95,7 @@ eoshift3_4 (gfc_array_char *ret, gfc_array_char *array, int i; ret->data = internal_malloc_size (size * size0 ((array_t *)array)); - ret->base = 0; + ret->offset = 0; ret->dtype = array->dtype; for (i = 0; i < GFC_DESCRIPTOR_RANK (array); i++) { diff --git a/libgfortran/generated/eoshift3_8.c b/libgfortran/generated/eoshift3_8.c index 69ead625577..c5d6f1165f0 100644 --- a/libgfortran/generated/eoshift3_8.c +++ b/libgfortran/generated/eoshift3_8.c @@ -95,7 +95,7 @@ eoshift3_8 (gfc_array_char *ret, gfc_array_char *array, int i; ret->data = internal_malloc_size (size * size0 ((array_t *)array)); - ret->base = 0; + ret->offset = 0; ret->dtype = array->dtype; for (i = 0; i < GFC_DESCRIPTOR_RANK (array); i++) { diff --git a/libgfortran/generated/matmul_c4.c b/libgfortran/generated/matmul_c4.c index c63d343ea82..d8ffa2969c5 100644 --- a/libgfortran/generated/matmul_c4.c +++ b/libgfortran/generated/matmul_c4.c @@ -100,7 +100,7 @@ matmul_c4 (gfc_array_c4 * retarray, gfc_array_c4 * a, gfc_array_c4 * b) retarray->data = internal_malloc_size (sizeof (GFC_COMPLEX_4) * size0 ((array_t *) retarray)); - retarray->base = 0; + retarray->offset = 0; } abase = a->data; diff --git a/libgfortran/generated/matmul_c8.c b/libgfortran/generated/matmul_c8.c index 98326d135d8..bc9442f936d 100644 --- a/libgfortran/generated/matmul_c8.c +++ b/libgfortran/generated/matmul_c8.c @@ -100,7 +100,7 @@ matmul_c8 (gfc_array_c8 * retarray, gfc_array_c8 * a, gfc_array_c8 * b) retarray->data = internal_malloc_size (sizeof (GFC_COMPLEX_8) * size0 ((array_t *) retarray)); - retarray->base = 0; + retarray->offset = 0; } abase = a->data; diff --git a/libgfortran/generated/matmul_i4.c b/libgfortran/generated/matmul_i4.c index 9dde570b73a..bc8a510d408 100644 --- a/libgfortran/generated/matmul_i4.c +++ b/libgfortran/generated/matmul_i4.c @@ -100,7 +100,7 @@ matmul_i4 (gfc_array_i4 * retarray, gfc_array_i4 * a, gfc_array_i4 * b) retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * size0 ((array_t *) retarray)); - retarray->base = 0; + retarray->offset = 0; } abase = a->data; diff --git a/libgfortran/generated/matmul_i8.c b/libgfortran/generated/matmul_i8.c index 18d877e20f9..d5cc8cbc965 100644 --- a/libgfortran/generated/matmul_i8.c +++ b/libgfortran/generated/matmul_i8.c @@ -100,7 +100,7 @@ matmul_i8 (gfc_array_i8 * retarray, gfc_array_i8 * a, gfc_array_i8 * b) retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * size0 ((array_t *) retarray)); - retarray->base = 0; + retarray->offset = 0; } abase = a->data; diff --git a/libgfortran/generated/matmul_l4.c b/libgfortran/generated/matmul_l4.c index ba43dda2856..c2c0816345c 100644 --- a/libgfortran/generated/matmul_l4.c +++ b/libgfortran/generated/matmul_l4.c @@ -83,15 +83,15 @@ matmul_l4 (gfc_array_l4 * retarray, gfc_array_l4 * a, gfc_array_l4 * b) retarray->dim[0].lbound = 0; retarray->dim[0].ubound = a->dim[0].ubound - a->dim[0].lbound; retarray->dim[0].stride = 1; - + retarray->dim[1].lbound = 0; retarray->dim[1].ubound = b->dim[1].ubound - b->dim[1].lbound; retarray->dim[1].stride = retarray->dim[0].ubound+1; } - + retarray->data = internal_malloc_size (sizeof (GFC_LOGICAL_4) * size0 ((array_t *) retarray)); - retarray->base = 0; + retarray->offset = 0; } abase = a->data; diff --git a/libgfortran/generated/matmul_l8.c b/libgfortran/generated/matmul_l8.c index 75b48394999..c5647aedf06 100644 --- a/libgfortran/generated/matmul_l8.c +++ b/libgfortran/generated/matmul_l8.c @@ -83,15 +83,15 @@ matmul_l8 (gfc_array_l8 * retarray, gfc_array_l4 * a, gfc_array_l4 * b) retarray->dim[0].lbound = 0; retarray->dim[0].ubound = a->dim[0].ubound - a->dim[0].lbound; retarray->dim[0].stride = 1; - + retarray->dim[1].lbound = 0; retarray->dim[1].ubound = b->dim[1].ubound - b->dim[1].lbound; retarray->dim[1].stride = retarray->dim[0].ubound+1; } - + retarray->data = internal_malloc_size (sizeof (GFC_LOGICAL_8) * size0 ((array_t *) retarray)); - retarray->base = 0; + retarray->offset = 0; } abase = a->data; diff --git a/libgfortran/generated/matmul_r4.c b/libgfortran/generated/matmul_r4.c index 642dc943837..2e2327ecd97 100644 --- a/libgfortran/generated/matmul_r4.c +++ b/libgfortran/generated/matmul_r4.c @@ -100,7 +100,7 @@ matmul_r4 (gfc_array_r4 * retarray, gfc_array_r4 * a, gfc_array_r4 * b) retarray->data = internal_malloc_size (sizeof (GFC_REAL_4) * size0 ((array_t *) retarray)); - retarray->base = 0; + retarray->offset = 0; } abase = a->data; diff --git a/libgfortran/generated/matmul_r8.c b/libgfortran/generated/matmul_r8.c index 1eb53cd6c67..ac11c984f3a 100644 --- a/libgfortran/generated/matmul_r8.c +++ b/libgfortran/generated/matmul_r8.c @@ -100,7 +100,7 @@ matmul_r8 (gfc_array_r8 * retarray, gfc_array_r8 * a, gfc_array_r8 * b) retarray->data = internal_malloc_size (sizeof (GFC_REAL_8) * size0 ((array_t *) retarray)); - retarray->base = 0; + retarray->offset = 0; } abase = a->data; diff --git a/libgfortran/generated/maxloc0_4_i4.c b/libgfortran/generated/maxloc0_4_i4.c index 1839bdf6949..27acaaabc5f 100644 --- a/libgfortran/generated/maxloc0_4_i4.c +++ b/libgfortran/generated/maxloc0_4_i4.c @@ -62,7 +62,7 @@ maxloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array) retarray->dim[0].ubound = rank-1; retarray->dim[0].stride = 1; retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; - retarray->base = 0; + retarray->offset = 0; retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * rank); } else @@ -180,7 +180,7 @@ mmaxloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array, retarray->dim[0].ubound = rank-1; retarray->dim[0].stride = 1; retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; - retarray->base = 0; + retarray->offset = 0; retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * rank); } else diff --git a/libgfortran/generated/maxloc0_4_i8.c b/libgfortran/generated/maxloc0_4_i8.c index 51aecb93327..ea383f99b27 100644 --- a/libgfortran/generated/maxloc0_4_i8.c +++ b/libgfortran/generated/maxloc0_4_i8.c @@ -62,7 +62,7 @@ maxloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array) retarray->dim[0].ubound = rank-1; retarray->dim[0].stride = 1; retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; - retarray->base = 0; + retarray->offset = 0; retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * rank); } else @@ -180,7 +180,7 @@ mmaxloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array, retarray->dim[0].ubound = rank-1; retarray->dim[0].stride = 1; retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; - retarray->base = 0; + retarray->offset = 0; retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * rank); } else diff --git a/libgfortran/generated/maxloc0_4_r4.c b/libgfortran/generated/maxloc0_4_r4.c index 53fd0dc81d2..d09c89c78b0 100644 --- a/libgfortran/generated/maxloc0_4_r4.c +++ b/libgfortran/generated/maxloc0_4_r4.c @@ -62,7 +62,7 @@ maxloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array) retarray->dim[0].ubound = rank-1; retarray->dim[0].stride = 1; retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; - retarray->base = 0; + retarray->offset = 0; retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * rank); } else @@ -180,7 +180,7 @@ mmaxloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array, retarray->dim[0].ubound = rank-1; retarray->dim[0].stride = 1; retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; - retarray->base = 0; + retarray->offset = 0; retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * rank); } else diff --git a/libgfortran/generated/maxloc0_4_r8.c b/libgfortran/generated/maxloc0_4_r8.c index 612c8f6b2fc..6b5c7b29ba3 100644 --- a/libgfortran/generated/maxloc0_4_r8.c +++ b/libgfortran/generated/maxloc0_4_r8.c @@ -62,7 +62,7 @@ maxloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array) retarray->dim[0].ubound = rank-1; retarray->dim[0].stride = 1; retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; - retarray->base = 0; + retarray->offset = 0; retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * rank); } else @@ -180,7 +180,7 @@ mmaxloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array, retarray->dim[0].ubound = rank-1; retarray->dim[0].stride = 1; retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; - retarray->base = 0; + retarray->offset = 0; retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * rank); } else diff --git a/libgfortran/generated/maxloc0_8_i4.c b/libgfortran/generated/maxloc0_8_i4.c index c496e130217..5c8a369c4c2 100644 --- a/libgfortran/generated/maxloc0_8_i4.c +++ b/libgfortran/generated/maxloc0_8_i4.c @@ -62,7 +62,7 @@ maxloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array) retarray->dim[0].ubound = rank-1; retarray->dim[0].stride = 1; retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; - retarray->base = 0; + retarray->offset = 0; retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * rank); } else @@ -180,7 +180,7 @@ mmaxloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array, retarray->dim[0].ubound = rank-1; retarray->dim[0].stride = 1; retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; - retarray->base = 0; + retarray->offset = 0; retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * rank); } else diff --git a/libgfortran/generated/maxloc0_8_i8.c b/libgfortran/generated/maxloc0_8_i8.c index 1732564b84d..45325eadc83 100644 --- a/libgfortran/generated/maxloc0_8_i8.c +++ b/libgfortran/generated/maxloc0_8_i8.c @@ -62,7 +62,7 @@ maxloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array) retarray->dim[0].ubound = rank-1; retarray->dim[0].stride = 1; retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; - retarray->base = 0; + retarray->offset = 0; retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * rank); } else @@ -180,7 +180,7 @@ mmaxloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array, retarray->dim[0].ubound = rank-1; retarray->dim[0].stride = 1; retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; - retarray->base = 0; + retarray->offset = 0; retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * rank); } else diff --git a/libgfortran/generated/maxloc0_8_r4.c b/libgfortran/generated/maxloc0_8_r4.c index 96f47474f0f..6c3b836fc87 100644 --- a/libgfortran/generated/maxloc0_8_r4.c +++ b/libgfortran/generated/maxloc0_8_r4.c @@ -62,7 +62,7 @@ maxloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array) retarray->dim[0].ubound = rank-1; retarray->dim[0].stride = 1; retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; - retarray->base = 0; + retarray->offset = 0; retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * rank); } else @@ -180,7 +180,7 @@ mmaxloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array, retarray->dim[0].ubound = rank-1; retarray->dim[0].stride = 1; retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; - retarray->base = 0; + retarray->offset = 0; retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * rank); } else diff --git a/libgfortran/generated/maxloc0_8_r8.c b/libgfortran/generated/maxloc0_8_r8.c index 36b3fcf9a85..e77093d1199 100644 --- a/libgfortran/generated/maxloc0_8_r8.c +++ b/libgfortran/generated/maxloc0_8_r8.c @@ -62,7 +62,7 @@ maxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array) retarray->dim[0].ubound = rank-1; retarray->dim[0].stride = 1; retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; - retarray->base = 0; + retarray->offset = 0; retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * rank); } else @@ -180,7 +180,7 @@ mmaxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array, retarray->dim[0].ubound = rank-1; retarray->dim[0].stride = 1; retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; - retarray->base = 0; + retarray->offset = 0; retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * rank); } else diff --git a/libgfortran/generated/maxloc1_4_i4.c b/libgfortran/generated/maxloc1_4_i4.c index 45e143f2008..8a718dc5002 100644 --- a/libgfortran/generated/maxloc1_4_i4.c +++ b/libgfortran/generated/maxloc1_4_i4.c @@ -94,7 +94,7 @@ maxloc1_4_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_INTEGER_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -245,7 +245,7 @@ mmaxloc1_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array, = internal_malloc_size (sizeof (GFC_INTEGER_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/maxloc1_4_i8.c b/libgfortran/generated/maxloc1_4_i8.c index e196f935256..e4fa1e0c202 100644 --- a/libgfortran/generated/maxloc1_4_i8.c +++ b/libgfortran/generated/maxloc1_4_i8.c @@ -94,7 +94,7 @@ maxloc1_4_i8 (gfc_array_i4 *retarray, gfc_array_i8 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_INTEGER_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -245,7 +245,7 @@ mmaxloc1_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 * array, = internal_malloc_size (sizeof (GFC_INTEGER_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/maxloc1_4_r4.c b/libgfortran/generated/maxloc1_4_r4.c index cabd0c7faa9..ac64ccba5db 100644 --- a/libgfortran/generated/maxloc1_4_r4.c +++ b/libgfortran/generated/maxloc1_4_r4.c @@ -94,7 +94,7 @@ maxloc1_4_r4 (gfc_array_i4 *retarray, gfc_array_r4 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_INTEGER_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -245,7 +245,7 @@ mmaxloc1_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 * array, = internal_malloc_size (sizeof (GFC_INTEGER_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/maxloc1_4_r8.c b/libgfortran/generated/maxloc1_4_r8.c index 44c38b861d1..deaf7dc6fe4 100644 --- a/libgfortran/generated/maxloc1_4_r8.c +++ b/libgfortran/generated/maxloc1_4_r8.c @@ -94,7 +94,7 @@ maxloc1_4_r8 (gfc_array_i4 *retarray, gfc_array_r8 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_INTEGER_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -245,7 +245,7 @@ mmaxloc1_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 * array, = internal_malloc_size (sizeof (GFC_INTEGER_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/maxloc1_8_i4.c b/libgfortran/generated/maxloc1_8_i4.c index e05a8a2f46e..6f560ad61c9 100644 --- a/libgfortran/generated/maxloc1_8_i4.c +++ b/libgfortran/generated/maxloc1_8_i4.c @@ -94,7 +94,7 @@ maxloc1_8_i4 (gfc_array_i8 *retarray, gfc_array_i4 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_INTEGER_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -245,7 +245,7 @@ mmaxloc1_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 * array, = internal_malloc_size (sizeof (GFC_INTEGER_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/maxloc1_8_i8.c b/libgfortran/generated/maxloc1_8_i8.c index e2bf61c5c91..c1b0fa395a3 100644 --- a/libgfortran/generated/maxloc1_8_i8.c +++ b/libgfortran/generated/maxloc1_8_i8.c @@ -94,7 +94,7 @@ maxloc1_8_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_INTEGER_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -245,7 +245,7 @@ mmaxloc1_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array, = internal_malloc_size (sizeof (GFC_INTEGER_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/maxloc1_8_r4.c b/libgfortran/generated/maxloc1_8_r4.c index acce8bcb160..7eb68bfcc92 100644 --- a/libgfortran/generated/maxloc1_8_r4.c +++ b/libgfortran/generated/maxloc1_8_r4.c @@ -94,7 +94,7 @@ maxloc1_8_r4 (gfc_array_i8 *retarray, gfc_array_r4 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_INTEGER_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -245,7 +245,7 @@ mmaxloc1_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 * array, = internal_malloc_size (sizeof (GFC_INTEGER_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/maxloc1_8_r8.c b/libgfortran/generated/maxloc1_8_r8.c index f3487226a3d..2311180a49c 100644 --- a/libgfortran/generated/maxloc1_8_r8.c +++ b/libgfortran/generated/maxloc1_8_r8.c @@ -94,7 +94,7 @@ maxloc1_8_r8 (gfc_array_i8 *retarray, gfc_array_r8 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_INTEGER_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -245,7 +245,7 @@ mmaxloc1_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 * array, = internal_malloc_size (sizeof (GFC_INTEGER_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/maxval_i4.c b/libgfortran/generated/maxval_i4.c index bf9d71219bf..7e2bb194767 100644 --- a/libgfortran/generated/maxval_i4.c +++ b/libgfortran/generated/maxval_i4.c @@ -93,7 +93,7 @@ maxval_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_INTEGER_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -239,7 +239,7 @@ mmaxval_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array, = internal_malloc_size (sizeof (GFC_INTEGER_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/maxval_i8.c b/libgfortran/generated/maxval_i8.c index 175b7f3c488..cb58a877540 100644 --- a/libgfortran/generated/maxval_i8.c +++ b/libgfortran/generated/maxval_i8.c @@ -93,7 +93,7 @@ maxval_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_INTEGER_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -239,7 +239,7 @@ mmaxval_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array, = internal_malloc_size (sizeof (GFC_INTEGER_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/maxval_r4.c b/libgfortran/generated/maxval_r4.c index fc86f69d0f6..b6b2bfacdc8 100644 --- a/libgfortran/generated/maxval_r4.c +++ b/libgfortran/generated/maxval_r4.c @@ -93,7 +93,7 @@ maxval_r4 (gfc_array_r4 *retarray, gfc_array_r4 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_REAL_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -239,7 +239,7 @@ mmaxval_r4 (gfc_array_r4 * retarray, gfc_array_r4 * array, = internal_malloc_size (sizeof (GFC_REAL_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/maxval_r8.c b/libgfortran/generated/maxval_r8.c index 3d1a1cf89cb..abfa7776383 100644 --- a/libgfortran/generated/maxval_r8.c +++ b/libgfortran/generated/maxval_r8.c @@ -93,7 +93,7 @@ maxval_r8 (gfc_array_r8 *retarray, gfc_array_r8 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_REAL_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -239,7 +239,7 @@ mmaxval_r8 (gfc_array_r8 * retarray, gfc_array_r8 * array, = internal_malloc_size (sizeof (GFC_REAL_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/minloc0_4_i4.c b/libgfortran/generated/minloc0_4_i4.c index 8f2dd235b5f..7d59bc1e7bd 100644 --- a/libgfortran/generated/minloc0_4_i4.c +++ b/libgfortran/generated/minloc0_4_i4.c @@ -62,7 +62,7 @@ minloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array) retarray->dim[0].ubound = rank-1; retarray->dim[0].stride = 1; retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; - retarray->base = 0; + retarray->offset = 0; retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * rank); } else @@ -180,7 +180,7 @@ mminloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array, retarray->dim[0].ubound = rank-1; retarray->dim[0].stride = 1; retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; - retarray->base = 0; + retarray->offset = 0; retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * rank); } else diff --git a/libgfortran/generated/minloc0_4_i8.c b/libgfortran/generated/minloc0_4_i8.c index 0a50caaf777..e34b5a823bb 100644 --- a/libgfortran/generated/minloc0_4_i8.c +++ b/libgfortran/generated/minloc0_4_i8.c @@ -62,7 +62,7 @@ minloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array) retarray->dim[0].ubound = rank-1; retarray->dim[0].stride = 1; retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; - retarray->base = 0; + retarray->offset = 0; retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * rank); } else @@ -180,7 +180,7 @@ mminloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array, retarray->dim[0].ubound = rank-1; retarray->dim[0].stride = 1; retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; - retarray->base = 0; + retarray->offset = 0; retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * rank); } else diff --git a/libgfortran/generated/minloc0_4_r4.c b/libgfortran/generated/minloc0_4_r4.c index 59809d777ea..67cff096a9a 100644 --- a/libgfortran/generated/minloc0_4_r4.c +++ b/libgfortran/generated/minloc0_4_r4.c @@ -62,7 +62,7 @@ minloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array) retarray->dim[0].ubound = rank-1; retarray->dim[0].stride = 1; retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; - retarray->base = 0; + retarray->offset = 0; retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * rank); } else @@ -180,7 +180,7 @@ mminloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array, retarray->dim[0].ubound = rank-1; retarray->dim[0].stride = 1; retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; - retarray->base = 0; + retarray->offset = 0; retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * rank); } else diff --git a/libgfortran/generated/minloc0_4_r8.c b/libgfortran/generated/minloc0_4_r8.c index 69d1cdb0422..7079b3ca34f 100644 --- a/libgfortran/generated/minloc0_4_r8.c +++ b/libgfortran/generated/minloc0_4_r8.c @@ -62,7 +62,7 @@ minloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array) retarray->dim[0].ubound = rank-1; retarray->dim[0].stride = 1; retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; - retarray->base = 0; + retarray->offset = 0; retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * rank); } else @@ -180,7 +180,7 @@ mminloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array, retarray->dim[0].ubound = rank-1; retarray->dim[0].stride = 1; retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; - retarray->base = 0; + retarray->offset = 0; retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * rank); } else diff --git a/libgfortran/generated/minloc0_8_i4.c b/libgfortran/generated/minloc0_8_i4.c index c8989fc56bb..e7769c4e2fb 100644 --- a/libgfortran/generated/minloc0_8_i4.c +++ b/libgfortran/generated/minloc0_8_i4.c @@ -62,7 +62,7 @@ minloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array) retarray->dim[0].ubound = rank-1; retarray->dim[0].stride = 1; retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; - retarray->base = 0; + retarray->offset = 0; retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * rank); } else @@ -180,7 +180,7 @@ mminloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array, retarray->dim[0].ubound = rank-1; retarray->dim[0].stride = 1; retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; - retarray->base = 0; + retarray->offset = 0; retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * rank); } else diff --git a/libgfortran/generated/minloc0_8_i8.c b/libgfortran/generated/minloc0_8_i8.c index 8f1aa2441bb..010cb34f40a 100644 --- a/libgfortran/generated/minloc0_8_i8.c +++ b/libgfortran/generated/minloc0_8_i8.c @@ -62,7 +62,7 @@ minloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array) retarray->dim[0].ubound = rank-1; retarray->dim[0].stride = 1; retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; - retarray->base = 0; + retarray->offset = 0; retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * rank); } else @@ -180,7 +180,7 @@ mminloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array, retarray->dim[0].ubound = rank-1; retarray->dim[0].stride = 1; retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; - retarray->base = 0; + retarray->offset = 0; retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * rank); } else diff --git a/libgfortran/generated/minloc0_8_r4.c b/libgfortran/generated/minloc0_8_r4.c index 4407ddfd8c9..95ad69293d5 100644 --- a/libgfortran/generated/minloc0_8_r4.c +++ b/libgfortran/generated/minloc0_8_r4.c @@ -62,7 +62,7 @@ minloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array) retarray->dim[0].ubound = rank-1; retarray->dim[0].stride = 1; retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; - retarray->base = 0; + retarray->offset = 0; retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * rank); } else @@ -180,7 +180,7 @@ mminloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array, retarray->dim[0].ubound = rank-1; retarray->dim[0].stride = 1; retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; - retarray->base = 0; + retarray->offset = 0; retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * rank); } else diff --git a/libgfortran/generated/minloc0_8_r8.c b/libgfortran/generated/minloc0_8_r8.c index 468322317eb..68c6e84151d 100644 --- a/libgfortran/generated/minloc0_8_r8.c +++ b/libgfortran/generated/minloc0_8_r8.c @@ -62,7 +62,7 @@ minloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array) retarray->dim[0].ubound = rank-1; retarray->dim[0].stride = 1; retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; - retarray->base = 0; + retarray->offset = 0; retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * rank); } else @@ -180,7 +180,7 @@ mminloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array, retarray->dim[0].ubound = rank-1; retarray->dim[0].stride = 1; retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; - retarray->base = 0; + retarray->offset = 0; retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * rank); } else diff --git a/libgfortran/generated/minloc1_4_i4.c b/libgfortran/generated/minloc1_4_i4.c index 04fadb6481f..7f961afdd10 100644 --- a/libgfortran/generated/minloc1_4_i4.c +++ b/libgfortran/generated/minloc1_4_i4.c @@ -94,7 +94,7 @@ minloc1_4_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_INTEGER_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -245,7 +245,7 @@ mminloc1_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array, = internal_malloc_size (sizeof (GFC_INTEGER_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/minloc1_4_i8.c b/libgfortran/generated/minloc1_4_i8.c index b2922c8db5f..8770f7c426d 100644 --- a/libgfortran/generated/minloc1_4_i8.c +++ b/libgfortran/generated/minloc1_4_i8.c @@ -94,7 +94,7 @@ minloc1_4_i8 (gfc_array_i4 *retarray, gfc_array_i8 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_INTEGER_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -245,7 +245,7 @@ mminloc1_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 * array, = internal_malloc_size (sizeof (GFC_INTEGER_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/minloc1_4_r4.c b/libgfortran/generated/minloc1_4_r4.c index efec5850dae..97f3734205d 100644 --- a/libgfortran/generated/minloc1_4_r4.c +++ b/libgfortran/generated/minloc1_4_r4.c @@ -94,7 +94,7 @@ minloc1_4_r4 (gfc_array_i4 *retarray, gfc_array_r4 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_INTEGER_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -245,7 +245,7 @@ mminloc1_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 * array, = internal_malloc_size (sizeof (GFC_INTEGER_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/minloc1_4_r8.c b/libgfortran/generated/minloc1_4_r8.c index 95bc2a6ae06..52100877db2 100644 --- a/libgfortran/generated/minloc1_4_r8.c +++ b/libgfortran/generated/minloc1_4_r8.c @@ -94,7 +94,7 @@ minloc1_4_r8 (gfc_array_i4 *retarray, gfc_array_r8 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_INTEGER_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -245,7 +245,7 @@ mminloc1_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 * array, = internal_malloc_size (sizeof (GFC_INTEGER_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/minloc1_8_i4.c b/libgfortran/generated/minloc1_8_i4.c index 11b1f7118ac..322f98edaad 100644 --- a/libgfortran/generated/minloc1_8_i4.c +++ b/libgfortran/generated/minloc1_8_i4.c @@ -94,7 +94,7 @@ minloc1_8_i4 (gfc_array_i8 *retarray, gfc_array_i4 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_INTEGER_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -245,7 +245,7 @@ mminloc1_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 * array, = internal_malloc_size (sizeof (GFC_INTEGER_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/minloc1_8_i8.c b/libgfortran/generated/minloc1_8_i8.c index 4235bdec2dc..e9c2088a8fc 100644 --- a/libgfortran/generated/minloc1_8_i8.c +++ b/libgfortran/generated/minloc1_8_i8.c @@ -94,7 +94,7 @@ minloc1_8_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_INTEGER_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -245,7 +245,7 @@ mminloc1_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array, = internal_malloc_size (sizeof (GFC_INTEGER_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/minloc1_8_r4.c b/libgfortran/generated/minloc1_8_r4.c index a679a65a195..d0d74e49830 100644 --- a/libgfortran/generated/minloc1_8_r4.c +++ b/libgfortran/generated/minloc1_8_r4.c @@ -94,7 +94,7 @@ minloc1_8_r4 (gfc_array_i8 *retarray, gfc_array_r4 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_INTEGER_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -245,7 +245,7 @@ mminloc1_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 * array, = internal_malloc_size (sizeof (GFC_INTEGER_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/minloc1_8_r8.c b/libgfortran/generated/minloc1_8_r8.c index 177ba6d4a98..8d0dec6da48 100644 --- a/libgfortran/generated/minloc1_8_r8.c +++ b/libgfortran/generated/minloc1_8_r8.c @@ -94,7 +94,7 @@ minloc1_8_r8 (gfc_array_i8 *retarray, gfc_array_r8 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_INTEGER_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -245,7 +245,7 @@ mminloc1_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 * array, = internal_malloc_size (sizeof (GFC_INTEGER_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/minval_i4.c b/libgfortran/generated/minval_i4.c index 097419697be..146508ed81a 100644 --- a/libgfortran/generated/minval_i4.c +++ b/libgfortran/generated/minval_i4.c @@ -93,7 +93,7 @@ minval_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_INTEGER_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -239,7 +239,7 @@ mminval_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array, = internal_malloc_size (sizeof (GFC_INTEGER_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/minval_i8.c b/libgfortran/generated/minval_i8.c index a969bfdc880..3ff45c1cda0 100644 --- a/libgfortran/generated/minval_i8.c +++ b/libgfortran/generated/minval_i8.c @@ -93,7 +93,7 @@ minval_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_INTEGER_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -239,7 +239,7 @@ mminval_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array, = internal_malloc_size (sizeof (GFC_INTEGER_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/minval_r4.c b/libgfortran/generated/minval_r4.c index fe1a2242185..a17294226b1 100644 --- a/libgfortran/generated/minval_r4.c +++ b/libgfortran/generated/minval_r4.c @@ -93,7 +93,7 @@ minval_r4 (gfc_array_r4 *retarray, gfc_array_r4 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_REAL_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -239,7 +239,7 @@ mminval_r4 (gfc_array_r4 * retarray, gfc_array_r4 * array, = internal_malloc_size (sizeof (GFC_REAL_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/minval_r8.c b/libgfortran/generated/minval_r8.c index 050b3c9dfeb..7f66c2a7fd4 100644 --- a/libgfortran/generated/minval_r8.c +++ b/libgfortran/generated/minval_r8.c @@ -93,7 +93,7 @@ minval_r8 (gfc_array_r8 *retarray, gfc_array_r8 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_REAL_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -239,7 +239,7 @@ mminval_r8 (gfc_array_r8 * retarray, gfc_array_r8 * array, = internal_malloc_size (sizeof (GFC_REAL_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/product_c4.c b/libgfortran/generated/product_c4.c index 2cee7978ebc..db7baf832a8 100644 --- a/libgfortran/generated/product_c4.c +++ b/libgfortran/generated/product_c4.c @@ -92,7 +92,7 @@ product_c4 (gfc_array_c4 *retarray, gfc_array_c4 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_COMPLEX_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -237,7 +237,7 @@ mproduct_c4 (gfc_array_c4 * retarray, gfc_array_c4 * array, = internal_malloc_size (sizeof (GFC_COMPLEX_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/product_c8.c b/libgfortran/generated/product_c8.c index 6eaeb7a90f4..0bcd5287f36 100644 --- a/libgfortran/generated/product_c8.c +++ b/libgfortran/generated/product_c8.c @@ -92,7 +92,7 @@ product_c8 (gfc_array_c8 *retarray, gfc_array_c8 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_COMPLEX_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -237,7 +237,7 @@ mproduct_c8 (gfc_array_c8 * retarray, gfc_array_c8 * array, = internal_malloc_size (sizeof (GFC_COMPLEX_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/product_i4.c b/libgfortran/generated/product_i4.c index 0a58d04dcca..7f23db7e039 100644 --- a/libgfortran/generated/product_i4.c +++ b/libgfortran/generated/product_i4.c @@ -92,7 +92,7 @@ product_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_INTEGER_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -237,7 +237,7 @@ mproduct_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array, = internal_malloc_size (sizeof (GFC_INTEGER_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/product_i8.c b/libgfortran/generated/product_i8.c index 1e61c52c8d4..8d859a47695 100644 --- a/libgfortran/generated/product_i8.c +++ b/libgfortran/generated/product_i8.c @@ -92,7 +92,7 @@ product_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_INTEGER_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -237,7 +237,7 @@ mproduct_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array, = internal_malloc_size (sizeof (GFC_INTEGER_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/product_r4.c b/libgfortran/generated/product_r4.c index 586c80c1d2f..8cc80d1192f 100644 --- a/libgfortran/generated/product_r4.c +++ b/libgfortran/generated/product_r4.c @@ -92,7 +92,7 @@ product_r4 (gfc_array_r4 *retarray, gfc_array_r4 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_REAL_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -237,7 +237,7 @@ mproduct_r4 (gfc_array_r4 * retarray, gfc_array_r4 * array, = internal_malloc_size (sizeof (GFC_REAL_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/product_r8.c b/libgfortran/generated/product_r8.c index 3be015136e9..57e7008de9e 100644 --- a/libgfortran/generated/product_r8.c +++ b/libgfortran/generated/product_r8.c @@ -92,7 +92,7 @@ product_r8 (gfc_array_r8 *retarray, gfc_array_r8 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_REAL_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -237,7 +237,7 @@ mproduct_r8 (gfc_array_r8 * retarray, gfc_array_r8 * array, = internal_malloc_size (sizeof (GFC_REAL_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/reshape_c4.c b/libgfortran/generated/reshape_c4.c index 4a9c14d56f6..cac328cbdf5 100644 --- a/libgfortran/generated/reshape_c4.c +++ b/libgfortran/generated/reshape_c4.c @@ -97,7 +97,7 @@ reshape_c4 (gfc_array_c4 * ret, gfc_array_c4 * source, shape_type * shape, ret->dim[n].stride = rs; rs *= rex; } - ret->base = 0; + ret->offset = 0; ret->data = internal_malloc_size ( rs * sizeof (GFC_COMPLEX_4)); ret->dtype = (source->dtype & ~GFC_DTYPE_RANK_MASK) | rdim; } diff --git a/libgfortran/generated/reshape_c8.c b/libgfortran/generated/reshape_c8.c index c12735a4e1e..9fbd615b3c4 100644 --- a/libgfortran/generated/reshape_c8.c +++ b/libgfortran/generated/reshape_c8.c @@ -97,7 +97,7 @@ reshape_c8 (gfc_array_c8 * ret, gfc_array_c8 * source, shape_type * shape, ret->dim[n].stride = rs; rs *= rex; } - ret->base = 0; + ret->offset = 0; ret->data = internal_malloc_size ( rs * sizeof (GFC_COMPLEX_8)); ret->dtype = (source->dtype & ~GFC_DTYPE_RANK_MASK) | rdim; } diff --git a/libgfortran/generated/reshape_i4.c b/libgfortran/generated/reshape_i4.c index 465ca24381b..99e3db4192d 100644 --- a/libgfortran/generated/reshape_i4.c +++ b/libgfortran/generated/reshape_i4.c @@ -97,7 +97,7 @@ reshape_4 (gfc_array_i4 * ret, gfc_array_i4 * source, shape_type * shape, ret->dim[n].stride = rs; rs *= rex; } - ret->base = 0; + ret->offset = 0; ret->data = internal_malloc_size ( rs * sizeof (GFC_INTEGER_4)); ret->dtype = (source->dtype & ~GFC_DTYPE_RANK_MASK) | rdim; } diff --git a/libgfortran/generated/reshape_i8.c b/libgfortran/generated/reshape_i8.c index 41a25ff66ba..e0858633724 100644 --- a/libgfortran/generated/reshape_i8.c +++ b/libgfortran/generated/reshape_i8.c @@ -97,7 +97,7 @@ reshape_8 (gfc_array_i8 * ret, gfc_array_i8 * source, shape_type * shape, ret->dim[n].stride = rs; rs *= rex; } - ret->base = 0; + ret->offset = 0; ret->data = internal_malloc_size ( rs * sizeof (GFC_INTEGER_8)); ret->dtype = (source->dtype & ~GFC_DTYPE_RANK_MASK) | rdim; } diff --git a/libgfortran/generated/sum_c4.c b/libgfortran/generated/sum_c4.c index 89b32f03985..129b9190bcc 100644 --- a/libgfortran/generated/sum_c4.c +++ b/libgfortran/generated/sum_c4.c @@ -92,7 +92,7 @@ sum_c4 (gfc_array_c4 *retarray, gfc_array_c4 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_COMPLEX_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -237,7 +237,7 @@ msum_c4 (gfc_array_c4 * retarray, gfc_array_c4 * array, = internal_malloc_size (sizeof (GFC_COMPLEX_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/sum_c8.c b/libgfortran/generated/sum_c8.c index c7674ebfe72..ff37c029e35 100644 --- a/libgfortran/generated/sum_c8.c +++ b/libgfortran/generated/sum_c8.c @@ -92,7 +92,7 @@ sum_c8 (gfc_array_c8 *retarray, gfc_array_c8 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_COMPLEX_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -237,7 +237,7 @@ msum_c8 (gfc_array_c8 * retarray, gfc_array_c8 * array, = internal_malloc_size (sizeof (GFC_COMPLEX_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/sum_i4.c b/libgfortran/generated/sum_i4.c index 76106bf8110..ec24a1107df 100644 --- a/libgfortran/generated/sum_i4.c +++ b/libgfortran/generated/sum_i4.c @@ -92,7 +92,7 @@ sum_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_INTEGER_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -237,7 +237,7 @@ msum_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array, = internal_malloc_size (sizeof (GFC_INTEGER_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/sum_i8.c b/libgfortran/generated/sum_i8.c index 16d04116c85..4e2991f84b2 100644 --- a/libgfortran/generated/sum_i8.c +++ b/libgfortran/generated/sum_i8.c @@ -92,7 +92,7 @@ sum_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_INTEGER_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -237,7 +237,7 @@ msum_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array, = internal_malloc_size (sizeof (GFC_INTEGER_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/sum_r4.c b/libgfortran/generated/sum_r4.c index c9b36cd07f8..84477928f74 100644 --- a/libgfortran/generated/sum_r4.c +++ b/libgfortran/generated/sum_r4.c @@ -92,7 +92,7 @@ sum_r4 (gfc_array_r4 *retarray, gfc_array_r4 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_REAL_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -237,7 +237,7 @@ msum_r4 (gfc_array_r4 * retarray, gfc_array_r4 * array, = internal_malloc_size (sizeof (GFC_REAL_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/sum_r8.c b/libgfortran/generated/sum_r8.c index a4d260595f0..3c57ce80e3a 100644 --- a/libgfortran/generated/sum_r8.c +++ b/libgfortran/generated/sum_r8.c @@ -92,7 +92,7 @@ sum_r8 (gfc_array_r8 *retarray, gfc_array_r8 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_REAL_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -237,7 +237,7 @@ msum_r8 (gfc_array_r8 * retarray, gfc_array_r8 * array, = internal_malloc_size (sizeof (GFC_REAL_8) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/generated/transpose_c4.c b/libgfortran/generated/transpose_c4.c index 76e6332730d..7e1e734eaab 100644 --- a/libgfortran/generated/transpose_c4.c +++ b/libgfortran/generated/transpose_c4.c @@ -64,7 +64,7 @@ transpose_c4 (gfc_array_c4 * ret, gfc_array_c4 * source) ret->dim[1].stride = ret->dim[0].ubound+1; ret->data = internal_malloc_size (sizeof (GFC_COMPLEX_4) * size0 ((array_t *) ret)); - ret->base = 0; + ret->offset = 0; } if (ret->dim[0].stride == 0) diff --git a/libgfortran/generated/transpose_c8.c b/libgfortran/generated/transpose_c8.c index 6e45b760640..78d84d01a1c 100644 --- a/libgfortran/generated/transpose_c8.c +++ b/libgfortran/generated/transpose_c8.c @@ -64,7 +64,7 @@ transpose_c8 (gfc_array_c8 * ret, gfc_array_c8 * source) ret->dim[1].stride = ret->dim[0].ubound+1; ret->data = internal_malloc_size (sizeof (GFC_COMPLEX_8) * size0 ((array_t *) ret)); - ret->base = 0; + ret->offset = 0; } if (ret->dim[0].stride == 0) diff --git a/libgfortran/generated/transpose_i4.c b/libgfortran/generated/transpose_i4.c index af5041e19b5..75a78a064f5 100644 --- a/libgfortran/generated/transpose_i4.c +++ b/libgfortran/generated/transpose_i4.c @@ -64,7 +64,7 @@ transpose_i4 (gfc_array_i4 * ret, gfc_array_i4 * source) ret->dim[1].stride = ret->dim[0].ubound+1; ret->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * size0 ((array_t *) ret)); - ret->base = 0; + ret->offset = 0; } if (ret->dim[0].stride == 0) diff --git a/libgfortran/generated/transpose_i8.c b/libgfortran/generated/transpose_i8.c index 605ac7286f2..c0e1121f593 100644 --- a/libgfortran/generated/transpose_i8.c +++ b/libgfortran/generated/transpose_i8.c @@ -64,7 +64,7 @@ transpose_i8 (gfc_array_i8 * ret, gfc_array_i8 * source) ret->dim[1].stride = ret->dim[0].ubound+1; ret->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * size0 ((array_t *) ret)); - ret->base = 0; + ret->offset = 0; } if (ret->dim[0].stride == 0) diff --git a/libgfortran/intrinsics/cshift0.c b/libgfortran/intrinsics/cshift0.c index 61fd9016c9c..499991bacfa 100644 --- a/libgfortran/intrinsics/cshift0.c +++ b/libgfortran/intrinsics/cshift0.c @@ -148,7 +148,7 @@ cshift0 (gfc_array_char * ret, const gfc_array_char * array, int i; ret->data = internal_malloc_size (size * size0 ((array_t *)array)); - ret->base = 0; + ret->offset = 0; ret->dtype = array->dtype; for (i = 0; i < GFC_DESCRIPTOR_RANK (array); i++) { diff --git a/libgfortran/intrinsics/eoshift0.c b/libgfortran/intrinsics/eoshift0.c index 6152e9fccbd..0ab1d34dd67 100644 --- a/libgfortran/intrinsics/eoshift0.c +++ b/libgfortran/intrinsics/eoshift0.c @@ -80,7 +80,7 @@ eoshift0 (gfc_array_char * ret, const gfc_array_char * array, int i; ret->data = internal_malloc_size (size * size0 ((array_t *)array)); - ret->base = 0; + ret->offset = 0; ret->dtype = array->dtype; for (i = 0; i < GFC_DESCRIPTOR_RANK (array); i++) { diff --git a/libgfortran/intrinsics/eoshift2.c b/libgfortran/intrinsics/eoshift2.c index 4e2b41ba7d3..1580bc2d53d 100644 --- a/libgfortran/intrinsics/eoshift2.c +++ b/libgfortran/intrinsics/eoshift2.c @@ -81,7 +81,7 @@ eoshift2 (gfc_array_char *ret, const gfc_array_char *array, int i; ret->data = internal_malloc_size (size * size0 ((array_t *)array)); - ret->base = 0; + ret->offset = 0; ret->dtype = array->dtype; for (i = 0; i < GFC_DESCRIPTOR_RANK (array); i++) { diff --git a/libgfortran/intrinsics/pack_generic.c b/libgfortran/intrinsics/pack_generic.c index 06298bb23ef..00c55a889c1 100644 --- a/libgfortran/intrinsics/pack_generic.c +++ b/libgfortran/intrinsics/pack_generic.c @@ -201,7 +201,7 @@ pack (gfc_array_char *ret, const gfc_array_char *array, ret->dim[0].stride = 1; ret->data = internal_malloc_size (size * total); - ret->base = 0; + ret->offset = 0; if (total == 0) /* In this case, nothing remains to be done. */ @@ -342,7 +342,7 @@ pack_s (gfc_array_char *ret, const gfc_array_char *array, ret->dim[0].ubound = -1; ret->dim[0].stride = 1; ret->data = internal_malloc_size (0); - ret->base = 0; + ret->offset = 0; return; } @@ -354,7 +354,7 @@ pack_s (gfc_array_char *ret, const gfc_array_char *array, ret->dim[0].stride = 1; ret->data = internal_malloc_size (size * total); - ret->base = 0; + ret->offset = 0; } rstride0 = ret->dim[0].stride * size; diff --git a/libgfortran/intrinsics/reshape_generic.c b/libgfortran/intrinsics/reshape_generic.c index 75db5eafd24..265bfb99e63 100644 --- a/libgfortran/intrinsics/reshape_generic.c +++ b/libgfortran/intrinsics/reshape_generic.c @@ -100,7 +100,7 @@ reshape (parray *ret, parray *source, shape_type *shape, ret->dim[n].stride = rs; rs *= rex; } - ret->base = 0; + ret->offset = 0; ret->data = internal_malloc_size ( rs * size ); ret->dtype = (source->dtype & ~GFC_DTYPE_RANK_MASK) | rdim; } diff --git a/libgfortran/intrinsics/spread_generic.c b/libgfortran/intrinsics/spread_generic.c index 01152870688..f1035b0c533 100644 --- a/libgfortran/intrinsics/spread_generic.c +++ b/libgfortran/intrinsics/spread_generic.c @@ -105,7 +105,7 @@ spread (gfc_array_char *ret, const gfc_array_char *source, dim++; } } - ret->base = 0; + ret->offset = 0; ret->data = internal_malloc_size (rs * size); } else diff --git a/libgfortran/intrinsics/transpose_generic.c b/libgfortran/intrinsics/transpose_generic.c index 201e3e1e8cb..fd26e605345 100644 --- a/libgfortran/intrinsics/transpose_generic.c +++ b/libgfortran/intrinsics/transpose_generic.c @@ -69,7 +69,7 @@ transpose (gfc_array_char *ret, gfc_array_char *source) ret->dim[1].stride = ret->dim[0].ubound+1; ret->data = internal_malloc_size (size * size0 ((array_t*)ret)); - ret->base = 0; + ret->offset = 0; } sxstride = source->dim[0].stride * size; diff --git a/libgfortran/intrinsics/unpack_generic.c b/libgfortran/intrinsics/unpack_generic.c index d8e1230a79c..929e1c36397 100644 --- a/libgfortran/intrinsics/unpack_generic.c +++ b/libgfortran/intrinsics/unpack_generic.c @@ -87,7 +87,7 @@ unpack1 (gfc_array_char *ret, const gfc_array_char *vector, mstride[n] = mask->dim[n].stride; rs *= extent[n]; } - ret->base = 0; + ret->offset = 0; ret->data = internal_malloc_size (rs * size); } else diff --git a/libgfortran/libgfortran.h b/libgfortran/libgfortran.h index 0064edf68a0..ccba2a764be 100644 --- a/libgfortran/libgfortran.h +++ b/libgfortran/libgfortran.h @@ -235,7 +235,7 @@ descriptor_dimension; #define GFC_ARRAY_DESCRIPTOR(r, type) \ struct {\ type *data;\ - type *base;\ + size_t offset;\ index_type dtype;\ descriptor_dimension dim[r];\ } diff --git a/libgfortran/m4/cshift1.m4 b/libgfortran/m4/cshift1.m4 index dd7653ab517..2384097a51c 100644 --- a/libgfortran/m4/cshift1.m4 +++ b/libgfortran/m4/cshift1.m4 @@ -86,7 +86,7 @@ cshift1_`'atype_kind (gfc_array_char * ret, int i; ret->data = internal_malloc_size (size * size0 ((array_t *)array)); - ret->base = 0; + ret->offset = 0; ret->dtype = array->dtype; for (i = 0; i < GFC_DESCRIPTOR_RANK (array); i++) { diff --git a/libgfortran/m4/eoshift1.m4 b/libgfortran/m4/eoshift1.m4 index a650f952a64..36b88420327 100644 --- a/libgfortran/m4/eoshift1.m4 +++ b/libgfortran/m4/eoshift1.m4 @@ -102,7 +102,7 @@ eoshift1_`'atype_kind (gfc_array_char *ret, int i; ret->data = internal_malloc_size (size * size0 ((array_t *)array)); - ret->base = 0; + ret->offset = 0; ret->dtype = array->dtype; for (i = 0; i < GFC_DESCRIPTOR_RANK (array); i++) { diff --git a/libgfortran/m4/eoshift3.m4 b/libgfortran/m4/eoshift3.m4 index 1e04113e12b..8acceeae919 100644 --- a/libgfortran/m4/eoshift3.m4 +++ b/libgfortran/m4/eoshift3.m4 @@ -96,7 +96,7 @@ eoshift3_`'atype_kind (gfc_array_char *ret, gfc_array_char *array, int i; ret->data = internal_malloc_size (size * size0 ((array_t *)array)); - ret->base = 0; + ret->offset = 0; ret->dtype = array->dtype; for (i = 0; i < GFC_DESCRIPTOR_RANK (array); i++) { diff --git a/libgfortran/m4/iforeach.m4 b/libgfortran/m4/iforeach.m4 index 39af3afef09..837c6ac802a 100644 --- a/libgfortran/m4/iforeach.m4 +++ b/libgfortran/m4/iforeach.m4 @@ -29,7 +29,7 @@ name`'rtype_qual`_'atype_code (rtype * retarray, atype *array) retarray->dim[0].ubound = rank-1; retarray->dim[0].stride = 1; retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; - retarray->base = 0; + retarray->offset = 0; retarray->data = internal_malloc_size (sizeof (rtype_name) * rank); } else @@ -139,7 +139,7 @@ void retarray->dim[0].ubound = rank-1; retarray->dim[0].stride = 1; retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; - retarray->base = 0; + retarray->offset = 0; retarray->data = internal_malloc_size (sizeof (rtype_name) * rank); } else diff --git a/libgfortran/m4/ifunction.m4 b/libgfortran/m4/ifunction.m4 index 7da24108d8b..cafe3f4e8f4 100644 --- a/libgfortran/m4/ifunction.m4 +++ b/libgfortran/m4/ifunction.m4 @@ -77,7 +77,7 @@ name`'rtype_qual`_'atype_code (rtype *retarray, atype *array, index_type *pdim) = internal_malloc_size (sizeof (rtype_name) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -222,7 +222,7 @@ void = internal_malloc_size (sizeof (rtype_name) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else diff --git a/libgfortran/m4/matmul.m4 b/libgfortran/m4/matmul.m4 index 1801583f026..0ce1b08907f 100644 --- a/libgfortran/m4/matmul.m4 +++ b/libgfortran/m4/matmul.m4 @@ -101,7 +101,7 @@ matmul_`'rtype_code (rtype * retarray, rtype * a, rtype * b) retarray->data = internal_malloc_size (sizeof (rtype_name) * size0 ((array_t *) retarray)); - retarray->base = 0; + retarray->offset = 0; } abase = a->data; diff --git a/libgfortran/m4/matmull.m4 b/libgfortran/m4/matmull.m4 index 02a5adb37d0..4f3375dea51 100644 --- a/libgfortran/m4/matmull.m4 +++ b/libgfortran/m4/matmull.m4 @@ -92,7 +92,7 @@ matmul_`'rtype_code (rtype * retarray, gfc_array_l4 * a, gfc_array_l4 * b) retarray->data = internal_malloc_size (sizeof (rtype_name) * size0 ((array_t *) retarray)); - retarray->base = 0; + retarray->offset = 0; } abase = a->data; diff --git a/libgfortran/m4/reshape.m4 b/libgfortran/m4/reshape.m4 index ae26a88aef0..e0db3315ae9 100644 --- a/libgfortran/m4/reshape.m4 +++ b/libgfortran/m4/reshape.m4 @@ -99,7 +99,7 @@ reshape_`'rtype_ccode (rtype * ret, rtype * source, shape_type * shape, ret->dim[n].stride = rs; rs *= rex; } - ret->base = 0; + ret->offset = 0; ret->data = internal_malloc_size ( rs * sizeof (rtype_name)); ret->dtype = (source->dtype & ~GFC_DTYPE_RANK_MASK) | rdim; } diff --git a/libgfortran/m4/transpose.m4 b/libgfortran/m4/transpose.m4 index 2ec1495a40a..fc0e3d8e869 100644 --- a/libgfortran/m4/transpose.m4 +++ b/libgfortran/m4/transpose.m4 @@ -65,7 +65,7 @@ transpose_`'rtype_code (rtype * ret, rtype * source) ret->dim[1].stride = ret->dim[0].ubound+1; ret->data = internal_malloc_size (sizeof (rtype_name) * size0 ((array_t *) ret)); - ret->base = 0; + ret->offset = 0; } if (ret->dim[0].stride == 0) |