diff options
Diffstat (limited to 'libgfortran/m4')
| -rw-r--r-- | libgfortran/m4/ifunction.m4 | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/libgfortran/m4/ifunction.m4 b/libgfortran/m4/ifunction.m4 index 3c01ae8fe71..6c34eb9d7ae 100644 --- a/libgfortran/m4/ifunction.m4 +++ b/libgfortran/m4/ifunction.m4 @@ -371,7 +371,6 @@ void { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; - index_type sstride[GFC_MAX_DIMENSIONS]; index_type dstride[GFC_MAX_DIMENSIONS]; rtype_name * restrict dest; index_type rank; @@ -390,7 +389,6 @@ void for (n = 0; n < dim; n++) { - sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n); extent[n] = GFC_DESCRIPTOR_EXTENT(array,n); if (extent[n] <= 0) @@ -399,7 +397,6 @@ void for (n = dim; n < rank; n++) { - sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1); extent[n] = GFC_DESCRIPTOR_EXTENT(array,n + 1); |