| ! { dg-do run } | |
| ! Program to test terminators in list-directed input | |
| program list_read_1 | |
| character(len=5) :: s | |
| open (unit=11, status="SCRATCH") | |
| ! The / terminator was causing the next value to be skipped. | |
| write (11, '(a)') " 42 /" | |
| write (11, '(a)') " 43" | |
| write (11, '(a)') " 44" | |
| rewind(11) | |
| read (11, *) i | |
| if (i .ne. 42) call abort | |
| read (11, *) i | |
| if (i .ne. 43) call abort | |
| read (11, *) i | |
| if (i .ne. 44) call abort | |
| close (11) | |
| end | |