1! { dg-do run } 2! PR 42422 - read with a repeat specifyer following a separator 3program main 4 integer, dimension(10) :: i1, i2 5 6 i1 = 0 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 /' 10 rewind 10 11 read (10,*) i1 12 if (any(i1 /= i2)) call abort 13 close (10,status="delete") 14end program main 15