OSDN Git Service

PR target/36800
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gcc.dg / dfp / pr36800.c
1 /* { dg-do run } */
2 /* { dg-options "-std=gnu99" } */
3
4 #include <stdarg.h>
5 extern void abort (void);
6
7 void
8 f (int a, ...)
9 {
10   va_list ap;
11   if (a != 0)
12     abort ();
13   va_start (ap, a);
14   if (va_arg (ap, _Decimal128) != 1.2DL)
15     abort ();
16   if (va_arg (ap, _Decimal128) != 2.34DL)
17     abort ();
18   if (va_arg (ap, _Decimal128) != 3.456DL)
19     abort ();
20   if (va_arg (ap, _Decimal128) != 4.567DL)
21     abort ();
22   if (va_arg (ap, double) != 5.125)
23     abort ();
24   va_end (ap);
25 }
26
27 int
28 main (void)
29 {
30   f (0, 1.2DL, 2.34DL, 3.456DL, 4.567DL, 5.125);
31   return 0;
32 }