20010226-1.c: New test.

2001-02-26  Will Cohen  <wcohen@redhat.com>

	* gcc.c-torture/execute/ieee/20010226-1.c: New test.

From-SVN: r40071

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index b16a3f6..26dbca4 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2001-02-26  Will Cohen  <wcohen@redhat.com>
+
+       * gcc.c-torture/execute/ieee/20010226-1.c: New test.
+
 2001-02-26  Jeffrey Oldham  <oldham@codesourcery.com>
 
        * g++.old-deja/g++.pt/overload15.C: New test to stress overloaded

diff --git a/gcc/testsuite/gcc.c-torture/execute/ieee/20010226-1.c b/gcc/testsuite/gcc.c-torture/execute/ieee/20010226-1.c
new file mode 100644 (file)
index 0000000..91c8da3
--- /dev/null
+++ b/gcc/testsuite/gcc.c-torture/execute/ieee/20010226-1.c
@@ -0,0 +1,17 @@
+long double dfrom = 1.1;
+long double m1;
+long double m2;
+unsigned long mant_long;
+
+int main( )
+{
+  m1 = dfrom / 2.0;
+
+  m2 = m1 * 4294967296.0;
+  mant_long = ((unsigned long) m2) & 0xffffffff;
+
+  if ( mant_long == 0x8ccccccc)
+    exit (0);
+  else
+    abort();
+}