diff options
| author | Steven G. Kargl <kargls@comcast.net> | 2005-04-14 16:31:50 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2005-04-14 16:31:50 +0000 |
| commit | ab13f408ce00a144b9be5027c72f5dee3fb45887 (patch) | |
| tree | cd08c114bfc5cb4df1b654eb2b9374a002d3d2a6 /gcc | |
| parent | 2d0aa65f1e2fc95e857bc1ad1e11beee44219ba8 (diff) | |
| download | gcc-ab13f408ce00a144b9be5027c72f5dee3fb45887.zip gcc-ab13f408ce00a144b9be5027c72f5dee3fb45887.tar.gz gcc-ab13f408ce00a144b9be5027c72f5dee3fb45887.tar.bz2 | |
* gfortran.dg/underflow.f90: Use tiny(x)/huge(x).
From-SVN: r98142
Diffstat (limited to 'gcc')
| -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 |