modernc.org/ccgo/v3@v3.16.14/lib/testdata/gcc-9.1.0/gcc/testsuite/gcc.c-torture/execute/20020508-3.c (about)

     1  #include <limits.h>
     2  
     3  #ifndef CHAR_BIT
     4  #define CHAR_BIT 8
     5  #endif
     6  
     7  #define ROR(a,b) (((a) >> (b)) | ((a) << ((sizeof (a) * CHAR_BIT) - (b))))
     8  #define ROL(a,b) (((a) << (b)) | ((a) >> ((sizeof (a) * CHAR_BIT) - (b))))
     9  
    10  #define CHAR_VALUE ((char)0xf234)
    11  #define SHORT_VALUE ((short)0xf234)
    12  #define INT_VALUE ((int)0xf234)
    13  #define LONG_VALUE ((long)0xf2345678L)
    14  #define LL_VALUE ((long long)0xf2345678abcdef0LL)
    15  
    16  #define SHIFT1 4
    17  #define SHIFT2 ((sizeof (long long) * CHAR_BIT) - SHIFT1)
    18  
    19  char c = CHAR_VALUE;
    20  short s = SHORT_VALUE;
    21  int i = INT_VALUE;
    22  long l = LONG_VALUE;
    23  long long ll = LL_VALUE;
    24  int shift1 = SHIFT1;
    25  int shift2 = SHIFT2;
    26  
    27  main ()
    28  {
    29    if (ROR (c, shift1) != ROR (CHAR_VALUE, SHIFT1))
    30      abort ();
    31  
    32    if (ROR (c, SHIFT1) != ROR (CHAR_VALUE, SHIFT1))
    33      abort ();
    34  
    35    if (ROR (s, shift1) != ROR (SHORT_VALUE, SHIFT1))
    36      abort ();
    37  
    38    if (ROR (s, SHIFT1) != ROR (SHORT_VALUE, SHIFT1))
    39      abort ();
    40  
    41    if (ROR (i, shift1) != ROR (INT_VALUE, SHIFT1))
    42      abort ();
    43  
    44    if (ROR (i, SHIFT1) != ROR (INT_VALUE, SHIFT1))
    45      abort ();
    46  
    47    if (ROR (l, shift1) != ROR (LONG_VALUE, SHIFT1))
    48      abort ();
    49  
    50    if (ROR (l, SHIFT1) != ROR (LONG_VALUE, SHIFT1))
    51      abort ();
    52  
    53    if (ROR (ll, shift1) != ROR (LL_VALUE, SHIFT1))
    54      abort ();
    55  
    56    if (ROR (ll, SHIFT1) != ROR (LL_VALUE, SHIFT1))
    57      abort ();
    58  
    59    if (ROR (ll, shift2) != ROR (LL_VALUE, SHIFT2))
    60      abort ();
    61  
    62    if (ROR (ll, SHIFT2) != ROR (LL_VALUE, SHIFT2))
    63      abort ();
    64  
    65    if (ROL (c, shift1) != ROL (CHAR_VALUE, SHIFT1))
    66      abort ();
    67  
    68    if (ROL (c, SHIFT1) != ROL (CHAR_VALUE, SHIFT1))
    69      abort ();
    70  
    71    if (ROL (s, shift1) != ROL (SHORT_VALUE, SHIFT1))
    72      abort ();
    73  
    74    if (ROL (s, SHIFT1) != ROL (SHORT_VALUE, SHIFT1))
    75      abort ();
    76  
    77    if (ROL (i, shift1) != ROL (INT_VALUE, SHIFT1))
    78      abort ();
    79  
    80    if (ROL (i, SHIFT1) != ROL (INT_VALUE, SHIFT1))
    81      abort ();
    82  
    83    if (ROL (l, shift1) != ROL (LONG_VALUE, SHIFT1))
    84      abort ();
    85  
    86    if (ROL (l, SHIFT1) != ROL (LONG_VALUE, SHIFT1))
    87      abort ();
    88  
    89    if (ROL (ll, shift1) != ROL (LL_VALUE, SHIFT1))
    90      abort ();
    91  
    92    if (ROL (ll, SHIFT1) != ROL (LL_VALUE, SHIFT1))
    93      abort ();
    94  
    95    if (ROL (ll, shift2) != ROL (LL_VALUE, SHIFT2))
    96      abort ();
    97  
    98    if (ROL (ll, SHIFT2) != ROL (LL_VALUE, SHIFT2))
    99      abort ();
   100  
   101    exit (0);
   102  }