gcc/testsuite/gfortran.dg/pr78061.f

   1 ! { dg-do compile }
   2 ! { dg-options "-O3 -fsplit-loops" }
   3       SUBROUTINE SSYMM(C)
   4       REAL C(LDC,*)
   5       LOGICAL LSAME
   6       LOGICAL UPPER
   7       IF (LSAME) THEN
   8           DO 170 J = 1,N
   9               DO 140 K = 1,J
  10                   IF (UPPER) THEN
  11                       END IF
  12   140         CONTINUE
  13               DO 160 K = J + 1,N
  14                   C(I,J) = B(K)
  15   160         CONTINUE
  16   170     CONTINUE
  17       END IF
  18       END