gcc/testsuite/gfortran.dg/read_2.f90

   1 ! { dg-do run }
   2 !
   3 ! PR fortran/34404
   4 !
   5 ! Contributed by Joost VandeVondele.
   6 !
   7 implicit none
   8 complex :: x
   9 character(len=80) :: t="(1.0E-7,4.0E-3)"
  10 read(t,*) x
  11 if (real(x) /= 1.0e-7 .or. aimag(x)/=4.0e-3) call abort()
  12 END