1! { dg-do run } 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. 5program main 6 character(len=1) a(80) 7 close(5) 8 open(5,status="scratch") 9 write(5,'(A)') 'one', 'two', 's' 10 rewind(5) 11 do i=1,4 12 read(5,'(80a1)') a 13 if (a(1) == 's') goto 100 14 end do 15 STOP 1 16100 continue 17end program main 18