Sign in
gnu
/
gcc
/
1f16a020acbea0af26209478990b83b1a1ba3a2b
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr18025.f90
blob: 3c960e53b0db2d99a1722d0c6f5f22fb30f48896 [
file
] [
log
] [
blame
]
!
PR libfortran
/
18025
<
coudert@clipper
.
ens
.
fr
>
!
{
dg
-
do
run
}
character
(
len
=
80
)
::
c
write
(
c
,
"('#',F0.2,'#')"
)
1.23
if
(
c
/=
'#1.23#'
)
STOP
1
write
(
c
,
"('#',F0.2,'#')"
)
-
1.23
if
(
c
/=
'#-1.23#'
)
STOP
2
end
