blob: 5eb5727ab36db0119f3a02f6dc950d5354c815d9 [file] [log] [blame]
! Refactoring requires that PAUSE statement be
! selected. Check that no refactoring occurs
! when PAUSE is not selected.
PROGRAM pause_not_selected
INTEGER :: i
DO i = 1, 100
IF (i == 50) THEN
PAUSE 'mid job'
END IF
END DO
PRINT *, 'i=', i !<<<<< 12, 3, 12, 5, fail-initial
END PROGRAM pause_not_selected