Sign in
gnu
/
gcc
/
ff4bf326d03e750a8d4905ea49425fe7d15a04b8
/
.
/
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
