From: Julian Seward <jseward@acm.org>
Date: Tue, 16 Nov 2004 00:56:35 +0000 (+0000)
Subject: Program for testing IEEE gradual underflow.
X-Git-Tag: svn/VALGRIND_3_0_1^2~774
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=d101955e06d97832a5af656fc17a2553b0bebb15;p=thirdparty%2Fvalgrind.git

Program for testing IEEE gradual underflow.


git-svn-id: svn://svn.valgrind.org/vex/trunk@560
---

diff --git a/VEX/useful/gradual_underflow.c b/VEX/useful/gradual_underflow.c
new file mode 100644
index 0000000000..53886d8afd
--- /dev/null
+++ b/VEX/useful/gradual_underflow.c
@@ -0,0 +1,15 @@
+
+#include <stdio.h>
+
+int main ( void )
+{
+double d =  7.25063790881233303e-303;
+ int i;
+
+ for (i = 0; i < 26; i++) {
+			    printf("%.16e\n", d);
+			    d *= 0.1012198489248992489422;
+ }
+  return 0;
+}
+