| ! { dg-do run } | |
| ! PR39528 repeated entries not read when using list-directed input. | |
| ! Test case derived from reporters example. | |
| program rread | |
| implicit none | |
| integer :: iarr(1:7), ia, ib, i | |
| iarr = 0 | |
| open(10, status="scratch") | |
| write(10,*) " 2*1 3*2 /" | |
| write(10,*) " 12" | |
| write(10,*) " 13" | |
| rewind(10) | |
| read(10,*) (iarr(i), i=1,7) | |
| read(10,*) ia, ib | |
| if (any(iarr(1:2).ne.1)) STOP 1 | |
| if (any(iarr(3:5).ne.2)) STOP 2 | |
| if (any(iarr(6:7).ne.0)) STOP 3 | |
| if (ia .ne. 12 .or. ib .ne. 13) STOP 4 | |
| close(10) | |
| end program rread |