gcc/testsuite/gcc.target/powerpc/float128-hw4.c

   1 /* { dg-do compile { target { powerpc*-*-* && lp64 } } } */
   2 /* { dg-require-effective-target powerpc_p9vector_ok } */
   3 /* { dg-options "-mpower9-vector -O2 -mabi=ieeelongdouble -Wno-psabi" } */
   4
   5 /* Insure that the ISA 3.0 IEEE 128-bit floating point built-in functions can
   6    be used with long double when the default is IEEE 128-bit.  */
   7
   8 #ifndef TYPE
   9 #define TYPE long double
  10 #endif
  11
  12 unsigned int
  13 get_double_exponent (double a)
  14 {
  15   return __builtin_vec_scalar_extract_exp (a);
  16 }
  17
  18 unsigned int
  19 get_float128_exponent (TYPE a)
  20 {
  21   return __builtin_vec_scalar_extract_exp (a);
  22 }
  23
  24 unsigned long
  25 get_double_mantissa (double a)
  26 {
  27   return __builtin_vec_scalar_extract_sig (a);
  28 }
  29
  30 __uint128_t
  31 get_float128_mantissa (TYPE a)
  32 {
  33   return __builtin_vec_scalar_extract_sig (a);
  34 }
  35
  36 double
  37 set_double_exponent_ulong (unsigned long a, unsigned long e)
  38 {
  39   return __builtin_vec_scalar_insert_exp (a, e);
  40 }
  41
  42 TYPE
  43 set_float128_exponent_uint128 (__uint128_t a, unsigned long e)
  44 {
  45   return __builtin_vec_scalar_insert_exp (a, e);
  46 }
  47
  48 double
  49 set_double_exponent_double (double a, unsigned long e)
  50 {
  51   return __builtin_vec_scalar_insert_exp (a, e);
  52 }
  53
  54 TYPE
  55 set_float128_exponent_float128 (TYPE a, __uint128_t e)
  56 {
  57   return __builtin_vec_scalar_insert_exp (a, e);
  58 }
  59
  60 TYPE
  61 sqrt_odd (TYPE a)
  62 {
  63   return __builtin_sqrtf128_round_to_odd (a);
  64 }
  65
  66 double
  67 trunc_odd (TYPE a)
  68 {
  69   return __builtin_truncf128_round_to_odd (a);
  70 }
  71
  72 TYPE
  73 add_odd (TYPE a, TYPE b)
  74 {
  75   return __builtin_addf128_round_to_odd (a, b);
  76 }
  77
  78 TYPE
  79 sub_odd (TYPE a, TYPE b)
  80 {
  81   return __builtin_subf128_round_to_odd (a, b);
  82 }
  83
  84 TYPE
  85 mul_odd (TYPE a, TYPE b)
  86 {
  87   return __builtin_mulf128_round_to_odd (a, b);
  88 }
  89
  90 TYPE
  91 div_odd (TYPE a, TYPE b)
  92 {
  93   return __builtin_divf128_round_to_odd (a, b);
  94 }
  95
  96 TYPE
  97 fma_odd (TYPE a, TYPE b, TYPE c)
  98 {
  99   return __builtin_fmaf128_round_to_odd (a, b, c);
 100 }
 101
 102 TYPE
 103 fms_odd (TYPE a, TYPE b, TYPE c)
 104 {
 105   return __builtin_fmaf128_round_to_odd (a, b, -c);
 106 }
 107
 108 TYPE
 109 nfma_odd (TYPE a, TYPE b, TYPE c)
 110 {
 111   return -__builtin_fmaf128_round_to_odd (a, b, c);
 112 }
 113
 114 TYPE
 115 nfms_odd (TYPE a, TYPE b, TYPE c)
 116 {
 117   return -__builtin_fmaf128_round_to_odd (a, b, -c);
 118 }
 119
 120 /* { dg-final { scan-assembler     {\mxsiexpdp\M}   } } */
 121 /* { dg-final { scan-assembler     {\mxsiexpqp\M}   } } */
 122 /* { dg-final { scan-assembler     {\mxsxexpdp\M}   } } */
 123 /* { dg-final { scan-assembler     {\mxsxexpqp\M}   } } */
 124 /* { dg-final { scan-assembler     {\mxsxsigdp\M}   } } */
 125 /* { dg-final { scan-assembler     {\mxsxsigqp\M}   } } */
 126 /* { dg-final { scan-assembler     {\mxsaddqpo\M}   } } */
 127 /* { dg-final { scan-assembler     {\mxsdivqpo\M}   } } */
 128 /* { dg-final { scan-assembler     {\mxsmaddqpo\M}  } } */
 129 /* { dg-final { scan-assembler     {\mxsmsubqpo\M}  } } */
 130 /* { dg-final { scan-assembler     {\mxsmulqpo\M}   } } */
 131 /* { dg-final { scan-assembler     {\mxsnmaddqpo\M} } } */
 132 /* { dg-final { scan-assembler     {\mxsnmsubqpo\M} } } */
 133 /* { dg-final { scan-assembler     {\mxssqrtqpo\M}  } } */
 134 /* { dg-final { scan-assembler     {\mxssubqpo\M}   } } */
 135 /* { dg-final { scan-assembler-not {\mbl\M}         } } */