[Bug libfortran/127845] FINDLOC with DIM and MASK returns wrong results

[anlauf at gcc dot gnu.org via Gcc-bugs]

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

Harald Anlauf <anlauf at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
          Component|fortran                     |libfortran
                 CC|                            |anlauf at gcc dot gnu.org

--- Comment #2 from Harald Anlauf <anlauf at gcc dot gnu.org> ---
Draft patch:

diff --git a/libgfortran/m4/ifindloc1.m4 b/libgfortran/m4/ifindloc1.m4
index 30ab5e7ad58..29962f081b8 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];
            }
        }