sdcc/support/regression/tests/gcc-torture-execute-cvt-1.c

   1 /*
   2 cvt-1.c from the execute part of the gcc torture tests.
   3 */
   4
   5 #include <testfwk.h>
   6
   7 #ifdef __SDCC
   8 #pragma disable_warning 93
   9 #endif
  10
  11 #if !defined(__SDCC_pdk14) && !defined(__SDCC_pdk15) // Lack of memory
  12 static inline long
  13 g1 (double x)
  14 {
  15   return (double) (long) x;
  16 }
  17
  18 long
  19 g2 (double f)
  20 {
  21   return f;
  22 }
  23
  24 double
  25 f (long i)
  26 {
  27   if (g1 (i) != g2 (i))
  28     ASSERT (0);
  29   return g2 (i);
  30 }
  31 #endif
  32
  33 void
  34 testTortureExecute (void)
  35 {
  36 #if 0 // TODO: Enable when SDCC supports double!
  37   if (f (123456789L) != 123456789L)
  38     ASSERT (0);
  39   if (f (123456789L) != g2 (123456789L))
  40     ASSERT (0);
  41   return;
  42 #endif
  43 }