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

   1 /*
   2    20020508-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 /* This tests the rotate patterns that some machines support.  */
  12
  13 #include <limits.h>
  14
  15 #ifndef CHAR_BIT
  16 #define CHAR_BIT 8
  17 #endif
  18
  19 #define ROR(a,b) (((a) >> (b)) | ((a) << ((sizeof (a) * CHAR_BIT) - (b))))
  20 #define ROL(a,b) (((a) << (b)) | ((a) >> ((sizeof (a) * CHAR_BIT) - (b))))
  21
  22 #define CHAR_VALUE ((unsigned char)0xf234U)
  23 #define SHORT_VALUE ((unsigned short)0xf234U)
  24 #define INT_VALUE 0xf234U
  25 #define LONG_VALUE 0xf2345678LU
  26 #define LL_VALUE 0xf2345678abcdef0LLU
  27
  28 #define SHIFT1 4
  29 #define SHIFT2 ((sizeof (long long) * CHAR_BIT) - SHIFT1)
  30
  31 unsigned char uc = CHAR_VALUE;
  32 unsigned short us = SHORT_VALUE;
  33 unsigned int ui = INT_VALUE;
  34 unsigned long ul = LONG_VALUE;
  35 unsigned long long ull = LL_VALUE;
  36 int shift1 = SHIFT1;
  37 int shift2 = SHIFT2;
  38
  39 void
  40 testTortureExecute (void)
  41 {
  42   if (ROR (uc, shift1) != ROR (CHAR_VALUE, SHIFT1))
  43     ASSERT (0);
  44
  45   if (ROR (uc, SHIFT1) != ROR (CHAR_VALUE, SHIFT1))
  46     ASSERT (0);
  47
  48   if (ROR (us, shift1) != ROR (SHORT_VALUE, SHIFT1))
  49     ASSERT (0);
  50
  51   if (ROR (us, SHIFT1) != ROR (SHORT_VALUE, SHIFT1))
  52     ASSERT (0);
  53 #if !defined(__SDCC_pdk14) && !defined(__SDCC_pdk15) // Lack of memory
  54   if (ROR (ui, shift1) != ROR (INT_VALUE, SHIFT1))
  55     ASSERT (0);
  56
  57   if (ROR (ui, SHIFT1) != ROR (INT_VALUE, SHIFT1))
  58     ASSERT (0);
  59
  60   if (ROR (ul, shift1) != ROR (LONG_VALUE, SHIFT1))
  61     ASSERT (0);
  62
  63   if (ROR (ul, SHIFT1) != ROR (LONG_VALUE, SHIFT1))
  64     ASSERT (0);
  65
  66   if (ROR (ull, shift1) != ROR (LL_VALUE, SHIFT1))
  67     ASSERT (0);
  68
  69   if (ROR (ull, SHIFT1) != ROR (LL_VALUE, SHIFT1))
  70     ASSERT (0);
  71
  72   if (ROR (ull, shift2) != ROR (LL_VALUE, SHIFT2))
  73     ASSERT (0);
  74
  75   if (ROR (ull, SHIFT2) != ROR (LL_VALUE, SHIFT2))
  76     ASSERT (0);
  77
  78   if (ROL (uc, shift1) != ROL (CHAR_VALUE, SHIFT1))
  79     ASSERT (0);
  80
  81   if (ROL (uc, SHIFT1) != ROL (CHAR_VALUE, SHIFT1))
  82     ASSERT (0);
  83
  84   if (ROL (us, shift1) != ROL (SHORT_VALUE, SHIFT1))
  85     ASSERT (0);
  86
  87   if (ROL (us, SHIFT1) != ROL (SHORT_VALUE, SHIFT1))
  88     ASSERT (0);
  89
  90   if (ROL (ui, shift1) != ROL (INT_VALUE, SHIFT1))
  91     ASSERT (0);
  92
  93   if (ROL (ui, SHIFT1) != ROL (INT_VALUE, SHIFT1))
  94     ASSERT (0);
  95
  96   if (ROL (ul, shift1) != ROL (LONG_VALUE, SHIFT1))
  97     ASSERT (0);
  98
  99   if (ROL (ul, SHIFT1) != ROL (LONG_VALUE, SHIFT1))
 100     ASSERT (0);
 101
 102   if (ROL (ull, shift1) != ROL (LL_VALUE, SHIFT1))
 103     ASSERT (0);
 104
 105   if (ROL (ull, SHIFT1) != ROL (LL_VALUE, SHIFT1))
 106     ASSERT (0);
 107
 108   if (ROL (ull, shift2) != ROL (LL_VALUE, SHIFT2))
 109     ASSERT (0);
 110
 111   if (ROL (ull, SHIFT2) != ROL (LL_VALUE, SHIFT2))
 112     ASSERT (0);
 113 #endif
 114   return;
 115 }