blob: 5a288f240c5ee1a137ec2ba712ddfdbcac6851db [file] [log] [blame]
! Outer GOTO targets selected END IF so insert
! a CONTINUE statement and retarget its label.
! Remove END IF label since no inner GOTO
! statement exists
PROGRAM test_branch_end_if_label
INTEGER :: k, i
READ(*,*) k
IF (k.lt.10) THEN
GOTO 20
END IF
i = k - 10
IF (i.gt.100) THEN
i = i - 100
END IF !<<<<< 15, 4, 15, 9, pass
20 CONTINUE
PRINT *, i
END PROGRAM test_branch_end_if_label