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