?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
2009-10-05 Paul Thomas <pault@gcc.gnu.org>
[official-gcc.git] / gcc / testsuite / gfortran.dg / underflow.f90
blob631fd5a43e171d788568f81327ea88d99ef31a81
1 ! { dg-do compile }
2 program a
3 real x
4 x = tiny(x) / huge(x) ! { dg-warning "Arithmetic underflow" "" }
5 end program a
Mirror of the offical gcc git repository hosted at gcc.gnu.org