| /* { dg-do compile { target lp64 } } */ |
| /* { dg-require-effective-target powerpc_p9vector_ok } */ |
| /* { dg-require-effective-target float128 } */ |
| /* { dg-options "-mpower9-vector -O2 -ffast-math -std=gnu11" } */ |
| |
| /* Test to make sure the compiler handles the standard _Float128 functions that |
| have hardware support in ISA 3.0/power9. */ |
| |
| #define __STDC_WANT_IEC_60559_TYPES_EXT__ 1 |
| |
| #ifndef __FP_FAST_FMAF128 |
| #error "__FP_FAST_FMAF128 should be defined." |
| #endif |
| |
| extern _Float128 copysignf128 (_Float128, _Float128); |
| extern _Float128 sqrtf128 (_Float128); |
| extern _Float128 fmaf128 (_Float128, _Float128, _Float128); |
| extern _Float128 ceilf128 (_Float128); |
| extern _Float128 floorf128 (_Float128); |
| extern _Float128 truncf128 (_Float128); |
| extern _Float128 roundf128 (_Float128); |
| |
| _Float128 |
| do_copysign (_Float128 a, _Float128 b) |
| { |
| return copysignf128 (a, b); |
| } |
| |
| _Float128 |
| do_sqrt (_Float128 a) |
| { |
| return sqrtf128 (a); |
| } |
| |
| _Float128 |
| do_fma (_Float128 a, _Float128 b, _Float128 c) |
| { |
| return fmaf128 (a, b, c); |
| } |
| |
| _Float128 |
| do_fms (_Float128 a, _Float128 b, _Float128 c) |
| { |
| return fmaf128 (a, b, -c); |
| } |
| |
| _Float128 |
| do_nfma (_Float128 a, _Float128 b, _Float128 c) |
| { |
| return -fmaf128 (a, b, c); |
| } |
| |
| _Float128 |
| do_nfms (_Float128 a, _Float128 b, _Float128 c) |
| { |
| return -fmaf128 (a, b, -c); |
| } |
| |
| _Float128 |
| do_ceil (_Float128 a) |
| { |
| return ceilf128 (a); |
| } |
| |
| _Float128 |
| do_floor (_Float128 a) |
| { |
| return floorf128 (a); |
| } |
| |
| _Float128 |
| do_trunc (_Float128 a) |
| { |
| return truncf128 (a); |
| } |
| |
| _Float128 |
| do_round (_Float128 a) |
| { |
| return roundf128 (a); |
| } |
| |
| /* { dg-final { scan-assembler {\mxscpsgnqp\M} } } */ |
| /* { dg-final { scan-assembler {\mxssqrtqp\M} } } */ |
| /* { dg-final { scan-assembler {\mxsmaddqp\M} } } */ |
| /* { dg-final { scan-assembler {\mxsmsubqp\M} } } */ |
| /* { dg-final { scan-assembler {\mxsnmaddqp\M} } } */ |
| /* { dg-final { scan-assembler {\mxsnmsubqp\M} } } */ |
| /* { dg-final { scan-assembler {\mxsrqpi\M} } } */ |
| /* { dg-final { scan-assembler-not {\mbl\M} } } */ |