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

   1 /* { dg-do compile { target { powerpc*-*-* && lp64 } } } */
   2 /* { dg-require-effective-target powerpc_p9vector_ok } */
   3 /* { dg-options "-mpower9-vector -O2 -ffast-math -std=c11" } */
   4
   5 /* Test to make sure the compiler calls the external function instead of doing
   6    the built-in processing for _Float128 functions that have hardware support
   7    in ISA 3.0/power9 if are in strict standards mode, where the <func>f128 name
   8    is not a synonym for __builtin_<func>f128.  */
   9
  10 extern _Float128 copysignf128 (_Float128, _Float128);
  11 extern _Float128 sqrtf128 (_Float128);
  12 extern _Float128 fmaf128 (_Float128, _Float128, _Float128);
  13
  14 _Float128
  15 do_copysign (_Float128 a, _Float128 b)
  16 {
  17   return copysignf128 (a, b);
  18 }
  19
  20 _Float128
  21 do_sqrt (_Float128 a)
  22 {
  23   return sqrtf128 (a);
  24 }
  25
  26 _Float128
  27 do_fma (_Float128 a, _Float128 b, _Float128 c)
  28 {
  29   return fmaf128 (a, b, c);
  30 }
  31
  32 _Float128
  33 do_fms (_Float128 a, _Float128 b, _Float128 c)
  34 {
  35   return fmaf128 (a, b, -c);
  36 }
  37
  38 _Float128
  39 do_nfma (_Float128 a, _Float128 b, _Float128 c)
  40 {
  41   return -fmaf128 (a, b, c);
  42 }
  43
  44 _Float128
  45 do_nfms (_Float128 a, _Float128 b, _Float128 c)
  46 {
  47   return -fmaf128 (a, b, -c);
  48 }
  49
  50 /* { dg-final { scan-assembler-not   {\mxscpsgnqp\M} } } */
  51 /* { dg-final { scan-assembler-not   {\mxssqrtqp\M}  } } */
  52 /* { dg-final { scan-assembler-not   {\mxsmaddqp\M}  } } */
  53 /* { dg-final { scan-assembler-not   {\mxsmsubqp\M}  } } */
  54 /* { dg-final { scan-assembler-not   {\mxsnmaddqp\M} } } */
  55 /* { dg-final { scan-assembler-not   {\mxsnmsubqp\M} } } */
  56 /* { dg-final { scan-assembler-times {\mbl\M} 6      } } */