sdcc/support/regression/tests/gcc-torture-execute-pr64979.c

   1 /*
   2    pr64979.c from the execute part of the gcc torture tests.
   3  */
   4
   5 #include <testfwk.h>
   6
   7 #ifdef __SDCC
   8 #pragma std_c99
   9 #pragma disable_warning 93
  10 #endif
  11
  12 /* PR target/64979 */
  13
  14 #include <stdarg.h>
  15
  16 #ifndef __SDCC_pdk14 // Lack of memory
  17 void
  18 bar (int x, va_list *ap)
  19 {
  20   (void)x;
  21   if (ap)
  22     {
  23       int i;
  24       for (i = 0; i < 10; i++)
  25         ASSERT (i == va_arg (*ap, int));
  26       ASSERT (va_arg (*ap, double) == 0.5);
  27     }
  28 }
  29
  30 void
  31 foo (int x, ...)
  32 {
  33   va_list ap;
  34   int n;
  35
  36   va_start (ap, x);
  37   n = va_arg (ap, int);
  38   bar (x, (va_list *) ((n == 0) ? ((void *) 0) : &ap));
  39   va_end (ap);
  40 }
  41 #endif
  42
  43 void
  44 testTortureExecute (void)
  45 {
  46 #ifndef __SDCC_pdk14 // Lack of memory
  47   foo (100, 1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0.5);
  48   return;
  49 #endif
  50 }