gcc/testsuite/gfortran.dg/read_repeat_2.f90

   1 ! { dg-do run }
   2 !
   3 ! PR fortran/56810
   4 !
   5 ! Contributed by Jonathan Hogg
   6 !
   7 program test
   8    implicit none
   9
  10    integer :: i
  11    complex :: a(4)
  12
  13    open (99, status='scratch')
  14    write (99, *) '4*(1.0,2.0)'
  15    rewind (99)
  16    read (99,*) a(:)
  17    close (99)
  18    if (any (a /= cmplx (1.0,2.0))) call abort()
  19 end program test