re PR libfortran/79956 (many new -Wmaybe-uninitialized warnings with bootstrap-O3)

[thirdparty/gcc.git] / libgfortran / generated / norm2_r8.c

diff --git a/libgfortran/generated/norm2_r8.c b/libgfortran/generated/norm2_r8.c
index c4c34c4b8379a3d1bc3a6eab9aa99fbc749fdbeb..173faa63eb20fec3ab8be8b6f08df3db6ae9c51f 100644 (file)
--- a/libgfortran/generated/norm2_r8.c
+++ b/libgfortran/generated/norm2_r8.c
@@ -187,9 +187,9 @@ norm2_r8 (gfc_array_r8 * const restrict retarray,
          base -= sstride[n] * extent[n];
          dest -= dstride[n] * extent[n];
          n++;
-         if (n == rank)
+         if (n >= rank)
            {
-             /* Break out of the look.  */
+             /* Break out of the loop.  */
              continue_loop = 0;
              break;
            }