Sign in
gnu
/
gcc
/
refs/heads/devel/omp/gcc-9
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
read_2.f90
blob: f85e9552d4006a32f54e7ff2ff4cde3cba9ed032 [
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
)
STOP
1
END