1  /* { dg-do compile { target lp64 } } */
       2  /* { dg-require-effective-target powerpc_p9vector_ok } */
       3  /* { dg-require-effective-target float128 } */
       4  /* { dg-options "-mpower9-vector -O2" } */
       5  
       6  #ifndef TYPE
       7  #define TYPE _Float128
       8  #endif
       9  
      10  /* Test the code generation of the various _Float128 operations.  */
      11  TYPE f128_add (TYPE a, TYPE b) { return a+b; }
      12  TYPE f128_sub (TYPE a, TYPE b) { return a-b; }
      13  TYPE f128_mul (TYPE a, TYPE b) { return a*b; }
      14  TYPE f128_div (TYPE a, TYPE b) { return a/b; }
      15  TYPE f128_fma (TYPE a, TYPE b, TYPE c) { return (a*b)+c; }
      16  TYPE f128_fms (TYPE a, TYPE b, TYPE c) { return (a*b)-c; }
      17  TYPE f128_nfma (TYPE a, TYPE b, TYPE c) { return -((a*b)+c); }
      18  TYPE f128_nfms (TYPE a, TYPE b, TYPE c) { return -((a*b)-c); }
      19  TYPE f128_neg (TYPE a) { return -a; }
      20  
      21  long f128_cmove (TYPE a, TYPE b, long c, long d) { return (a == b) ? c : d; }
      22  
      23  double f128_to_double (TYPE a) { return (double)a; }
      24  float f128_to_float (TYPE a) { return (float)a; }
      25  long f128_to_long (TYPE a) { return (long)a; }
      26  unsigned long f128_to_ulong (TYPE a) { return (unsigned long)a; }
      27  int f128_to_int (TYPE a) { return (int)a; }
      28  unsigned int f128_to_uint (TYPE a) { return (unsigned int)a; }
      29  
      30  TYPE double_to_f128 (double a) { return (TYPE)a; }
      31  TYPE float_to_f128 (float a) { return (TYPE)a; }
      32  TYPE long_to_f128 (long a) { return (TYPE)a; }
      33  TYPE ulong_to_f128 (unsigned long a) { return (TYPE)a; }
      34  TYPE int_to_f128 (int a) { return (TYPE)a; }
      35  TYPE uint_to_f128 (unsigned int a) { return (TYPE)a; }
      36  
      37  /* { dg-final { scan-assembler     {\mmfvsrd\M}    } } */
      38  /* { dg-final { scan-assembler     {\mmfvsrwz\M}   } } */
      39  /* { dg-final { scan-assembler     {\mmtvsrd\M}    } } */
      40  /* { dg-final { scan-assembler     {\mmtvsrwa\M}   } } */
      41  /* { dg-final { scan-assembler 	   {\mxscmpuqp\M}  } } */
      42  /* { dg-final { scan-assembler 	   {\mxscvdpqp\M}  } } */
      43  /* { dg-final { scan-assembler 	   {\mxscvqpdp\M}  } } */
      44  /* { dg-final { scan-assembler 	   {\mxscvqpdpo\M} } } */
      45  /* { dg-final { scan-assembler 	   {\mxscvqpsdz\M} } } */
      46  /* { dg-final { scan-assembler 	   {\mxscvqpswz\M} } } */
      47  /* { dg-final { scan-assembler 	   {\mxscvqpudz\M} } } */
      48  /* { dg-final { scan-assembler 	   {\mxscvqpuwz\M} } } */
      49  /* { dg-final { scan-assembler 	   {\mxscvsdqp\M}  } } */
      50  /* { dg-final { scan-assembler 	   {\mxscvudqp\M}  } } */
      51  /* { dg-final { scan-assembler 	   {\mxsdivqp\M}   } } */
      52  /* { dg-final { scan-assembler 	   {\mxsmaddqp\M}  } } */
      53  /* { dg-final { scan-assembler 	   {\mxsmsubqp\M}  } } */
      54  /* { dg-final { scan-assembler 	   {\mxsmulqp\M}   } } */
      55  /* { dg-final { scan-assembler 	   {\mxsnegqp\M}   } } */
      56  /* { dg-final { scan-assembler 	   {\mxsnmaddqp\M} } } */
      57  /* { dg-final { scan-assembler 	   {\mxsnmsubqp\M} } } */
      58  /* { dg-final { scan-assembler 	   {\mxssubqp\M}   } } */
      59  /* { dg-final { scan-assembler-not {\mbl\M}        } } */
      60