gfortran.dg/underflow.f90: New test.
[official-gcc.git] / gcc / testsuite / gfortran.dg / underflow.f90
blob0c1018b593ba059efa2a7d200fdaa635a4d50a81
1 ! { dg-do compile}
2 program a
3 real x
4 x = 1e-20 / 1e+20 ! { dg-warning "Arithmetic underflow" "" }
5 end program a