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

   1 /*
   2    980205.c from the execute part of the gcc torture suite.
   3  */
   4
   5 #include <testfwk.h>
   6
   7 #ifdef __SDCC
   8 #pragma std_c99
   9 #pragma disable_warning 93
  10 #endif
  11
  12 #include <stdarg.h>
  13
  14 void fdouble (double one, ...)
  15 {
  16
  17   double value;
  18   va_list ap;
  19
  20   va_start (ap, one);
  21   value = va_arg (ap, double);
  22   va_end (ap);
  23 #ifndef __SDCC_pdk14 // Lack of memory
  24   if (one != 1.0 || value != 2.0)
  25     ASSERT (0);
  26 #endif
  27 }
  28
  29 void
  30 testTortureExecute (void)
  31 {
  32   fdouble (1.0, 2.0);
  33   return;
  34 }
  35