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

   1 /*
   2    981001-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 #define NG   0x100L
  12
  13 #if !defined(__SDCC_pdk14) && !defined(__SDCC_pdk15) // Lack of memory
  14 unsigned long flg = 0;
  15
  16 long sub (int n) __reentrant
  17 {
  18   int a, b ;
  19
  20   if (n >= 2)
  21     {
  22       if (n % 2 == 0)
  23         {
  24           a = sub (n / 2);
  25
  26           return (a + 2 * sub (n / 2 - 1)) * a;
  27         }
  28       else
  29         {
  30           a = sub (n / 2 + 1);
  31           b = sub (n / 2);
  32
  33           return a * a + b * b;
  34         }
  35     }
  36   else
  37     return (long) n;
  38 }
  39 #endif
  40
  41 void
  42 testTortureExecute (void)
  43 {
  44 #if !defined(__SDCC_pdk14) && !defined(__SDCC_pdk15) // Lack of memory
  45   if (sub (30) != 832040L)
  46     flg |= NG;
  47
  48   if (flg)
  49     ASSERT (0);
  50
  51   return;
  52 #endif
  53 }
  54