summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/nearest_4.f90
blob: 51ee35f9a8fb16d86194290f524cc32b4ab6d8d3 (plain)
1
2
3
4
5
6
! { 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