nearest_4.f90 « gfortran.dg « testsuite « gcc « gcc-4.9 - toolchain_gcc - toolchain/gcc

about summary refs log tree commit diff stats

path: root/gcc-4.9/gcc/testsuite/gfortran.dg/nearest_4.f90

blob: 51ee35f9a8fb16d86194290f524cc32b4ab6d8d3 (plain)

! { 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