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

   1 /*
   2    960215-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 C = 2;
  14 long double U = 1;
  15 long double Y2 = 3;
  16 long double Y1 = 1;
  17 long double X, Y, Z, T, R, S;
  18 #endif
  19
  20 void
  21 testTortureExecute (void)
  22 {
  23 #if 0
  24   X = (C + U) * Y2;
  25   Y = C - U - U;
  26   Z = C + U + U;
  27   T = (C - U) * Y1;
  28   X = X - (Z + U);
  29   R = Y * Y1;
  30   S = Z * Y2;
  31   T = T - Y;
  32   Y = (U - Y) + R;
  33   Z = S - (Z + U + U);
  34   R = (Y2 + U) * Y1;
  35   Y1 = Y2 * Y1;
  36   R = R - Y2;
  37   Y1 = Y1 - 0.5L;
  38   if (Z != 6)
  39     ASSERT (0);
  40   return;
  41 #endif
  42 }
  43