Sign in
llvm
/
llvm-archive
/
80a0e6b09a6ccb2f8832d59b5fb8d96f9ae994c5
/
.
/
llvm-gcc-4.0
/
gcc
/
testsuite
/
gfortran.dg
/
pr20755.f
blob: e2bac5a7dccc9f27a9f146f1f2b9a8d0e84a8ef5 [
file
] [
log
] [
blame
]
!
PR libfortran
/
20755
!
{
dg
-
do
run
}
character
*
30
s
write
(
s
,
2000
)
0.0
,
0.02
if
(
s
.
ne
.
" 0.00 2.000E-02"
)
call abort
write
(
s
,
2000
)
0.01
,
0.02
if
(
s
.
ne
.
" 1.000E-02 2.000E-02"
)
call abort
2000
format
(
1PG12.3
,
G12
.
3
)
end