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

From-SVN: r28976

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 720751e034b0b27b44c8c665178fd489c9780b67..e4163b4f625ec9a98f6e20d9854ab7e2115d3bf7 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,5 +1,6 @@
 Sun Aug 29 14:35:41 1999  Jeffrey A Law  (law@cygnus.com)
 
+       * gcc.c-torture/execute/990829-1.c: New test.
        * gcc.c-torture/compile/990829-1.c: New test.
 
 1999-08-27  Paul Burchard  <burchard@pobox.com>

diff --git a/gcc/testsuite/gcc.c-torture/execute/990829-1.c b/gcc/testsuite/gcc.c-torture/execute/990829-1.c
new file mode 100644 (file)
index 0000000..82f8186
--- /dev/null
+++ b/gcc/testsuite/gcc.c-torture/execute/990829-1.c
@@ -0,0 +1,15 @@
+double test (const double le, const double ri)
+{
+       double val = ( ri - le ) / ( ri * ( le + 1.0 ) );
+       return val;
+}
+
+int main ()
+{
+        double retval;
+
+       retval = test(1.0,2.0);
+        if (retval < 0.24 || retval > 0.26)
+         abort ();
+       exit (0);
+}