https://gcc.gnu.org/g:99f3f837850fd2d0c7b3d4e7c41f03f8f2d052ee
commit r15-11652-g99f3f837850fd2d0c7b3d4e7c41f03f8f2d052ee Author: Harald Anlauf <[email protected]> Date: Tue Oct 13 22:52:52 2026 +0200 fortran: Fix FINDLOC with DIM and MASK [PR127845] The runtime library templates for FINDLOC did not advance properly through the MASK array argument when MASK and DIM are present. PR fortran/127845 libgfortran/ChangeLog: * generated/findloc1_c10.c (mfindloc1_c10): Regenerate. * generated/findloc1_c16.c (mfindloc1_c16): Likewise. * generated/findloc1_c17.c (mfindloc1_c17): Likewise. * generated/findloc1_c4.c (mfindloc1_c4): Likewise. * generated/findloc1_c8.c (mfindloc1_c8): Likewise. * generated/findloc1_i1.c (mfindloc1_i1): Likewise. * generated/findloc1_i16.c (mfindloc1_i16): Likewise. * generated/findloc1_i2.c (mfindloc1_i2): Likewise. * generated/findloc1_i4.c (mfindloc1_i4): Likewise. * generated/findloc1_i8.c (mfindloc1_i8): Likewise. * generated/findloc1_r10.c (mfindloc1_r10): Likewise. * generated/findloc1_r16.c (mfindloc1_r16): Likewise. * generated/findloc1_r17.c (mfindloc1_r17): Likewise. * generated/findloc1_r4.c (mfindloc1_r4): Likewise. * generated/findloc1_r8.c (mfindloc1_r8): Likewise. * generated/findloc1_s1.c (mfindloc1_s1): Likewise. * generated/findloc1_s4.c (mfindloc1_s4): Likewise. * m4/ifindloc1.m4: Properly advance through MASK array argument when MASK and DIM are present. gcc/testsuite/ChangeLog: * gfortran.dg/findloc_11.f90: New test. (cherry picked from commit 0a3124969d7cf120d26d7044deec17a7f23d169e) Diff: --- gcc/testsuite/gfortran.dg/findloc_11.f90 | 37 ++++++++++++++++++++++++++++++++ libgfortran/generated/findloc1_c10.c | 1 + libgfortran/generated/findloc1_c16.c | 1 + libgfortran/generated/findloc1_c17.c | 1 + libgfortran/generated/findloc1_c4.c | 1 + libgfortran/generated/findloc1_c8.c | 1 + libgfortran/generated/findloc1_i1.c | 1 + libgfortran/generated/findloc1_i16.c | 1 + libgfortran/generated/findloc1_i2.c | 1 + libgfortran/generated/findloc1_i4.c | 1 + libgfortran/generated/findloc1_i8.c | 1 + libgfortran/generated/findloc1_r10.c | 1 + libgfortran/generated/findloc1_r16.c | 1 + libgfortran/generated/findloc1_r17.c | 1 + libgfortran/generated/findloc1_r4.c | 1 + libgfortran/generated/findloc1_r8.c | 1 + libgfortran/generated/findloc1_s1.c | 1 + libgfortran/generated/findloc1_s4.c | 1 + libgfortran/m4/ifindloc1.m4 | 1 + 19 files changed, 55 insertions(+) diff --git a/gcc/testsuite/gfortran.dg/findloc_11.f90 b/gcc/testsuite/gfortran.dg/findloc_11.f90 new file mode 100644 index 000000000000..eaecbb070b7f --- /dev/null +++ b/gcc/testsuite/gfortran.dg/findloc_11.f90 @@ -0,0 +1,37 @@ +! { dg-do run } +! +! PR fortran/127845 - FINDLOC with DIM and MASK +! +! Contributed by Federico Perini. + +program findloc_dim_mask + implicit none + real(8) :: x(2,3,2) + logical :: m(2,3,2) + integer :: i, j, k, l + integer :: r(2,3) + + l = 0 + do k = 1, 2; do j = 1, 3; do i = 1, 2 + x(i,j,k) = real(mod(l*7,5)+1, 8); m(i,j,k) = mod(l,3) /= 1; l = l + 1 + end do; end do; end do + r = findloc(x, 3.0d0, dim=3, mask=m) + + if (any (r /= transpose (reshape ([2, 0, 0, 0, 0, 2], [3,2])))) then + do k = 1, 2 + print '(a,i0,a,i0,a)', 'x(:,:,', k, ') m(:,:,', k, ')' + do i = 1, 2 + print '(3f4.1,6x,3l2)', x(i,:,k), m(i,:,k) + end do + end do + print '(a)', 'findloc(x, 3.0d0, dim=3, mask=m), a 2x3 array, got:' + do i = 1, 2 + print '(4x,3i2)', r(i,:) + end do + print '(a)', ' expected:' + print '(4x,3i2)', 2, 0, 0 + print '(4x,3i2)', 0, 0, 2 + print '(a)', ' (x(2,3,2) = 3.0 and m(2,3,2) = T, so element (2,3) is 2)' + stop 1 + end if +end program findloc_dim_mask diff --git a/libgfortran/generated/findloc1_c10.c b/libgfortran/generated/findloc1_c10.c index 852bf2678772..5feb5ed69053 100644 --- a/libgfortran/generated/findloc1_c10.c +++ b/libgfortran/generated/findloc1_c10.c @@ -372,6 +372,7 @@ mfindloc1_c10 (gfc_array_index_type * const restrict retarray, { count[n]++; base += sstride[n] * 1; + mbase += mstride[n]; dest += dstride[n]; } } diff --git a/libgfortran/generated/findloc1_c16.c b/libgfortran/generated/findloc1_c16.c index f227a80895b9..bc9fe42e7acc 100644 --- a/libgfortran/generated/findloc1_c16.c +++ b/libgfortran/generated/findloc1_c16.c @@ -372,6 +372,7 @@ mfindloc1_c16 (gfc_array_index_type * const restrict retarray, { count[n]++; base += sstride[n] * 1; + mbase += mstride[n]; dest += dstride[n]; } } diff --git a/libgfortran/generated/findloc1_c17.c b/libgfortran/generated/findloc1_c17.c index 9912fc2bb1fd..5e17e30f6f48 100644 --- a/libgfortran/generated/findloc1_c17.c +++ b/libgfortran/generated/findloc1_c17.c @@ -372,6 +372,7 @@ mfindloc1_c17 (gfc_array_index_type * const restrict retarray, { count[n]++; base += sstride[n] * 1; + mbase += mstride[n]; dest += dstride[n]; } } diff --git a/libgfortran/generated/findloc1_c4.c b/libgfortran/generated/findloc1_c4.c index 554450323493..cd5b907a176a 100644 --- a/libgfortran/generated/findloc1_c4.c +++ b/libgfortran/generated/findloc1_c4.c @@ -372,6 +372,7 @@ mfindloc1_c4 (gfc_array_index_type * const restrict retarray, { count[n]++; base += sstride[n] * 1; + mbase += mstride[n]; dest += dstride[n]; } } diff --git a/libgfortran/generated/findloc1_c8.c b/libgfortran/generated/findloc1_c8.c index 1e88e407d921..5d6367baa3af 100644 --- a/libgfortran/generated/findloc1_c8.c +++ b/libgfortran/generated/findloc1_c8.c @@ -372,6 +372,7 @@ mfindloc1_c8 (gfc_array_index_type * const restrict retarray, { count[n]++; base += sstride[n] * 1; + mbase += mstride[n]; dest += dstride[n]; } } diff --git a/libgfortran/generated/findloc1_i1.c b/libgfortran/generated/findloc1_i1.c index bf856a273031..b259871feff5 100644 --- a/libgfortran/generated/findloc1_i1.c +++ b/libgfortran/generated/findloc1_i1.c @@ -372,6 +372,7 @@ mfindloc1_i1 (gfc_array_index_type * const restrict retarray, { count[n]++; base += sstride[n] * 1; + mbase += mstride[n]; dest += dstride[n]; } } diff --git a/libgfortran/generated/findloc1_i16.c b/libgfortran/generated/findloc1_i16.c index cc935f768bfc..4df25681f1aa 100644 --- a/libgfortran/generated/findloc1_i16.c +++ b/libgfortran/generated/findloc1_i16.c @@ -372,6 +372,7 @@ mfindloc1_i16 (gfc_array_index_type * const restrict retarray, { count[n]++; base += sstride[n] * 1; + mbase += mstride[n]; dest += dstride[n]; } } diff --git a/libgfortran/generated/findloc1_i2.c b/libgfortran/generated/findloc1_i2.c index e2139536b74a..54159f48d1bc 100644 --- a/libgfortran/generated/findloc1_i2.c +++ b/libgfortran/generated/findloc1_i2.c @@ -372,6 +372,7 @@ mfindloc1_i2 (gfc_array_index_type * const restrict retarray, { count[n]++; base += sstride[n] * 1; + mbase += mstride[n]; dest += dstride[n]; } } diff --git a/libgfortran/generated/findloc1_i4.c b/libgfortran/generated/findloc1_i4.c index f282132c5db6..5d5c451cbada 100644 --- a/libgfortran/generated/findloc1_i4.c +++ b/libgfortran/generated/findloc1_i4.c @@ -372,6 +372,7 @@ mfindloc1_i4 (gfc_array_index_type * const restrict retarray, { count[n]++; base += sstride[n] * 1; + mbase += mstride[n]; dest += dstride[n]; } } diff --git a/libgfortran/generated/findloc1_i8.c b/libgfortran/generated/findloc1_i8.c index 083e76a07cc3..ce550df1b87c 100644 --- a/libgfortran/generated/findloc1_i8.c +++ b/libgfortran/generated/findloc1_i8.c @@ -372,6 +372,7 @@ mfindloc1_i8 (gfc_array_index_type * const restrict retarray, { count[n]++; base += sstride[n] * 1; + mbase += mstride[n]; dest += dstride[n]; } } diff --git a/libgfortran/generated/findloc1_r10.c b/libgfortran/generated/findloc1_r10.c index 3e2bede8af01..c23569f0f699 100644 --- a/libgfortran/generated/findloc1_r10.c +++ b/libgfortran/generated/findloc1_r10.c @@ -372,6 +372,7 @@ mfindloc1_r10 (gfc_array_index_type * const restrict retarray, { count[n]++; base += sstride[n] * 1; + mbase += mstride[n]; dest += dstride[n]; } } diff --git a/libgfortran/generated/findloc1_r16.c b/libgfortran/generated/findloc1_r16.c index a1c7ed8139bd..ed977e014f91 100644 --- a/libgfortran/generated/findloc1_r16.c +++ b/libgfortran/generated/findloc1_r16.c @@ -372,6 +372,7 @@ mfindloc1_r16 (gfc_array_index_type * const restrict retarray, { count[n]++; base += sstride[n] * 1; + mbase += mstride[n]; dest += dstride[n]; } } diff --git a/libgfortran/generated/findloc1_r17.c b/libgfortran/generated/findloc1_r17.c index d42ec6c88a99..da2d359a4f13 100644 --- a/libgfortran/generated/findloc1_r17.c +++ b/libgfortran/generated/findloc1_r17.c @@ -372,6 +372,7 @@ mfindloc1_r17 (gfc_array_index_type * const restrict retarray, { count[n]++; base += sstride[n] * 1; + mbase += mstride[n]; dest += dstride[n]; } } diff --git a/libgfortran/generated/findloc1_r4.c b/libgfortran/generated/findloc1_r4.c index a871b21397d9..9b8e80542952 100644 --- a/libgfortran/generated/findloc1_r4.c +++ b/libgfortran/generated/findloc1_r4.c @@ -372,6 +372,7 @@ mfindloc1_r4 (gfc_array_index_type * const restrict retarray, { count[n]++; base += sstride[n] * 1; + mbase += mstride[n]; dest += dstride[n]; } } diff --git a/libgfortran/generated/findloc1_r8.c b/libgfortran/generated/findloc1_r8.c index e6b89c0aee8e..f64fb839c98f 100644 --- a/libgfortran/generated/findloc1_r8.c +++ b/libgfortran/generated/findloc1_r8.c @@ -372,6 +372,7 @@ mfindloc1_r8 (gfc_array_index_type * const restrict retarray, { count[n]++; base += sstride[n] * 1; + mbase += mstride[n]; dest += dstride[n]; } } diff --git a/libgfortran/generated/findloc1_s1.c b/libgfortran/generated/findloc1_s1.c index a57da46614a1..2d62e6c27ef4 100644 --- a/libgfortran/generated/findloc1_s1.c +++ b/libgfortran/generated/findloc1_s1.c @@ -374,6 +374,7 @@ mfindloc1_s1 (gfc_array_index_type * const restrict retarray, { count[n]++; base += sstride[n] * len_array; + mbase += mstride[n]; dest += dstride[n]; } } diff --git a/libgfortran/generated/findloc1_s4.c b/libgfortran/generated/findloc1_s4.c index 2497d818b5a2..ef7f9ffa6532 100644 --- a/libgfortran/generated/findloc1_s4.c +++ b/libgfortran/generated/findloc1_s4.c @@ -374,6 +374,7 @@ mfindloc1_s4 (gfc_array_index_type * const restrict retarray, { count[n]++; base += sstride[n] * len_array; + mbase += mstride[n]; dest += dstride[n]; } } diff --git a/libgfortran/m4/ifindloc1.m4 b/libgfortran/m4/ifindloc1.m4 index cb96ab5d7436..33a022559ebc 100644 --- a/libgfortran/m4/ifindloc1.m4 +++ b/libgfortran/m4/ifindloc1.m4 @@ -354,6 +354,7 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see { count[n]++; base += sstride[n] * 'base_mult`; + mbase += mstride[n]; dest += dstride[n]; } }
