ieee_9.f90: XFAIL on arm*-*-gnueabi[hf].
[official-gcc.git] / gcc / testsuite / gfortran.dg / underflow.f90
blob789b0a5bc684f3e20e8ff706e979ad1a7369431a
1 ! { dg-do compile }
2 program a
3 real x
4 x = tiny(x) / huge(x) ! { dg-warning "Arithmetic underflow" }
5 end program a