Sign in
gnu
/
gcc
/
ff4bf326d03e750a8d4905ea49425fe7d15a04b8
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr96436_1.f90
blob: 7cc6a0a69b1e15a657aae77ee687e627d18d2966 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
{
dg
-
options
"-std=f95 -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
