https://gcc.gnu.org/bugzilla/show_bug.cgi?id=127845

--- Comment #7 from GCC Commits <cvs-commit at gcc dot gnu.org> ---
The releases/gcc-15 branch has been updated by Harald Anlauf
<[email protected]>:

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)

Reply via email to