Sign in
gnu
/
gcc
/
1ba7adabf29eb671e418692fad076ea6edd08e3d
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr20755.f
blob: 351f1cf21bd500070a7259ae310e3a66b442e3f1 [
file
] [
log
] [
blame
]
!
PR libfortran
/
20755
!
{
dg
-
do
run
}
!
{
dg
-
options
"-std=legacy"
}
!
character
*
30
s
write
(
s
,
2000
)
0.0
,
0.02
if
(
s
.
ne
.
" 0.00 2.000E-02"
)
STOP
1
write
(
s
,
2000
)
0.01
,
0.02
if
(
s
.
ne
.
" 1.000E-02 2.000E-02"
)
STOP
2
2000
format
(
1PG12.3
,
G12
.
3
)
end
