https://gcc.gnu.org/g:e7bc8b7f325b5b1938854b1aca3840948489cf0b
commit e7bc8b7f325b5b1938854b1aca3840948489cf0b Author: Mikael Morin <[email protected]> Date: Tue Sep 9 21:56:44 2025 +0200 Correction iforeach-s.m4 Diff: --- libgfortran/m4/iforeach-s.m4 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/libgfortran/m4/iforeach-s.m4 b/libgfortran/m4/iforeach-s.m4 index 2eb1acaa11f4..88101c53d6c7 100644 --- a/libgfortran/m4/iforeach-s.m4 +++ b/libgfortran/m4/iforeach-s.m4 @@ -52,7 +52,7 @@ void dest = retarray->base_addr; 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) @@ -185,7 +185,7 @@ m'name`'rtype_qual`_'atype_code` ('rtype` * const restrict retarray, dest = retarray->base_addr; 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; @@ -291,7 +291,7 @@ void GFC_DESCRIPTOR_DIMENSION_SET(retarray, 0, 0, rank-1, 1); retarray->dtype.rank = 1; retarray->offset = 0; - retarray->base_addr = xmallocarray (rank, sizeof (rtype_name)); + retarray->base_addr = xmallocarray (rank, sizeof ('rtype_name`)); } else if (unlikely (compile_options.bounds_check)) {
