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

   1 /*
   2    shiftopt-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 /* Copyright (C) 2002  Free Software Foundation
  12
  13    Check that constant folding of shift operations is working.
  14
  15    Roger Sayle, 10th October 2002.  */
  16
  17 extern void link_error (void);
  18
  19 void
  20 utest (unsigned int x)
  21 {
  22   if (x >> 0 != x)
  23     link_error ();
  24
  25   if (x << 0 != x)
  26     link_error ();
  27
  28   if (0 << x != 0)
  29     link_error ();
  30
  31   if (0 >> x != 0)
  32     link_error ();
  33
  34   if (-1 >> x != -1)
  35     link_error ();
  36
  37   if (~0 >> x != ~0)
  38     link_error ();
  39 }
  40
  41 void
  42 stest (int x)
  43 {
  44   if (x >> 0 != x)
  45     link_error ();
  46
  47   if (x << 0 != x)
  48     link_error ();
  49
  50   if (0 << x != 0)
  51     link_error ();
  52
  53   if (0 >> x != 0)
  54     link_error ();
  55 }
  56
  57 void
  58 testTortureExecute (void)
  59 {
  60   utest(9);
  61   utest(0);
  62
  63   stest(9);
  64   stest(0);
  65
  66   return;
  67 }
  68
  69 void
  70 link_error ()
  71 {
  72   ASSERT (0);
  73 }
  74