aboutsummaryrefslogtreecommitdiff
path: root/gcc
diff options
context:
space:
mode:
authorHans-Peter Nilsson <hp@axis.com>2004-03-05 00:32:24 +0000
committerHans-Peter Nilsson <hp@gcc.gnu.org>2004-03-05 00:32:24 +0000
commit88cefc80fb583c8b4de16fb84e0b6f02f287b99a (patch)
tree0db4fc02524a6670460e59a8eb7d7f849f7a1662 /gcc
parentfc7b80e449142f24b52c3c0bc07ef6f9cc9fd885 (diff)
downloadgcc-88cefc80fb583c8b4de16fb84e0b6f02f287b99a.zip
gcc-88cefc80fb583c8b4de16fb84e0b6f02f287b99a.tar.gz
gcc-88cefc80fb583c8b4de16fb84e0b6f02f287b99a.tar.bz2
* gcc.c-torture/execute/ieee/mul-subnormal-single-1.c: New test.
From-SVN: r78952
Diffstat (limited to 'gcc')
-rw-r--r--gcc/testsuite/ChangeLog4
-rw-r--r--gcc/testsuite/gcc.c-torture/execute/ieee/mul-subnormal-single-1.c75
2 files changed, 79 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index bd7dfe5..db88add 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2004-03-05 Hans-Peter Nilsson <hp@axis.com>
+
+ * gcc.c-torture/execute/ieee/mul-subnormal-single-1.c: New test.
+
2004-03-04 Ziemowit Laski <zlaski@apple.com>
PR c++/14425, c++/14426
diff --git a/gcc/testsuite/gcc.c-torture/execute/ieee/mul-subnormal-single-1.c b/gcc/testsuite/gcc.c-torture/execute/ieee/mul-subnormal-single-1.c
new file mode 100644
index 0000000..d5f3fb4
--- /dev/null
+++ b/gcc/testsuite/gcc.c-torture/execute/ieee/mul-subnormal-single-1.c
@@ -0,0 +1,75 @@
+/* Check that certain subnormal numbers (formerly known as denormalized
+ numbers) are rounded to within 0.5 ulp. PR other/14354. */
+
+/* This test requires that float and unsigned int are the same size and
+ that the sign-bit of the float is at MSB of the unsigned int. */
+
+#if __INT_MAX__ != 2147483647L
+int main () { exit (0); }
+#else
+
+union uf
+{
+ unsigned int u;
+ float f;
+};
+
+static float
+u2f (unsigned int v)
+{
+ union uf u;
+ u.u = v;
+ return u.f;
+}
+
+static unsigned int
+f2u (float v)
+{
+ union uf u;
+ u.f = v;
+ return u.u;
+}
+
+int ok = 1;
+
+static void
+tstmul (unsigned int ux, unsigned int uy, unsigned int ur)
+{
+ float x = u2f (ux);
+ float y = u2f (uy);
+
+ if (f2u (x * y) != ur)
+ /* Set a variable rather than aborting here, to simplify tracing when
+ several computations are wrong. */
+ ok = 0;
+}
+
+/* We don't want to make this const and static, or else we risk inlining
+ causing the test to fold as constants at compile-time. */
+struct
+{
+ unsigned int p1, p2, res;
+} expected[] =
+ {
+ {0xfff, 0x3f800400, 0xfff},
+ {0xf, 0x3fc88888, 0x17},
+ {0xf, 0x3f844444, 0xf}
+ };
+
+int
+main (int argc, char *argv[], char *envp[])
+{
+ unsigned int i;
+
+ for (i = 0; i < sizeof (expected) / sizeof (expected[0]); i++)
+ {
+ tstmul (expected[i].p1, expected[i].p2, expected[i].res);
+ tstmul (expected[i].p2, expected[i].p1, expected[i].res);
+ }
+
+ if (!ok)
+ abort ();
+
+ exit (0);
+}
+#endif