1 /* Functional tests for the "target" attribute and pragma. */
2
3 /* { dg-do compile { target { lp64 } } } */
4 /* { dg-require-effective-target dfp } */
5 /* { dg-require-effective-target target_attribute } */
6 /* { dg-options "-march=z13 -std=gnu99 -mno-hard-dfp" } */
7
8 #pragma GCC target("hard-dfp")
p1(_Decimal64 f,_Decimal64 g)9 _Decimal64 p1(_Decimal64 f, _Decimal64 g)
10 {
11 return f * g;
12 /* { dg-final { scan-assembler-times "\tmdtr\t" 1 } } */
13 }
14 #pragma GCC reset_options
15
16 #pragma GCC target("no-hard-dfp")
p0(_Decimal64 f,_Decimal64 g)17 _Decimal64 p0(_Decimal64 f, _Decimal64 g)
18 {
19 return f / 2;
20 /* { dg-final { scan-assembler-not "\tddtr\t" } } */
21 }
22 #pragma GCC reset_options
23
24 __attribute__ ((target("hard-dfp")))
a1(_Decimal64 f,_Decimal64 g)25 _Decimal64 a1(_Decimal64 f, _Decimal64 g)
26 {
27 /* { dg-final { scan-assembler-times "\tadtr\t" 1 } } */
28 return f + g;
29 }
30
31 __attribute__ ((target("no-hard-dfp")))
a0(_Decimal64 f,_Decimal64 g)32 _Decimal64 a0(_Decimal64 f, _Decimal64 g)
33 {
34 return f - g;
35 /* { dg-final { scan-assembler-not "\tsdtr\t" } } */
36 }
37
d(_Decimal64 f,_Decimal64 g)38 _Decimal64 d(_Decimal64 f, _Decimal64 g)
39 {
40 return f - g;
41 /* { dg-final { scan-assembler-not "\tsdtr\t" } } */
42 }
43