New test. Approved by rth.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@32126 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/gcc.c-torture/ChangeLog b/gcc/testsuite/gcc.c-torture/ChangeLog
index 1c0a9d7..ae8e531 100644 (file)
--- a/gcc/testsuite/gcc.c-torture/ChangeLog
+++ b/gcc/testsuite/gcc.c-torture/ChangeLog
@@ -1,3 +1,7 @@
+Wed Feb 23 14:16:06 2000  Donald Lindsay  <dlindsay@cygnus.com>
+
+       * execute/va-arg-12.c: New test.
+
 2000-02-23  Nathan Sidwell  <nathan@codesourcery.com>
 
        * execute/20000223-1.c: New test.

diff --git a/gcc/testsuite/gcc.c-torture/execute/va-arg-12.c b/gcc/testsuite/gcc.c-torture/execute/va-arg-12.c
new file mode 100644 (file)
index 0000000..f2971d9
--- /dev/null
+++ b/gcc/testsuite/gcc.c-torture/execute/va-arg-12.c
@@ -0,0 +1,25 @@
+#include <stdarg.h>
+
+/*typedef unsigned long L;*/
+typedef double L;
+void f (L p0, L p1, L p2, L p3, L p4, L p5, L p6, L p7, L p8, ...)
+{
+  va_list select;
+
+  va_start (select, p8);
+
+  if (va_arg (select, L) != 10.)
+    abort ();
+  if (va_arg (select, L) != 11.)
+    abort ();
+  if (va_arg (select, L) != 0.)
+    abort ();
+
+  va_end (select);
+}
+
+int main ()
+{
+  f (1., 2., 3., 4., 5., 6., 7., 8., 9., 10., 11., 0.);
+  exit (0);
+}