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

From-SVN: r20572

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index b5c4aab..ea592b3 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+Fri Jun 19 02:05:14 1998  Jeffrey A Law  (law@cygnus.com)
+
+       * gcc.c-torture/execute/ieee/980619-1.c: New test.
+
 Fri Jun 19 00:58:11 1998  Robert Lipe  <robertl@dgii.com>
 
        *lib/g77.exp: Replace search for libf2c.a with search for newly

diff --git a/gcc/testsuite/gcc.c-torture/execute/ieee/980619-1.c b/gcc/testsuite/gcc.c-torture/execute/ieee/980619-1.c
new file mode 100644 (file)
index 0000000..0465ed5
--- /dev/null
+++ b/gcc/testsuite/gcc.c-torture/execute/ieee/980619-1.c
@@ -0,0 +1,23 @@
+       int main(void)
+       {
+               float reale = 1.0f;
+               float oneplus;
+               int i;
+       
+               if (sizeof (float) != 4)
+                 exit (0);
+
+               for (i = 0; ; i++)
+               {
+                       oneplus = 1.0f + reale;
+                       if (oneplus == 1.0f)
+                               break;
+                       reale=reale/2.0f;
+               }
+               /* Assumes ieee754 accurate arithmetic above.  */
+               if (i != 24)
+                 abort ();
+               else
+                 exit (0);
+       }
+