gcc/testsuite/gcc.dg/fixed-point/operator-unary.c

   1 /* { dg-do run } */
   2 /* { dg-options "-std=gnu99" } */
   3
   4 /* C99 6.5.3 Unary operators & and *.
   5    Based on the test from ../dfp/.  */
   6
   7 extern void abort (void);
   8
   9 #define UNARY_OPERATOR(TYPE,SUFFIX)     \
  10 do                                      \
  11 {                                       \
  12  TYPE unary_d = 0.1 ## SUFFIX;          \
  13  TYPE* unary_dp;                        \
  14  /*  & operator.  */                    \
  15  unary_dp = &(unary_d);                 \
  16  /*  * operator.  */                    \
  17  unary_d = *(unary_dp);                 \
  18 } while (0)
  19
  20 int
  21 main ()
  22 {
  23   /*  C99 6.5.3 Unary operators.  */
  24   UNARY_OPERATOR(short _Fract, hr);
  25   UNARY_OPERATOR(_Fract, r);
  26   UNARY_OPERATOR(long _Fract, lr);
  27   UNARY_OPERATOR(long long _Fract, llr);
  28   UNARY_OPERATOR(unsigned short _Fract, uhr);
  29   UNARY_OPERATOR(unsigned _Fract, ur);
  30   UNARY_OPERATOR(unsigned long _Fract, ulr);
  31   UNARY_OPERATOR(unsigned long long _Fract, ullr);
  32   UNARY_OPERATOR(_Sat short _Fract, hr);
  33   UNARY_OPERATOR(_Sat _Fract, r);
  34   UNARY_OPERATOR(_Sat long _Fract, lr);
  35   UNARY_OPERATOR(_Sat long long _Fract, llr);
  36   UNARY_OPERATOR(_Sat unsigned short _Fract, uhr);
  37   UNARY_OPERATOR(_Sat unsigned _Fract, ur);
  38   UNARY_OPERATOR(_Sat unsigned long _Fract, ulr);
  39   UNARY_OPERATOR(_Sat unsigned long long _Fract, ullr);
  40   UNARY_OPERATOR(short _Accum, hk);
  41   UNARY_OPERATOR(_Accum, k);
  42   UNARY_OPERATOR(long _Accum, lk);
  43   UNARY_OPERATOR(long long _Accum, llk);
  44   UNARY_OPERATOR(unsigned short _Accum, uhk);
  45   UNARY_OPERATOR(unsigned _Accum, uk);
  46   UNARY_OPERATOR(unsigned long _Accum, ulk);
  47   UNARY_OPERATOR(unsigned long long _Accum, ullk);
  48   UNARY_OPERATOR(_Sat short _Accum, hk);
  49   UNARY_OPERATOR(_Sat _Accum, k);
  50   UNARY_OPERATOR(_Sat long _Accum, lk);
  51   UNARY_OPERATOR(_Sat long long _Accum, llk);
  52   UNARY_OPERATOR(_Sat unsigned short _Accum, uhk);
  53   UNARY_OPERATOR(_Sat unsigned _Accum, uk);
  54   UNARY_OPERATOR(_Sat unsigned long _Accum, ulk);
  55   UNARY_OPERATOR(_Sat unsigned long long _Accum, ullk);
  56
  57   return 0;
  58 }