Sign in
gnu
/
gcc
/
a48323ff520827d38b0ca4b6af4dc87fe9e26b50
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr20124.f90
blob: 5d05abf6eb11a95b485b326fcd1c3a63ae224ef2 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
{
dg
-
options
"-std=legacy"
}
!
!
pr
20124
character
*
80
line
x
=
-.
01
y
=
.
01
write
(
line
,
'(2f10.2)'
)
x
,
y
if
(
line
.
ne
.
' -0.01 0.01'
)
call abort
end