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

   1 /*
   2    20030613-1.c from the execute part of the gcc torture tests.
   3  */
   4
   5 #include <testfwk.h>
   6
   7 #ifdef __SDCC
   8 #pragma std_c99
   9 #endif
  10
  11 // TODO: Enable when sdcc supports struct assignment!
  12 #if 0
  13 /* PR optimization/10955 */
  14 /* Originator: <heinrich.brand@fujitsu-siemens.com> */
  15
  16 /* This used to fail on SPARC32 at -O3 because the loop unroller
  17    wrongly thought it could eliminate a pseudo in a loop, while
  18    the pseudo was used outside the loop.  */
  19
  20 #define COMPLEX struct CS
  21
  22 COMPLEX {
  23   long x;
  24   long y;
  25 };
  26
  27
  28 static COMPLEX CCID (COMPLEX x)
  29 {
  30   COMPLEX a;
  31
  32   a.x = x.x;
  33   a.y = x.y;
  34
  35   return a;
  36 }
  37
  38
  39 static COMPLEX CPOW (COMPLEX x, int y)
  40 {
  41   COMPLEX a;
  42   a = x;
  43
  44   while (--y > 0)
  45     a=CCID(a);
  46
  47   return a;
  48 }
  49
  50
  51 static int c5p (COMPLEX x)
  52 {
  53   COMPLEX a,b;
  54   a = CPOW (x, 2);
  55   b = CCID( CPOW(a,2) );
  56
  57   return (b.x == b.y);
  58 }
  59 #endif
  60
  61 void
  62 testTortureExecute (void)
  63 {
  64 #if 0
  65   COMPLEX  x;
  66
  67   x.x = -7;
  68   x.y = -7;
  69
  70   if (!c5p(x))
  71     ASSERT(0);
  72
  73   return;
  74 #endif
  75 }
  76