diff options
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/underflow.f90 | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 83d08f5..ef5ebd4 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2005-04-14 Steven G. Kargl <kargls@comcast.net> + + * gfortran.dg/underflow.f90: Use tiny(x)/huge(x). + 2005-04-14 Kazu Hirata <kazu@cs.umass.edu> PR tree-optimization/20657 diff --git a/gcc/testsuite/gfortran.dg/underflow.f90 b/gcc/testsuite/gfortran.dg/underflow.f90 index 0c1018b..c6c9c37 100644 --- a/gcc/testsuite/gfortran.dg/underflow.f90 +++ b/gcc/testsuite/gfortran.dg/underflow.f90 @@ -1,5 +1,5 @@ ! { dg-do compile} program a real x - x = 1e-20 / 1e+20 ! { dg-warning "Arithmetic underflow" "" } + x = tiny(x) / huge(x) ! { dg-warning "Arithmetic underflow" "" } end program a |