Sign in
llvm
/
llvm-archive
/
47f46514d69ad808308539dc6c69b907868fcf8a
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
subnormal_1.f90
blob: 4fbde58078b9cf4bf56d4016150ab836684e0fcc [
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
call abort
end
if
end
program chop