https://gcc.gnu.org/g:3b9587f377f6345bc63e5620cfb7420717173738
commit 3b9587f377f6345bc63e5620cfb7420717173738 Author: Mikael Morin <[email protected]> Date: Tue Sep 9 14:11:40 2025 +0200 Correction findloc2s.m4, ifindloc2.m4 Diff: --- libgfortran/m4/findloc2s.m4 | 1 - libgfortran/m4/ifindloc2.m4 | 4 ++-- 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/libgfortran/m4/findloc2s.m4 b/libgfortran/m4/findloc2s.m4 index a0f13f8cadb2..1508355c1512 100644 --- a/libgfortran/m4/findloc2s.m4 +++ b/libgfortran/m4/findloc2s.m4 @@ -40,5 +40,4 @@ define(comparison,ifelse(atype_kind,4,dnl `compare_string_char4 (len_array, src, len_value, value) == 0',dnl `compare_string (len_array, (char *) src, len_value, (char *) value) == 0'))dnl define(len_arg,`len_array, len_value')dnl -define(base_mult,`len_array')dnl include(ifindloc2.m4)dnl diff --git a/libgfortran/m4/ifindloc2.m4 b/libgfortran/m4/ifindloc2.m4 index 15140119ff36..14062a1a67f0 100644 --- a/libgfortran/m4/ifindloc2.m4 +++ b/libgfortran/m4/ifindloc2.m4 @@ -37,7 +37,7 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see if (extent <= 0) return 0; - sstride = GFC_DESCRIPTOR_STRIDE_BYTES(array,0) * 'base_mult`; + sstride = GFC_DESCRIPTOR_STRIDE_BYTES(array,0); if (back) { src = (const 'atype_name` * restrict) (((char*)array->base_addr) + (extent - 1) * sstride); @@ -87,7 +87,7 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see else internal_error (NULL, "Funny sized logical array"); - sstride = GFC_DESCRIPTOR_STRIDE_BYTES(array,0) * 'base_mult`; + sstride = GFC_DESCRIPTOR_STRIDE_BYTES(array,0); mstride = GFC_DESCRIPTOR_STRIDE_BYTES(mask,0); if (back)
