2 ! PR 42422 - read with a repeat specifyer following a separator
4 integer, dimension(10) :: i1, i2
7 i2 = (/ 1, 2, 3, 5, 5, 5, 5, 0, 0, 0 /)
8 open (10,file="pr42422.dat")
9 write (10,'(A)') ' 1 2 3 4*5 /'
12 if (any(i1 /= i2)) call abort
13 close (10,status="delete")