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

#ifndef TYPE
#define TYPE _Float128
#endif

/* Test the code generation of the various _Float128 operations.  */
TYPE f128_add (TYPE a, TYPE b) { return a+b; }
TYPE f128_sub (TYPE a, TYPE b) { return a-b; }
TYPE f128_mul (TYPE a, TYPE b) { return a*b; }
TYPE f128_div (TYPE a, TYPE b) { return a/b; }
TYPE f128_fma (TYPE a, TYPE b, TYPE c) { return (a*b)+c; }
TYPE f128_fms (TYPE a, TYPE b, TYPE c) { return (a*b)-c; }
TYPE f128_nfma (TYPE a, TYPE b, TYPE c) { return -((a*b)+c); }
TYPE f128_nfms (TYPE a, TYPE b, TYPE c) { return -((a*b)-c); }
TYPE f128_neg (TYPE a) { return -a; }

long f128_cmove (TYPE a, TYPE b, long c, long d) { return (a == b) ? c : d; }

double f128_to_double (TYPE a) { return (double)a; }
float f128_to_float (TYPE a) { return (float)a; }
long f128_to_long (TYPE a) { return (long)a; }
unsigned long f128_to_ulong (TYPE a) { return (unsigned long)a; }
int f128_to_int (TYPE a) { return (int)a; }
unsigned int f128_to_uint (TYPE a) { return (unsigned int)a; }

TYPE double_to_f128 (double a) { return (TYPE)a; }
TYPE float_to_f128 (float a) { return (TYPE)a; }
TYPE long_to_f128 (long a) { return (TYPE)a; }
TYPE ulong_to_f128 (unsigned long a) { return (TYPE)a; }
TYPE int_to_f128 (int a) { return (TYPE)a; }
TYPE uint_to_f128 (unsigned int a) { return (TYPE)a; }

/* { dg-final { scan-assembler     {\mmfvsrd\M}    } } */
/* { dg-final { scan-assembler     {\mmfvsrwz\M}   } } */
/* { dg-final { scan-assembler     {\mmtvsrd\M}    } } */
/* { dg-final { scan-assembler     {\mmtvsrwa\M}   } } */
/* { dg-final { scan-assembler 	   {\mxscmpuqp\M}  } } */
/* { dg-final { scan-assembler 	   {\mxscvdpqp\M}  } } */
/* { dg-final { scan-assembler 	   {\mxscvqpdp\M}  } } */
/* { dg-final { scan-assembler 	   {\mxscvqpdpo\M} } } */
/* { dg-final { scan-assembler 	   {\mxscvqpsdz\M} } } */
/* { dg-final { scan-assembler 	   {\mxscvqpswz\M} } } */
/* { dg-final { scan-assembler 	   {\mxscvqpudz\M} } } */
/* { dg-final { scan-assembler 	   {\mxscvqpuwz\M} } } */
/* { dg-final { scan-assembler 	   {\mxscvsdqp\M}  } } */
/* { dg-final { scan-assembler 	   {\mxscvudqp\M}  } } */
/* { dg-final { scan-assembler 	   {\mxsdivqp\M}   } } */
/* { dg-final { scan-assembler 	   {\mxsmaddqp\M}  } } */
/* { dg-final { scan-assembler 	   {\mxsmsubqp\M}  } } */
/* { dg-final { scan-assembler 	   {\mxsmulqp\M}   } } */
/* { dg-final { scan-assembler 	   {\mxsnegqp\M}   } } */
/* { dg-final { scan-assembler 	   {\mxsnmaddqp\M} } } */
/* { dg-final { scan-assembler 	   {\mxsnmsubqp\M} } } */
/* { dg-final { scan-assembler 	   {\mxssubqp\M}   } } */
/* { dg-final { scan-assembler-not {\mbl\M}        } } */