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

--- Comment #6 from Richard Biener <rguenth at gcc dot gnu.org> ---
Index: libgfortran/generated/parity_l8.c
===================================================================
--- libgfortran/generated/parity_l8.c   (revision 245968)
+++ libgfortran/generated/parity_l8.c   (working copy)
@@ -167,7 +169,7 @@ parity_l8 (gfc_array_l8 * const restrict
          base -= sstride[n] * extent[n];
          dest -= dstride[n] * extent[n];
          n++;
-         if (n == rank)
+         if (n >= rank)
            {
              /* Break out of the look.  */
              continue_loop = 0;

also avoids the warning (== exit conditions are sometimes hard to analyze
for niter analysis)

Reply via email to