Sign in
chromium
/
native_client
/
nacl-toolchain
/
cc3d67a9abb3eceb0d79d5369b40b41f67e2474b
/
.
/
gcc
/
gcc
/
testsuite
/
gfortran.dg
/
nearest_4.f90
blob: 51ee35f9a8fb16d86194290f524cc32b4ab6d8d3 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR33296 nearest
(
huge
(
1.0
),
1.0
)
gives an error
real x
x
=
nearest
(-
huge
(
1.0
),-
1.0
)
print
*,
x
end