+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.
2005-05-28 Jan Hubicka <jh@suse.cz>
* tree-prof.exp: Fix comment.
--- /dev/null
+! { 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