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

     1  extern void abort();
     2  
     3  #define HOST_WIDE_INT long
     4  #define HOST_BITS_PER_WIDE_INT (sizeof(long)*8)
     5  
     6  struct tree_type
     7  {
     8    unsigned int precision : 9;
     9  };
    10  
    11  int
    12  sign_bit_p (struct tree_type *t, HOST_WIDE_INT val_hi, unsigned HOST_WIDE_INT val_lo)
    13  {
    14    unsigned HOST_WIDE_INT mask_lo, lo;
    15    HOST_WIDE_INT mask_hi, hi;
    16    int width = t->precision;
    17  
    18    if (width > HOST_BITS_PER_WIDE_INT)
    19      {
    20        hi = (unsigned HOST_WIDE_INT) 1 << (width - HOST_BITS_PER_WIDE_INT - 1);
    21        lo = 0;
    22  
    23        mask_hi = ((unsigned HOST_WIDE_INT) -1
    24                   >> (2 * HOST_BITS_PER_WIDE_INT - width));
    25        mask_lo = -1;
    26      }
    27    else
    28      {
    29        hi = 0;
    30        lo = (unsigned HOST_WIDE_INT) 1 << (width - 1);
    31      
    32        mask_hi = 0;
    33        mask_lo = ((unsigned HOST_WIDE_INT) -1
    34                   >> (HOST_BITS_PER_WIDE_INT - width));
    35      }
    36  
    37    if ((val_hi & mask_hi) == hi
    38        && (val_lo & mask_lo) == lo)
    39      return 1;
    40  
    41    return 0;
    42  }
    43  
    44  int main()
    45  {
    46    struct tree_type t;
    47    t.precision = 1;
    48    if (!sign_bit_p (&t, 0, -1))
    49      abort ();
    50    return 0;
    51  }