gcc/testsuite/gfortran.dg/read_repeat.f90

   1 ! { dg-do run }
   2 ! PR39528 repeated entries not read when using list-directed input.
   3 ! Test case derived from reporters example.
   4 program rread
   5   implicit none
   6   integer :: iarr(1:7), ia, ib, i
   7
   8   iarr = 0
   9
  10   open(10, status="scratch")
  11   write(10,*) " 2*1  3*2 /"
  12   write(10,*) " 12"
  13   write(10,*) " 13"
  14   rewind(10)
  15
  16   read(10,*) (iarr(i), i=1,7)
  17   read(10,*) ia, ib
  18
  19   if (any(iarr(1:2).ne.1)) call abort
  20   if (any(iarr(3:5).ne.2)) call abort
  21   if (any(iarr(6:7).ne.0)) call abort
  22   if (ia .ne. 12 .or. ib .ne. 13) call abort
  23
  24   close(10)
  25 end program rread