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

   1 /*
   2 regstack-1.c from the execute part of the gcc torture tests.
   3 */
   4
   5 #include <testfwk.h>
   6
   7 #if 0 // TODO: Enable when SDCC supports long double!
   8 long double C = 5;
   9 long double U = 1;
  10 long double Y2 = 11;
  11 long double Y1 = 17;
  12 long double X, Y, Z, T, R, S;
  13 #endif
  14 void
  15 testTortureExecute (void)
  16 {
  17 #if 0
  18   X = (C + U) * Y2;
  19   Y = C - U - U;
  20   Z = C + U + U;
  21   T = (C - U) * Y1;
  22   X = X - (Z + U);
  23   R = Y * Y1;
  24   S = Z * Y2;
  25   T = T - Y;
  26   Y = (U - Y) + R;
  27   Z = S - (Z + U + U);
  28   R = (Y2 + U) * Y1;
  29   Y1 = Y2 * Y1;
  30   R = R - Y2;
  31   Y1 = Y1 - 0.5L;
  32   if (Z != 68. || Y != 49. || X != 58. || Y1 != 186.5 || R != 193. || S != 77.
  33       || T != 65. || Y2 != 11.)
  34     ASSERT (0);
  35   return;
  36 #endif
  37 }