Sign in
chromium
/
native_client
/
nacl-toolchain
/
gcc-4.4.3
/
.
/
gcc
/
gcc
/
testsuite
/
gfortran.dg
/
read_2.f90
blob: d12dcef71ebb4296a2992a8c4689b8e110cfca8d [
file
] [
log
] [
blame
]
!
{
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