Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/eor_handling_4.f90 @ 111:04ced10e8804
gcc 7
| author | kono |
|---|---|
| date | Fri, 27 Oct 2017 22:46:09 +0900 |
| parents | |
| children | 84e7813d76e9 |
comparison
equal
deleted
inserted
replaced
| 68:561a7518be6b | 111:04ced10e8804 |
|---|---|
| 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. | |
| 5 program 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 call abort | |
| 16 100 continue | |
| 17 end program main |