2 ! PR 20092, 20131: Handle end-of-record condition with pad=yes (default)
3 ! for standard input. This test case only really tests anything if,
4 ! by changing unit 5, you get to manipulate the standard input.
8 open(5,status
="scratch")
9 write(5,'(A)') 'one', 'two', 's'
13 if (a(1) == 's') goto 100