1 /* { dg-do compile { target lp64 } } */
2 /* { dg-require-effective-target powerpc_vsx_ok } */
3 /* { dg-require-effective-target float128 } */
4 /* { dg-options "-mvsx -O2 -ffast-math -std=c11 -mno-pcrel" } */
5 /* { dg-additional-options "-mdejagnu-cpu=power9" { target { ! has_arch_pwr9 } } } */
7 /* Test to make sure the compiler calls the external function instead of doing
8 the built-in processing for _Float128 functions that have hardware support
9 in ISA 3.0/power9 if are in strict standards mode, where the <func>f128 name
10 is not a synonym for __builtin_<func>f128. */
12 extern _Float128
copysignf128 (_Float128
, _Float128
);
13 extern _Float128
sqrtf128 (_Float128
);
14 extern _Float128
fmaf128 (_Float128
, _Float128
, _Float128
);
17 do_copysign (_Float128 a
, _Float128 b
)
19 return copysignf128 (a
, b
);
29 do_fma (_Float128 a
, _Float128 b
, _Float128 c
)
31 return fmaf128 (a
, b
, c
);
35 do_fms (_Float128 a
, _Float128 b
, _Float128 c
)
37 return fmaf128 (a
, b
, -c
);
41 do_nfma (_Float128 a
, _Float128 b
, _Float128 c
)
43 return -fmaf128 (a
, b
, c
);
47 do_nfms (_Float128 a
, _Float128 b
, _Float128 c
)
49 return -fmaf128 (a
, b
, -c
);
52 /* { dg-final { scan-assembler-not {\mxscpsgnqp\M} } } */
53 /* { dg-final { scan-assembler-not {\mxssqrtqp\M} } } */
54 /* { dg-final { scan-assembler-not {\mxsmaddqp\M} } } */
55 /* { dg-final { scan-assembler-not {\mxsmsubqp\M} } } */
56 /* { dg-final { scan-assembler-not {\mxsnmaddqp\M} } } */
57 /* { dg-final { scan-assembler-not {\mxsnmsubqp\M} } } */
58 /* { dg-final { scan-assembler-times {\mbl\M} 6 } } */