coarray_41.f90: Add "-latomic" option if libatomic_available.
[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