From eaa939390106f61f7825e9e3f8182024a9583765 Mon Sep 17 00:00:00 2001
From: kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Sat, 28 May 2005 18:35:20 +0000
Subject: [PATCH] * gfortran.dg/subnormal_1.f90: new test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@100300 138bc75d-0d04-0410-961f-82ee72b054a4
---
 gcc/testsuite/ChangeLog                   |  4 ++++
 gcc/testsuite/gfortran.dg/subnormal_1.f90 | 11 +++++++++++
 2 files changed, 15 insertions(+)
 create mode 100644 gcc/testsuite/gfortran.dg/subnormal_1.f90

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 0416c70aed4..f1eafd2500e 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 00000000000..4fbde58078b
--- /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
-- 
2.11.4.GIT