diff options
Diffstat (limited to 'libgfortran/m4/in_unpack.m4')
| -rw-r--r-- | libgfortran/m4/in_unpack.m4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/m4/in_unpack.m4 b/libgfortran/m4/in_unpack.m4 index 865d04b6728..342625c70b1 100644 --- a/libgfortran/m4/in_unpack.m4 +++ b/libgfortran/m4/in_unpack.m4 @@ -55,7 +55,7 @@ internal_unpack_'rtype_ccode` ('rtype` * d, const 'rtype_name` * src) for (n = 0; n < dim; n++) { count[n] = 0; - stride[n] = GFC_DESCRIPTOR_STRIDE(d,n); + stride[n] = GFC_DESCRIPTOR_STRIDE_TYPEKNOWN(d,n); extent[n] = GFC_DESCRIPTOR_EXTENT(d,n); if (extent[n] <= 0) return; |