diff options
Diffstat (limited to 'libgfortran/generated/cshift0_c8.c')
| -rw-r--r-- | libgfortran/generated/cshift0_c8.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libgfortran/generated/cshift0_c8.c b/libgfortran/generated/cshift0_c8.c index 491ad2eaed2..5fcdabd60b2 100644 --- a/libgfortran/generated/cshift0_c8.c +++ b/libgfortran/generated/cshift0_c8.c @@ -69,10 +69,10 @@ cshift0_c8 (gfc_array_c8 *ret, const gfc_array_c8 *array, ptrdiff_t shift, { if (dim == which) { - roffset = GFC_DESCRIPTOR_STRIDE(ret,dim); + roffset = GFC_DESCRIPTOR_STRIDE_TYPEKNOWN(ret,dim); if (roffset == 0) roffset = 1; - soffset = GFC_DESCRIPTOR_STRIDE(array,dim); + soffset = GFC_DESCRIPTOR_STRIDE_TYPEKNOWN(array,dim); if (soffset == 0) soffset = 1; len = GFC_DESCRIPTOR_EXTENT(array,dim); @@ -81,8 +81,8 @@ cshift0_c8 (gfc_array_c8 *ret, const gfc_array_c8 *array, ptrdiff_t shift, { count[n] = 0; extent[n] = GFC_DESCRIPTOR_EXTENT(array,dim); - rstride[n] = GFC_DESCRIPTOR_STRIDE(ret,dim); - sstride[n] = GFC_DESCRIPTOR_STRIDE(array,dim); + rstride[n] = GFC_DESCRIPTOR_STRIDE_TYPEKNOWN(ret,dim); + sstride[n] = GFC_DESCRIPTOR_STRIDE_TYPEKNOWN(array,dim); n++; } } |