Sign in
gnu
/
gcc
/
cfdff3eeb902958d3eefe60d5712d64e2367843f
/
.
/
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