gcc/testsuite/gfortran.dg/list_read_10.f90

   1 ! { dg-do run }
   2 ! PR 42422 - read with a repeat specifyer following a separator
   3 program 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")
  14 end program main