gcc/testsuite/gcc.dg/fixed-point/allconv.c

   1 /* { dg-do compile } */
   2 /* { dg-options "-std=gnu99" } */
   3
   4 /* C99 6.3 Conversions.
   5
   6    Check if all conversions are ok.  */
   7
   8 #define CONV(TYPE, NAME) \
   9         float NAME ## _to_SF (TYPE a) { return a; } \
  10         float Sat ## NAME ## _to_SF (_Sat TYPE a) { return a; } \
  11         double NAME ## _to_DF (TYPE a) { return a; } \
  12         double Sat ## NAME ## _to_DF (_Sat TYPE a) { return a; } \
  13         TYPE SF_to_ ## NAME (float a) { return a; } \
  14         _Sat TYPE SF_to_Sat ## NAME (float a) { return a; } \
  15         TYPE DF_to_ ## NAME (double a) { return a; } \
  16         _Sat TYPE DF_to_Sat ## NAME (double a) { return a; } \
  17         signed char NAME ## _to_schar (TYPE a) { return a; } \
  18         signed char Sat ## NAME ## _to_schar (_Sat TYPE a) { return a; } \
  19         unsigned char NAME ## _to_uchar (TYPE a) { return a; } \
  20         unsigned char Sat ## NAME ## _to_uchar (_Sat TYPE a) { return a; } \
  21         short NAME ## _to_short (TYPE a) { return a; } \
  22         short _Sat ## NAME ## _to_short (_Sat TYPE a) { return a; } \
  23         unsigned short NAME ## _to_ushort (TYPE a) { return a; } \
  24         unsigned short _Sat ## NAME ## _to_ushort (_Sat TYPE a) { return a; } \
  25         int NAME ## _to_int (TYPE a) { return a; } \
  26         int _Sat ## NAME ## _to_int (_Sat TYPE a) { return a; } \
  27         unsigned int NAME ## _to_uint (TYPE a) { return a; } \
  28         unsigned int _Sat ## NAME ## _to_uint (_Sat TYPE a) { return a; } \
  29         long NAME ## _to_long (TYPE a) { return a; } \
  30         unsigned long NAME ## _to_ulong (TYPE a) { return a; } \
  31         long _Sat ## NAME ## _to_long (TYPE a) { return a; } \
  32         unsigned long _Sat ## NAME ## _to_ulong (TYPE a) { return a; } \
  33         long long NAME ## _to_longlong (TYPE a) { return a; } \
  34         long long _Sat ## NAME ## _to_longlong (TYPE a) { return a; } \
  35         unsigned long long NAME ## _to_ulonglong (TYPE a) { return a; } \
  36         unsigned long long _Sat ## NAME ## _to_ulonglong (TYPE a) { return a; } \
  37         TYPE schar_to_ ## NAME (signed char a) { return a; } \
  38         _Sat TYPE schar_to_Sat ## NAME (signed char a) { return a; } \
  39         TYPE uchar_to_ ## NAME (unsigned char a) { return a; } \
  40         _Sat TYPE uchar_to_Sat ## NAME (unsigned char a) { return a; } \
  41         TYPE short_to_ ## NAME (short a) { return a; } \
  42         TYPE ushort_to_ ## NAME (unsigned short a) { return a; } \
  43         TYPE int_to_ ## NAME (int a) { return a; } \
  44         TYPE uint_to_ ## NAME (unsigned int a) { return a; } \
  45         TYPE long_to_ ## NAME (long a) { return a; } \
  46         TYPE ulong_to_ ## NAME (unsigned long a) { return a; } \
  47         TYPE longlong_to_ ## NAME (long long a) { return a; } \
  48         TYPE ulonglong_to_ ## NAME (unsigned long long a) { return a; } \
  49         _Sat TYPE short_to_Sat ## NAME (short a) { return a; } \
  50         _Sat TYPE ushort_to_Sat ## NAME (unsigned short a) { return a; } \
  51         _Sat TYPE int_to_Sat ## NAME (int a) { return a; } \
  52         _Sat TYPE uint_to_Sat ## NAME (unsigned int a) { return a; } \
  53         _Sat TYPE long_to_Sat ## NAME (long a) { return a; } \
  54         _Sat TYPE ulong_to_Sat ## NAME (unsigned long a) { return a; } \
  55         _Sat TYPE longlong_to_Sat ## NAME (long long a) { return a; } \
  56         _Sat TYPE ulonglong_to_Sat ## NAME (unsigned long long a) { return a; } \
  57         TYPE SFR_to ## NAME (short _Fract a) { return a; } \
  58         TYPE FR_to ## NAME (_Fract a) { return a; } \
  59         TYPE LFR_to ## NAME (long _Fract a) { return a; } \
  60         TYPE LLFR_to ## NAME (long long _Fract a) { return a; } \
  61         TYPE USFR_to ## NAME (unsigned short _Fract a) { return a; } \
  62         TYPE UFR_to ## NAME (unsigned _Fract a) { return a; } \
  63         TYPE ULFR_to ## NAME (unsigned long _Fract a) { return a; } \
  64         TYPE ULLFR_to ## NAME (unsigned long long _Fract a) { return a; } \
  65         TYPE SAC_to ## NAME (short _Accum a) { return a; } \
  66         TYPE AC_to ## NAME (_Accum a) { return a; } \
  67         TYPE LAC_to ## NAME (long _Accum a) { return a; } \
  68         TYPE LLAC_to ## NAME (long long _Accum a) { return a; } \
  69         TYPE USAC_to ## NAME (unsigned short _Accum a) { return a; } \
  70         TYPE UAC_to ## NAME (unsigned _Accum a) { return a; } \
  71         TYPE ULAC_to ## NAME (unsigned long _Accum a) { return a; } \
  72         TYPE ULLAC_to ## NAME (unsigned long long _Accum a) { return a; } \
  73         TYPE SATSFR_to ## NAME (_Sat short _Fract a) { return a; } \
  74         TYPE SATFR_to ## NAME (_Sat _Fract a) { return a; } \
  75         TYPE SATLFR_to ## NAME (_Sat long _Fract a) { return a; } \
  76         TYPE SATLLFR_to ## NAME (_Sat long long _Fract a) { return a; } \
  77         TYPE SATUSFR_to ## NAME (_Sat unsigned short _Fract a) { return a; } \
  78         TYPE SATUFR_to ## NAME (_Sat unsigned _Fract a) { return a; } \
  79         TYPE SATULFR_to ## NAME (_Sat unsigned long _Fract a) { return a; } \
  80         TYPE SATULLFR_to ## NAME (_Sat unsigned long long _Fract a) { return a; } \
  81         TYPE SATSAC_to ## NAME (_Sat short _Accum a) { return a; } \
  82         TYPE SATAC_to ## NAME (_Sat _Accum a) { return a; } \
  83         TYPE SATLAC_to ## NAME (_Sat long _Accum a) { return a; } \
  84         TYPE SATLLAC_to ## NAME (_Sat long long _Accum a) { return a; } \
  85         TYPE SATUSAC_to ## NAME (_Sat unsigned short _Accum a) { return a; } \
  86         TYPE SATUAC_to ## NAME (_Sat unsigned _Accum a) { return a; } \
  87         TYPE SATULAC_to ## NAME (_Sat unsigned long _Accum a) { return a; } \
  88         TYPE SATULLAC_to ## NAME (_Sat unsigned long long _Accum a) { return a; } \
  89         _Sat TYPE SFR_to_SAT ## NAME (short _Fract a) { return a; } \
  90         _Sat TYPE FR_to_SAT ## NAME (_Fract a) { return a; } \
  91         _Sat TYPE LFR_to_SAT ## NAME (long _Fract a) { return a; } \
  92         _Sat TYPE LLFR_to_SAT ## NAME (long long _Fract a) { return a; } \
  93         _Sat TYPE USFR_to_SAT ## NAME (unsigned short _Fract a) { return a; } \
  94         _Sat TYPE UFR_to_SAT ## NAME (unsigned _Fract a) { return a; } \
  95         _Sat TYPE ULFR_to_SAT ## NAME (unsigned long _Fract a) { return a; } \
  96         _Sat TYPE ULLFR_to_SAT ## NAME (unsigned long long _Fract a) { return a; } \
  97         _Sat TYPE SAC_to_SAT ## NAME (short _Accum a) { return a; } \
  98         _Sat TYPE AC_to_SAT ## NAME (_Accum a) { return a; } \
  99         _Sat TYPE LAC_to_SAT ## NAME (long _Accum a) { return a; } \
 100         _Sat TYPE LLAC_to_SAT ## NAME (long long _Accum a) { return a; } \
 101         _Sat TYPE USAC_to_SAT ## NAME (unsigned short _Accum a) { return a; } \
 102         _Sat TYPE UAC_to_SAT ## NAME (unsigned _Accum a) { return a; } \
 103         _Sat TYPE ULAC_to_SAT ## NAME (unsigned long _Accum a) { return a; } \
 104         _Sat TYPE ULLAC_to_SAT ## NAME (unsigned long long _Accum a) { return a; } \
 105         _Sat TYPE SATSFR_to_SAT ## NAME (_Sat short _Fract a) { return a; } \
 106         _Sat TYPE SATFR_to_SAT ## NAME (_Sat _Fract a) { return a; } \
 107         _Sat TYPE SATLFR_to_SAT ## NAME (_Sat long _Fract a) { return a; } \
 108         _Sat TYPE SATLLFR_to_SAT ## NAME (_Sat long long _Fract a) { return a; } \
 109         _Sat TYPE SATUSFR_to_SAT ## NAME (_Sat unsigned short _Fract a) { return a; } \
 110         _Sat TYPE SATUFR_to_SAT ## NAME (_Sat unsigned _Fract a) { return a; } \
 111         _Sat TYPE SATULFR_to_SAT ## NAME (_Sat unsigned long _Fract a) { return a; } \
 112         _Sat TYPE SATULLFR_to_SAT ## NAME (_Sat unsigned long long _Fract a) { return a; } \
 113         _Sat TYPE SATSAC_to_SAT ## NAME (_Sat short _Accum a) { return a; } \
 114         _Sat TYPE SATAC_to_SAT ## NAME (_Sat _Accum a) { return a; } \
 115         _Sat TYPE SATLAC_to_SAT ## NAME (_Sat long _Accum a) { return a; } \
 116         _Sat TYPE SATLLAC_to_SAT ## NAME (_Sat long long _Accum a) { return a; } \
 117         _Sat TYPE SATUSAC_to_SAT ## NAME (_Sat unsigned short _Accum a) { return a; } \
 118         _Sat TYPE SATUAC_to_SAT ## NAME (_Sat unsigned _Accum a) { return a; } \
 119         _Sat TYPE SATULAC_to_SAT ## NAME (_Sat unsigned long _Accum a) { return a; } \
 120         _Sat TYPE SATULLAC_to_SAT ## NAME (_Sat unsigned long long _Accum a) { return a; } \
 121         _Complex int NAME ## _to_CI (TYPE a) { return a; } \
 122         _Complex unsigned int NAME ## _to_CUI (TYPE a) { return a; } \
 123         _Complex float NAME ## _to_CF (TYPE a) { return a; } \
 124         _Complex double NAME ## _to_CD (TYPE a) { return a; } \
 125         TYPE CI_to_ ## NAME (_Complex int a) { return a; } \
 126         TYPE CUI_to_ ## NAME (_Complex unsigned int a) { return a; } \
 127         TYPE CF_to_ ## NAME (_Complex float a) { return a; } \
 128         TYPE CD_to_ ## NAME (_Complex double a) { return a; } \
 129         _Sat TYPE CI_to_SAT ## NAME (_Complex int a) { return a; } \
 130         _Sat TYPE CUI_to_SAT ## NAME (_Complex unsigned int a) { return a; } \
 131         _Sat TYPE CF_to_SAT ## NAME (_Complex float a) { return a; } \
 132         _Sat TYPE CD_to_SAT ## NAME (_Complex double a) { return a; }
 133
 134 CONV(short _Fract, sf);
 135 CONV(_Fract, f);
 136 CONV(long _Fract, lf);
 137 CONV(long long _Fract, llf);
 138 CONV(unsigned short _Fract, usf);
 139 CONV(unsigned _Fract, uf);
 140 CONV(unsigned long _Fract, ulf);
 141 CONV(unsigned long long _Fract, ullf);
 142
 143 CONV(short _Accum, sk);
 144 CONV(_Accum, k);
 145 CONV(long _Accum, lk);
 146 CONV(long long _Accum, llk);
 147 CONV(unsigned short _Accum, usk);
 148 CONV(unsigned _Accum, uk);
 149 CONV(unsigned long _Accum, ulk);
 150 CONV(unsigned long long _Accum, ullk);