gcc/testsuite/gcc.target/mips/fixed-scalar-type.c

   1 /* Test scalar fixed-point instructions */
   2 /* { dg-do compile { target { fixed_point } } } */
   3 /* { dg-options "-mdspr2" } */
   4 /* { dg-skip-if "code quality test" { *-*-* } { "-O0" } { "" } } */
   5 /* { dg-final { scan-assembler-times "\taddu\t" 10 } } */
   6 /* { dg-final { scan-assembler-times "\tsubu\t" 10 } } */
   7 /* { dg-final { scan-assembler "\taddu_s.qb\t" } } */
   8 /* { dg-final { scan-assembler-times "\taddu_s.ph\t" 2 } } */
   9 /* { dg-final { scan-assembler-times "\taddq_s.ph\t" 2 } } */
  10 /* { dg-final { scan-assembler-times "\taddq_s.w\t" 2 } } */
  11 /* { dg-final { scan-assembler "\tsubu_s.qb\t" } } */
  12 /* { dg-final { scan-assembler-times "\tsubu_s.ph\t" 2 } } */
  13 /* { dg-final { scan-assembler-times "\tsubq_s.ph\t" 2 } } */
  14 /* { dg-final { scan-assembler-times "\tsubq_s.w\t" 2 } } */
  15 /* { dg-final { scan-assembler-times "\tmulq_rs.ph\t" 1 } } */
  16 /* { dg-final { scan-assembler-times "\tmulq_rs.w\t" 1 } } */
  17
  18 short _Fract non_sat_test1 (short _Fract a, short _Fract b)
  19 {
  20   return a + b;
  21 }
  22
  23 _Fract non_sat_test2 (_Fract a, _Fract b)
  24 {
  25   return a + b;
  26 }
  27
  28 long _Fract non_sat_test3 (long _Fract a, long _Fract b)
  29 {
  30   return a + b;
  31 }
  32
  33 unsigned short _Fract non_sat_test4 (unsigned short _Fract a,
  34                                      unsigned short _Fract b)
  35 {
  36   return a + b;
  37 }
  38
  39 unsigned _Fract non_sat_test5 (unsigned _Fract a, unsigned _Fract b)
  40 {
  41   return a + b;
  42 }
  43
  44 unsigned long _Fract non_sat_test6 (unsigned long _Fract a,
  45                                     unsigned long _Fract b)
  46 {
  47   return a + b;
  48 }
  49
  50 short _Accum non_sat_test7 (short _Accum a, short _Accum b)
  51 {
  52   return a + b;
  53 }
  54
  55 _Accum non_sat_test8 (_Accum a, _Accum b)
  56 {
  57   return a + b;
  58 }
  59
  60 unsigned short _Accum non_sat_test9 (unsigned short _Accum a,
  61                                      unsigned short _Accum b)
  62 {
  63   return a + b;
  64 }
  65
  66 unsigned _Accum non_sat_test10 (unsigned _Accum a, unsigned _Accum b)
  67 {
  68   return a + b;
  69 }
  70
  71 short _Fract non_sat_test11 (short _Fract a, short _Fract b)
  72 {
  73   return a - b;
  74 }
  75
  76 _Fract non_sat_test12 (_Fract a, _Fract b)
  77 {
  78   return a - b;
  79 }
  80
  81 long _Fract non_sat_test13 (long _Fract a, long _Fract b)
  82 {
  83   return a - b;
  84 }
  85
  86 unsigned short _Fract non_sat_test14 (unsigned short _Fract a,
  87                                       unsigned short _Fract b)
  88 {
  89   return a - b;
  90 }
  91
  92 unsigned _Fract non_sat_test15 (unsigned _Fract a, unsigned _Fract b)
  93 {
  94   return a - b;
  95 }
  96
  97 unsigned long _Fract non_sat_test16 (unsigned long _Fract a,
  98                                      unsigned long _Fract b)
  99 {
 100   return a - b;
 101 }
 102
 103 short _Accum non_sat_test17 (short _Accum a, short _Accum b)
 104 {
 105   return a - b;
 106 }
 107
 108 _Accum non_sat_test18 (_Accum a, _Accum b)
 109 {
 110   return a - b;
 111 }
 112
 113 unsigned short _Accum non_sat_test19 (unsigned short _Accum a,
 114                                       unsigned short _Accum b)
 115 {
 116   return a - b;
 117 }
 118
 119 unsigned _Accum non_sat_test20 (unsigned _Accum a, unsigned _Accum b)
 120 {
 121   return a - b;
 122 }
 123
 124 NOMIPS16 _Sat unsigned short _Fract test1 (_Sat unsigned short _Fract a,
 125                                            _Sat unsigned short _Fract b)
 126 {
 127   return a + b;
 128 }
 129
 130 NOMIPS16 _Sat unsigned _Fract test2 (_Sat unsigned  _Fract a,
 131                                      _Sat unsigned _Fract b)
 132 {
 133   return a + b;
 134 }
 135
 136 NOMIPS16 _Sat unsigned short _Accum test3 (_Sat unsigned short _Accum a,
 137                                            _Sat unsigned short _Accum b)
 138 {
 139   return a + b;
 140 }
 141
 142 NOMIPS16 _Sat _Fract test4 (_Sat _Fract a, _Sat _Fract b)
 143 {
 144   return a + b;
 145 }
 146
 147 NOMIPS16 _Sat long _Fract test5 (_Sat long _Fract a, _Sat long _Fract b)
 148 {
 149   return a + b;
 150 }
 151
 152 NOMIPS16 _Sat short _Accum test6 (_Sat short _Accum a, _Sat short _Accum b)
 153 {
 154   return a + b;
 155 }
 156
 157 NOMIPS16 _Sat _Accum test7 (_Sat _Accum a, _Sat _Accum b)
 158 {
 159   return a + b;
 160 }
 161
 162 NOMIPS16 _Sat unsigned short _Fract test8 (_Sat unsigned short _Fract a,
 163                                            _Sat unsigned short _Fract b)
 164 {
 165   return a - b;
 166 }
 167
 168 NOMIPS16 _Sat unsigned _Fract test9 (_Sat unsigned  _Fract a,
 169                                      _Sat unsigned _Fract b)
 170 {
 171   return a - b;
 172 }
 173
 174 NOMIPS16 _Sat unsigned short _Accum test10 (_Sat unsigned short _Accum a,
 175                                             _Sat unsigned short _Accum b)
 176 {
 177   return a - b;
 178 }
 179
 180 NOMIPS16 _Sat _Fract test11 (_Sat _Fract a, _Sat _Fract b)
 181 {
 182   return a - b;
 183 }
 184
 185 NOMIPS16 _Sat long _Fract test12 (_Sat long _Fract a, _Sat long _Fract b)
 186 {
 187   return a - b;
 188 }
 189
 190 NOMIPS16 _Sat short _Accum test13 (_Sat short _Accum a, _Sat short _Accum b)
 191 {
 192   return a - b;
 193 }
 194
 195 NOMIPS16 _Sat _Accum test14 (_Sat _Accum a, _Sat _Accum b)
 196 {
 197   return a - b;
 198 }
 199
 200 NOMIPS16 _Sat _Fract test15 (_Sat _Fract a, _Sat _Fract b)
 201 {
 202   return a * b;
 203 }
 204
 205 NOMIPS16 _Sat long _Fract test16 (_Sat long _Fract a, _Sat long _Fract b)
 206 {
 207   return a * b;
 208 }
 209
 210 NOMIPS16 _Fract test17 (_Fract a, _Fract b)
 211 {
 212   return a * b;
 213 }
 214
 215 NOMIPS16 long _Fract test18 (long _Fract a, long _Fract b)
 216 {
 217   return a * b;
 218 }