Sign in
chromium
/
native_client
/
nacl-toolchain
/
cc3d67a9abb3eceb0d79d5369b40b41f67e2474b
/
.
/
gcc
/
gcc
/
testsuite
/
gfortran.dg
/
pr18025.f90
blob: 26d5c01e023d669fff8073d3e2e25517538169da [
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#'
)
call abort
write
(
c
,
"('#',F0.2,'#')"
)
-
1.23
if
(
c
/=
'#-1.23#'
)
call abort
end