1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
/* { dg-do compile { target lp64 } } */
/* { dg-options "-mvsx -O2" } */
/* { dg-additional-options "-mdejagnu-cpu=power9" { target { ! has_arch_pwr9 } } } */
/* { dg-require-effective-target powerpc_vsx } */
/* { dg-require-effective-target float128 } */
/* Test the generation of the round to odd instructions. */
__float128
f128_add(__float128 a, __float128 b)
{
return __builtin_addf128_round_to_odd (a, b);
}
__float128
f128_sub (__float128 a, __float128 b)
{
return __builtin_subf128_round_to_odd (a, b);
}
__float128
f128_mul (__float128 a, __float128 b)
{
return __builtin_mulf128_round_to_odd (a, b);
}
__float128
f128_div (__float128 a, __float128 b)
{
return __builtin_divf128_round_to_odd (a, b);
}
__float128
f128_sqrt (__float128 a)
{
return __builtin_sqrtf128_round_to_odd (a);
}
double
f128_trunc (__float128 a)
{
return __builtin_truncf128_round_to_odd (a);
}
__float128
f128_fma (__float128 a, __float128 b, __float128 c)
{
return __builtin_fmaf128_round_to_odd (a, b, c);
}
__float128
f128_fms (__float128 a, __float128 b, __float128 c)
{
return __builtin_fmaf128_round_to_odd (a, b, -c);
}
__float128
f128_nfma (__float128 a, __float128 b, __float128 c)
{
return - __builtin_fmaf128_round_to_odd (a, b, c);
}
__float128
f128_nfms (__float128 a, __float128 b, __float128 c)
{
return - __builtin_fmaf128_round_to_odd (a, b, -c);
}
/* { dg-final { scan-assembler {\mxsaddqpo\M} } } */
/* { dg-final { scan-assembler {\mxssubqpo\M} } } */
/* { dg-final { scan-assembler {\mxsmulqpo\M} } } */
/* { dg-final { scan-assembler {\mxsdivqpo\M} } } */
/* { dg-final { scan-assembler {\mxssqrtqpo\M} } } */
/* { dg-final { scan-assembler {\mxscvqpdpo\M} } } */
/* { dg-final { scan-assembler {\mxsmaddqpo\M} } } */
/* { dg-final { scan-assembler {\mxsmsubqpo\M} } } */
/* { dg-final { scan-assembler {\mxsnmaddqpo\M} } } */
/* { dg-final { scan-assembler {\mxsnmsubqpo\M} } } */
|
