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)