https://gcc.gnu.org/bugzilla/show_bug.cgi?id=78061
--- Comment #1 from David Binderman <dcb314 at hotmail dot com> --- This Fortran code seems to be the results of creduce and it generates the same compiler error. SUBROUTINE SSYMM(C) REAL C(LDC,*) LOGICAL LSAME LOGICAL UPPER IF (LSAME) THEN DO 170 J = 1,N DO 140 K = 1,J IF (UPPER) THEN END IF 140 CONTINUE DO 160 K = J + 1,N C(I,J) = B(K) 160 CONTINUE 170 CONTINUE END IF END