Sign in
llvm
/
llvm-archive
/
cfaec05de39adb34392b8c7b1ad4b32abbf3663d
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
pr20124.f90
blob: 69f4f18b29c82de14c7d68cc9390156c54a0a220 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
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