Sign in
llvm
/
llvm-archive
/
a95f55d472d28a35cc4af5df7749473ca38ee187
/
.
/
llvm-gcc-4.2
/
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