1! { dg-do run }
2! PR39528 repeated entries not read when using list-directed input.
3! Test case derived from reporters example.
4program rread
5  implicit none
6  integer :: iarr(1:7), ia, ib, i
7
8  iarr = 0
9
10  open(10, status="scratch")
11  write(10,*) " 2*1  3*2 /"
12  write(10,*) " 12"
13  write(10,*) " 13"
14  rewind(10)
15
16  read(10,*) (iarr(i), i=1,7)
17  read(10,*) ia, ib
18
19  if (any(iarr(1:2).ne.1)) STOP 1
20  if (any(iarr(3:5).ne.2)) STOP 2
21  if (any(iarr(6:7).ne.0)) STOP 3
22  if (ia .ne. 12 .or. ib .ne. 13) STOP 4
23
24  close(10)
25end program rread
26