/* { dg-do compile { target lp64 } } */
/* { dg-require-effective-target powerpc_p9vector_ok } */
/* { dg-require-effective-target float128 } */
/* { dg-options "-mpower9-vector -O2" } */

/* Test the generation of the round to odd instructions.  */
__float128
f128_add(__float128 a, __float128 b)
{
  return __builtin_addf128_round_to_odd (a, b);
}

__float128
f128_sub (__float128 a, __float128 b)
{
  return __builtin_subf128_round_to_odd (a, b);
}

__float128
f128_mul (__float128 a, __float128 b)
{
  return __builtin_mulf128_round_to_odd (a, b);
}

__float128
f128_div (__float128 a, __float128 b)
{
  return __builtin_divf128_round_to_odd (a, b);
}

__float128
f128_sqrt (__float128 a)
{
  return __builtin_sqrtf128_round_to_odd (a);
}

double
f128_trunc (__float128 a)
{
  return __builtin_truncf128_round_to_odd (a);
}

__float128
f128_fma (__float128 a, __float128 b, __float128 c)
{
  return __builtin_fmaf128_round_to_odd (a, b, c);
}

__float128
f128_fms (__float128 a, __float128 b, __float128 c)
{
  return __builtin_fmaf128_round_to_odd (a, b, -c);
}

__float128
f128_nfma (__float128 a, __float128 b, __float128 c)
{
  return - __builtin_fmaf128_round_to_odd (a, b, c);
}

__float128
f128_nfms (__float128 a, __float128 b, __float128 c)
{
  return - __builtin_fmaf128_round_to_odd (a, b, -c);
}

/* { dg-final { scan-assembler {\mxsaddqpo\M}   } } */
/* { dg-final { scan-assembler {\mxssubqpo\M}   } } */
/* { dg-final { scan-assembler {\mxsmulqpo\M}   } } */
/* { dg-final { scan-assembler {\mxsdivqpo\M}   } } */
/* { dg-final { scan-assembler {\mxssqrtqpo\M}  } } */
/* { dg-final { scan-assembler {\mxscvqpdpo\M}  } } */
/* { dg-final { scan-assembler {\mxsmaddqpo\M}  } } */
/* { dg-final { scan-assembler {\mxsmsubqpo\M}  } } */
/* { dg-final { scan-assembler {\mxsnmaddqpo\M} } } */
/* { dg-final { scan-assembler {\mxsnmsubqpo\M} } } */