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

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