blob: 7e8ccc553bb5283dbea9b6eddc0f10cc8dfc57e8 [file] [log] [blame]
! GOTO statement is an outer IF block so existing CONTINIUE
! statement is targetted and since no inner GOTOs remain
! END if label is removed. (more complicated DO/IF structure
! to make sure refactoring is unaffected by other program
! structures.)
PROGRAM test_numbered_statement_after_continue
INTEGER :: sum, i
sum = 0
DO 20, i = 1, 10
IF (MOD(i,2).eq.0) THEN
GOTO 20
END IF
sum = sum + i
IF (sum.ge.100) THEN
sum = sum + sum
END IF !<<<<< 17, 1, 17, 12, pass
20 CONTINUE
30 PRINT *, 'sum:', sum
END PROGRAM test_numbered_statement_after_continue