Sign in
gnu
/
gcc
/
33fdbbe4ce6055eb858096d01720ccf94aa854ec
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr96436_2.f90
blob: d2d6caffbfe4a9a38f4119b4f91aeae4bb144b55 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
{
dg
-
options
"-std=f2003 -pedantic"
}
character
(
20
)
::
fmt
character
(
9
)
::
buffer
fmt
=
"(1a1,f0.2,1a1)"
write
(
buffer
,
fmt
)
">"
,
3.0
,
"<"
if
(
buffer
.
ne
.
">3.00<"
)
stop
1
end