diff options
| author | Steven G. Kargl <kargls@comcast.net> | 2005-05-28 18:35:20 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2005-05-28 18:35:20 +0000 |
| commit | d1aa35ae8ee1188cdc524e1785c5ad13499922d4 (patch) | |
| tree | 82678338208051f8dbccb96812923d0b641fb369 | |
| parent | cd66d1a11b97fdfe3f99fcea1042d8eba8387784 (diff) | |
| download | gcc-d1aa35ae8ee1188cdc524e1785c5ad13499922d4.zip gcc-d1aa35ae8ee1188cdc524e1785c5ad13499922d4.tar.gz gcc-d1aa35ae8ee1188cdc524e1785c5ad13499922d4.tar.bz2 | |
* gfortran.dg/subnormal_1.f90: new test.
From-SVN: r100300
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/subnormal_1.f90 | 11 |
2 files changed, 15 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 0416c70..f1eafd2 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2005-05-28 Steven G. Kargl <kargls@comcast.net> + + * gfortran.dg/subnormal_1.f90: New test. + 2005-05-28 Jan Hubicka <jh@suse.cz> * tree-prof.exp: Fix comment. diff --git a/gcc/testsuite/gfortran.dg/subnormal_1.f90 b/gcc/testsuite/gfortran.dg/subnormal_1.f90 new file mode 100644 index 0000000..4fbde58 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/subnormal_1.f90 @@ -0,0 +1,11 @@ +! { dg-do run } +! { dg-options "-Wno-underflow" } +! Check that the chopping of bits of subnormal numbers works. +! +program chop + real x + x = 1. + if (tiny(x)/2. /= tiny(x)/2. - (nearest(tiny(x),1.) - tiny(x))/2.) then + call abort + end if +end program chop |