blob: 54a3589c3e1707f5c19dfbdf8773aa0d5a08e7fc [file] [log] [blame]
! Check when no PAUSE message provided that
! an empty string is inserted in the
! final refactoring.
PROGRAM pause_no_message
INTEGER :: i
DO i = 1, 100
IF (i == 50) THEN
PRINT *, '' !<<<<< 9, 7, 9, 11, pass
READ (*, *)
END IF
END DO
PRINT *, 'i=', i
END PROGRAM pause_no_message