OSDN Git Service

testsuite/
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gcc.c-torture / execute / va-arg-7.c
1 /* Origin: Franz Sirl <Franz.Sirl-kernel@lauterbach.com> */
2
3 #include <stdarg.h>
4
5 inline void
6 debug(int i1, int i2, int i3, int i4, int i5, int i6, int i7,
7       double f1, double f2, double f3, double f4, double f5,
8       double f6, double f7, double f8, double f9, ...)
9 {
10   va_list ap;
11
12   va_start (ap, f9);
13
14   if (va_arg (ap,int) != 8)
15     abort ();
16   if (va_arg (ap,int) != 9)
17     abort ();
18   if (va_arg (ap,int) != 10)
19     abort ();
20
21   va_end (ap);
22 }
23
24 int
25 main(void)
26 {
27   debug (1, 2, 3, 4, 5, 6, 7,
28          1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0, 9.0,
29          8, 9, 10);
30   exit (0);
31 }