sdcc/support/regression/tests/gcc-torture-execute-va-arg-12.c

   1 /*
   2 va-arg-12.c from the execute part of the gcc torture tests.
   3 */
   4
   5 #include <testfwk.h>
   6
   7 #pragma disable_warning 85
   8 #pragma disable_warning 93
   9
  10 #include <stdarg.h>
  11
  12 /*typedef unsigned long L;*/
  13 typedef double L;
  14 void f (L p0, L p1, L p2, L p3, L p4, L p5, L p6, L p7, L p8, ...)
  15 {
  16   va_list select;
  17
  18   va_start (select, p8);
  19
  20   if (va_arg (select, L) != 10.)
  21     ASSERT (0);
  22   if (va_arg (select, L) != 11.)
  23     ASSERT (0);
  24   if (va_arg (select, L) != 0.)
  25     ASSERT (0);
  26
  27   va_end (select);
  28 }
  29
  30 void
  31 testTortureExecute (void)
  32 {
  33 #ifndef __SDCC_pdk14 // Lack of memory
  34   f (1., 2., 3., 4., 5., 6., 7., 8., 9., 10., 11., 0.);
  35   return;
  36 #endif
  37 }