1! { dg-do run } 2! Program to test terminators in list-directed input 3program list_read_1 4 character(len=5) :: s 5 6 open (unit=11, status="SCRATCH") 7 ! The / terminator was causing the next value to be skipped. 8 write (11, '(a)') " 42 /" 9 write (11, '(a)') " 43" 10 write (11, '(a)') " 44" 11 12 rewind(11) 13 14 read (11, *) i 15 if (i .ne. 42) call abort 16 read (11, *) i 17 if (i .ne. 43) call abort 18 read (11, *) i 19 if (i .ne. 44) call abort 20 close (11) 21end 22 23