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