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

   1 /*
   2    960513-1.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 #endif
  10
  11 // TODO: Enable when sdcc supports long double!
  12 #if 0
  13 long double
  14 f (d, i)
  15      long double d;
  16      int i;
  17 {
  18   long double e;
  19
  20   d = -d;
  21   e = d;
  22   if (i == 1)
  23     d *= 2;
  24   d -= e * d;
  25   d -= e * d;
  26   d -= e * d;
  27   d -= e * d;
  28   d -= e * d;
  29   return d;
  30 }
  31 #endif
  32
  33 void
  34 testTortureExecute (void)
  35 {
  36 #if 0
  37   if (! (int) (f (2.0L, 1)))
  38     ASSERT (0);
  39   return;
  40 #endif
  41 }
  42