va-arg-14.c: New test for va_start where the first parameter is a function argument.

* execute/va-arg-14.c: New test for va_start where the first
parameter is a function argument.

From-SVN: r32734

gcc/testsuite/gcc.c-torture/ChangeLog

+2000-03-24  Geoff Keating  <geoffk@cygnus.com>
+
+	* execute/va-arg-14.c: New test for va_start where the first
+	parameter is a function argument.
+
 2000-03-22  Geoff Keating  <geoffk@cygnus.com>
 
 	* execute/ieee/20000320-1.c: New test for denormals.

gcc/testsuite/gcc.c-torture/execute/va-arg-14.c

+#include <stdarg.h>
+
+va_list global;
+
+void vat(va_list param, ...)
+{
+  va_list local;
+
+  va_start (local, param);
+  va_copy (global, local);
+  va_copy (param, local);
+  if (va_arg (local, int) != 1)
+    abort();
+  va_end (local);
+  if (va_arg (global, int) != 1)
+    abort();
+  va_end (global);
+  if (va_arg (param, int) != 1)
+    abort();
+  va_end (param);
+
+  va_start (param, param);
+  va_start (global, param);
+  va_copy (local, param);
+  if (va_arg (local, int) != 1)
+    abort();
+  va_end (local);
+  va_copy (local, global);
+  if (va_arg (local, int) != 1)
+    abort();
+  va_end (local);
+  if (va_arg (global, int) != 1)
+    abort();
+  va_end (global);
+  if (va_arg (param, int) != 1)
+    abort();
+  va_end (param);
+}
+
+int main(void) 
+{
+  va_list t;
+  vat (t, 1);
+  exit (0);
+}