OSDN Git Service

c6c9c370e76790411700d77e3c36db6327261734
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / underflow.f90
1 ! { dg-do compile}
2 program a
3    real x
4    x = tiny(x) / huge(x)  ! { dg-warning "Arithmetic underflow" "" }
5 end program a