| ! { dg-do run } | |
| ! PR43265 No EOF condition if reading with '(x)' from an empty file | |
| ! Test case from the reporter. | |
| program pr43265 | |
| implicit none | |
| integer::i | |
| open(23,status="scratch") | |
| write(23,'(a)') "Line 1" | |
| write(23,'(a)') "Line 2" | |
| write(23,'(a)') "Line 3" | |
| rewind(23) | |
| do i=1,10 | |
| read(23,'(1x)',end=12) | |
| enddo | |
| 12 if (i.ne.4) STOP 1 | |
| end |