?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
2014-07-12 Paul Thomas <pault@gcc.gnu.org>
[official-gcc.git] / gcc / testsuite / gfortran.dg / nearest_4.f90
blob51ee35f9a8fb16d86194290f524cc32b4ab6d8d3
1 ! { dg-do compile }
2 ! PR33296 nearest(huge(1.0),1.0) gives an error
3 real x
4 x = nearest(-huge(1.0),-1.0)
5 print *, x
6 end
Mirror of the offical gcc git repository hosted at gcc.gnu.org