gcc/testsuite/gcc.target/mips/dpsq_sa_l_w.c

   1 /* { dg-do compile { target { fixed_point } } } */
   2 /* This test requires widening_mul */
   3 /* { dg-options "-mgp32 -mdsp -fexpensive-optimizations" } */
   4 /* { dg-skip-if "code quality test" { *-*-* } { "-O0" } { "" } } */
   5 /* { dg-final { scan-assembler-times "\tdpsq_sa.l.w\t\\\$ac" 2 } } */
   6
   7 NOMIPS16 _Sat long long _Fract
   8 f1 (_Sat long _Fract x, _Sat long _Fract y, _Sat long long _Fract z)
   9 {
  10   return z - (_Sat long long _Fract) x * y;
  11 }
  12
  13 NOMIPS16 _Sat long long _Fract
  14 f2 (_Sat long _Fract x, _Sat long _Fract y, _Sat long long _Fract z)
  15 {
  16   _Sat long long _Fract t = (_Sat long long _Fract) x * y;
  17   int temp = 5;
  18   if (temp == 5)
  19     z -= t;
  20   return z;
  21 }
  22
  23 long long _Fract
  24 f3 (long _Fract x, long _Fract y, long long _Fract z)
  25 {
  26   return z - (long long _Fract) x * y;
  27 }
  28
  29 long long _Fract
  30 f4 (long _Fract x, long _Fract y, long long _Fract z)
  31 {
  32   long long _Fract t = (long long _Fract) x * y;
  33   int temp = 5;
  34   if (temp == 5)
  35     z -= t;
  36   return z;
  37 }