OSDN Git Service

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