gcc/testsuite/gfortran.dg/pr104716.f

   1 ! { dg-do compile }
   2 ! { dg-options "-std=legacy -O2 -ftree-loop-distribution -fno-move-loop-stores -fno-tree-dominator-opts" }
   3
   4       SUBROUTINE FOO()
   5
   6       COMMON /WORK/ C2(2, 2)
   7
   8       DIMENSION D11(2)
   9
  10       EQUIVALENCE (D11(1), C2(1, 1))
  11
  12       DO 40 I = 1, 2
  13          DO 30 J = 1, 2
  14             ASSIGN 10 TO ILBL
  15             IF (C2(J, I) .NE. 0.0) THEN
  16                ASSIGN 20 TO ILBL
  17             ENDIF
  18             GO TO ILBL
  19  10         CONTINUE
  20  20         CONTINUE
  21             C2(J, I) = C2(J, I) + 1
  22  30      CONTINUE
  23  40   CONTINUE
  24
  25       DO 50 I = 1, 2
  26          PRINT 90, I
  27  50   CONTINUE
  28
  29       RETURN
  30  90   FORMAT(I5)
  31       END