! { 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) STOP 1 | |
read (11, *) i | |
if (i .ne. 43) STOP 2 | |
read (11, *) i | |
if (i .ne. 44) STOP 3 | |
close (11) | |
end | |