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)