1 ! { dg-do run { target fd_truncate } }
2 ! Program to test terminators in list-directed input
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"
15 if (i .ne. 42) call abort
17 if (i .ne. 43) call abort
19 if (i .ne. 44) call abort