| ! { dg-do run } | |
| ! Program to test for proper EOF errors when reading past the end of a file. | |
| ! We used to get this wrong when a formatted read followed a list formatted | |
| ! read. | |
| program eof_1 | |
| character(len=5) :: s | |
| open (unit=11, status="SCRATCH") | |
| write (11, '(a)') "Hello" | |
| rewind(11) | |
| read(11, *) s | |
| if (s .ne. "Hello") call abort | |
| read(11, '(a5)', end=10) s | |
| call abort | |
| 10 continue | |
| close (11) | |
| end | |