Sign in
gnu
/
gcc
/
929abc7fe3ad4491ac412ca232e055618559f268
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
subnormal_1.f90
blob: d3897176c89b950b1866b5fe3df49cf213e85e20 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
{
dg
-
options
"-Wno-underflow"
}
!
Check
that the chopping of bits of subnormal numbers works
.
!
program chop
real x
x
=
1.
if
(
tiny
(
x
)/
2.
/=
tiny
(
x
)/
2.
-
(
nearest
(
tiny
(
x
),
1.
)
-
tiny
(
x
))/
2.
)
then
STOP
1
end
if
end
program chop