Index: gcc/libgfortran/generated/cshift0_c8.c |
diff --git a/gcc/libgfortran/generated/cshift0_c8.c b/gcc/libgfortran/generated/cshift0_c8.c |
index a9d152d6426d09eaa5bbfa8f5636fbcf524c95d2..9b9c3b2acced65e4b01e88b4bf2845720f0726bd 100644 |
--- a/gcc/libgfortran/generated/cshift0_c8.c |
+++ b/gcc/libgfortran/generated/cshift0_c8.c |
@@ -69,20 +69,20 @@ cshift0_c8 (gfc_array_c8 *ret, const gfc_array_c8 *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++; |
} |
} |