https://gcc.gnu.org/g:ec1739af41c5477be16773312ba215c7d579164a
commit ec1739af41c5477be16773312ba215c7d579164a Author: Mikael Morin <[email protected]> Date: Tue Sep 9 21:33:58 2025 +0200 Correction iforeach-s2.m4 Diff: --- libgfortran/m4/iforeach-s2.m4 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/libgfortran/m4/iforeach-s2.m4 b/libgfortran/m4/iforeach-s2.m4 index 7168552a5cdc..3c3236c3a425 100644 --- a/libgfortran/m4/iforeach-s2.m4 +++ b/libgfortran/m4/iforeach-s2.m4 @@ -43,7 +43,7 @@ void for (n = 0; n < rank; n++) { - sstride[n] = GFC_DESCRIPTOR_STRIDE_BYTES(array,n) * len; + sstride[n] = GFC_DESCRIPTOR_STRIDE_BYTES(array,n); extent[n] = GFC_DESCRIPTOR_EXTENT(array,n); count[n] = 0; if (extent[n] <= 0) @@ -146,7 +146,7 @@ m'name`'rtype_qual`_'atype_code` ('atype_name` * const restrict ret, for (n = 0; n < rank; n++) { - sstride[n] = GFC_DESCRIPTOR_STRIDE_BYTES(array,n) * len; + sstride[n] = GFC_DESCRIPTOR_STRIDE_BYTES(array,n); mstride[n] = GFC_DESCRIPTOR_STRIDE_BYTES(mask,n); extent[n] = GFC_DESCRIPTOR_EXTENT(array,n); count[n] = 0;
