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