15 lines
352 B
Fortran
15 lines
352 B
Fortran
! { dg-do run }
|
|
! PR 42422 - read with a repeat specifyer following a separator
|
|
program main
|
|
integer, dimension(10) :: i1, i2
|
|
|
|
i1 = 0
|
|
i2 = (/ 1, 2, 3, 5, 5, 5, 5, 0, 0, 0 /)
|
|
open (10,file="pr42422.dat")
|
|
write (10,'(A)') ' 1 2 3 4*5 /'
|
|
rewind 10
|
|
read (10,*) i1
|
|
if (any(i1 /= i2)) call abort
|
|
close (10,status="delete")
|
|
end program main
|