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

   1 /*
   2 va-arg-26.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 double f (float f1, float f2, float f3, float f4,
  13           float f5, float f6, ...)
  14 {
  15   va_list ap;
  16   double d;
  17
  18   va_start (ap, f6);
  19   d = va_arg (ap, double);
  20   va_end (ap);
  21   return d;
  22 }
  23
  24 void
  25 testTortureExecute (void)
  26 {
  27 #ifndef __SDCC_pdk14 // Lack of memory
  28   if (f (1, 2, 3, 4, 5, 6, 7.0) != 7.0)
  29     ASSERT (0);
  30   return;
  31 #endif
  32 }