| Index: gcc/libgfortran/generated/cshift0_r4.c
|
| diff --git a/gcc/libgfortran/generated/cshift0_r4.c b/gcc/libgfortran/generated/cshift0_r4.c
|
| index 176be1fdda1d3a6fcfbfa29d4d5f4cc55eceb0de..515c36b41fca74b9d8ea3be06e11d92f843267b5 100644
|
| --- a/gcc/libgfortran/generated/cshift0_r4.c
|
| +++ b/gcc/libgfortran/generated/cshift0_r4.c
|
| @@ -69,20 +69,20 @@ cshift0_r4 (gfc_array_r4 *ret, const gfc_array_r4 *array, ssize_t shift,
|
| {
|
| if (dim == which)
|
| {
|
| - roffset = ret->dim[dim].stride;
|
| + roffset = GFC_DESCRIPTOR_STRIDE(ret,dim);
|
| if (roffset == 0)
|
| roffset = 1;
|
| - soffset = array->dim[dim].stride;
|
| + soffset = GFC_DESCRIPTOR_STRIDE(array,dim);
|
| if (soffset == 0)
|
| soffset = 1;
|
| - len = array->dim[dim].ubound + 1 - array->dim[dim].lbound;
|
| + len = GFC_DESCRIPTOR_EXTENT(array,dim);
|
| }
|
| else
|
| {
|
| count[n] = 0;
|
| - extent[n] = array->dim[dim].ubound + 1 - array->dim[dim].lbound;
|
| - rstride[n] = ret->dim[dim].stride;
|
| - sstride[n] = array->dim[dim].stride;
|
| + extent[n] = GFC_DESCRIPTOR_EXTENT(array,dim);
|
| + rstride[n] = GFC_DESCRIPTOR_STRIDE(ret,dim);
|
| + sstride[n] = GFC_DESCRIPTOR_STRIDE(array,dim);
|
| n++;
|
| }
|
| }
|
|
|