blob: 97f899a920179d6caadfd182003588662c189dbb [file] [log] [blame]
! { dg-do compile }
! { dg-options "-std=legacy -O2 -ftree-loop-distribution -fno-move-loop-stores -fno-tree-dominator-opts" }
SUBROUTINE FOO()
COMMON /WORK/ C2(2, 2)
DIMENSION D11(2)
EQUIVALENCE (D11(1), C2(1, 1))
DO 40 I = 1, 2
DO 30 J = 1, 2
ASSIGN 10 TO ILBL
IF (C2(J, I) .NE. 0.0) THEN
ASSIGN 20 TO ILBL
ENDIF
GO TO ILBL
10 CONTINUE
20 CONTINUE
C2(J, I) = C2(J, I) + 1
30 CONTINUE
40 CONTINUE
DO 50 I = 1, 2
PRINT 90, I
50 CONTINUE
RETURN
90 FORMAT(I5)
END