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