Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
dec_exp_3.f90
blob: 34835a77b32d9053b43f9fe1d3cfde79dcda26c9 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
"xfail *-*-*"
}
!
{
dg
-
options
""
}
!
!
Make
sure we still see an error
for
missing exponents without
-
fdec
.
!
implicit
none
real
::
r
character
(
2
)
::
s
s
=
'8e'
read
(
s
,
*)
r
!
{
XFAIL
"Bad real number"
}
end
