]> git.ipfire.org Git - thirdparty/gcc.git/blobdiff - libgfortran/generated/minloc0_8_r8.c
re PR libfortran/79956 (many new -Wmaybe-uninitialized warnings with bootstrap-O3)
[thirdparty/gcc.git] / libgfortran / generated / minloc0_8_r8.c
index 7917597adb04ccf6bb2801cd9e71fbea0af665da..e13239037da5ac7e12404052ceadb0451df00202 100644 (file)
@@ -148,7 +148,7 @@ minloc0_8_r8 (gfc_array_i8 * const restrict retarray,
             frequently used path so probably not worth it.  */
          base -= sstride[n] * extent[n];
          n++;
-         if (n == rank)
+         if (n >= rank)
            {
              /* Break out of the loop.  */
              base = NULL;
@@ -315,7 +315,7 @@ mminloc0_8_r8 (gfc_array_i8 * const restrict retarray,
          base -= sstride[n] * extent[n];
          mbase -= mstride[n] * extent[n];
          n++;
-         if (n == rank)
+         if (n >= rank)
            {
              /* Break out of the loop.  */
              base = NULL;