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

   1 /*
   2 va-arg-13.c from the execute part of the gcc torture tests.
   3 */
   4
   5 #include <testfwk.h>
   6
   7 /* derived from mozilla source code */
   8
   9 #include <stdarg.h>
  10
  11 typedef struct {
  12   void *stream;
  13   va_list ap;
  14   int nChar;
  15 } ScanfState;
  16
  17 void dummy (va_list vap)
  18 {
  19   if (va_arg (vap, int) != 1234) ASSERT(0);
  20   return;
  21 }
  22
  23 void test (int fmt, ...)
  24 {
  25   ScanfState state, *statep;
  26
  27   statep = &state;
  28
  29   va_start (statep->ap, fmt);
  30   dummy (statep->ap);
  31   va_end (statep->ap);
  32
  33   va_start (state.ap, fmt);
  34   dummy (state.ap);
  35   va_end (state.ap);
  36
  37   return;
  38 }
  39
  40 void
  41 testTortureExecute (void)
  42 {
  43 #ifndef __SDCC_ds390 // Bug #2779
  44   test (456, 1234);
  45   return;
  46 #endif
  47 }