OSDN Git Service

2008-03-14 Jerry DeLisle <jvdelisle@gcc.gnu.org>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / nearest_4.f90
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