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