* gfortran.dg/subnormal_1.f90: new test.

From-SVN: r100300

* gfortran.dg/subnormal_1.f90: new test.
From-SVN: r100300
d1aa35ae · Steven G. Kargl · Steven G. Kargl · cd66d1a1 · d1aa35ae · d1aa35ae
Commit d1aa35ae authored May 28, 2005 by Steven G. Kargl Committed by Steven G. Kargl May 28, 2005
Hide whitespace changes
Inline Side-by-side

Showing with 15 additions and 0 deletions

gcc/testsuite/ChangeLog
+4 -0

gcc/testsuite/gfortran.dg/subnormal_1.f90
+11 -0

No files found.
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
+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.

--- a/gcc/testsuite/gfortran.dg/subnormal_1.f90
+++ b/gcc/testsuite/gfortran.dg/subnormal_1.f90
+! { 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