Index: underflow.f90
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gfortran.dg/underflow.f90,v
retrieving revision 1.1
diff -c -p -r1.1 underflow.f90
*** underflow.f90	26 Mar 2005 18:37:15 -0000	1.1
--- underflow.f90	13 Apr 2005 22:36:45 -0000
***************
*** 1,5 ****
  ! { dg-do compile}
  program a
     real x
!    x = 1e-20 / 1e+20  ! { dg-warning "Arithmetic underflow" "" }
  end program a
--- 1,5 ----
  ! { dg-do compile}
  program a
     real x
!    x = tiny(x) / huge(x)  ! { dg-warning "Arithmetic underflow" "" }
  end program a