20000731-1.c: New test.

        * gcc.c-torture/execute/20000731-1.c: New test.
        * gcc.c-torture/execute/20000731-1.x: Expected to fail for i?86-*-*.

From-SVN: r35399

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 62ce61a..0aa57e3 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+Mon Jul 31 21:14:49 2000  Jeffrey A Law  (law@cygnus.com)
+
+       * gcc.c-torture/execute/20000731-1.c: New test.
+       * gcc.c-torture/execute/20000731-1.x: Expected to fail for i?86-*-*.
+
 2000-07-31  Jakub Jelinek  <jakub@redhat.com>
 
        * testsuite/gcc.dg/cpp/paste7.c: New test.

diff --git a/gcc/testsuite/gcc.c-torture/execute/20000731-1.c b/gcc/testsuite/gcc.c-torture/execute/20000731-1.c
new file mode 100644 (file)
index 0000000..787c29a
--- /dev/null
+++ b/gcc/testsuite/gcc.c-torture/execute/20000731-1.c
@@ -0,0 +1,24 @@
+double
+foo (void)
+{
+  return 0.0;
+}
+
+void
+do_sibcall (void)
+{
+  (void) foo ();
+}
+
+int
+main (void)
+{
+   double x;
+
+   for (x = 0; x < 20; x++)
+      do_sibcall ();
+   if (!(x >= 10))
+      abort ();
+   exit (0);
+}
+

diff --git a/gcc/testsuite/gcc.c-torture/execute/20000731-1.x b/gcc/testsuite/gcc.c-torture/execute/20000731-1.x
new file mode 100644 (file)
index 0000000..8d4b6e2
--- /dev/null
+++ b/gcc/testsuite/gcc.c-torture/execute/20000731-1.x
@@ -0,0 +1,3 @@
+# Doesn't work.  Hasn't worked ever, I think.
+set torture_execute_xfail "i?86-*-*"
+return 0