2003-12-26 Guilhem Lavaux <guilhem@kaffe.org>
[official-gcc.git] / gcc / testsuite / gcc.c-torture / execute / va-arg-17.c
blob17850db14433882184a49c02c47e063f5483348f
1 #include <stdarg.h>
3 typedef double TYPE;
5 void vafunction (char *dummy, ...)
7 va_list ap;
9 va_start(ap, dummy);
10 if (va_arg (ap, TYPE) != 1.)
11 abort();
12 if (va_arg (ap, TYPE) != 2.)
13 abort();
14 if (va_arg (ap, TYPE) != 3.)
15 abort();
16 if (va_arg (ap, TYPE) != 4.)
17 abort();
18 if (va_arg (ap, TYPE) != 5.)
19 abort();
20 if (va_arg (ap, TYPE) != 6.)
21 abort();
22 if (va_arg (ap, TYPE) != 7.)
23 abort();
24 if (va_arg (ap, TYPE) != 8.)
25 abort();
26 if (va_arg (ap, TYPE) != 9.)
27 abort();
28 va_end(ap);
32 int main (void)
34 vafunction( "", 1., 2., 3., 4., 5., 6., 7., 8., 9. );
35 exit(0);
36 return 0;