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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
|
/* { dg-do run } */
/* { dg-require-effective-target dfp_hw } */
/* { dg-require-effective-target has_arch_pwr6 } */
/* { dg-options "-mhard-float -O2 -save-temps" } */
/* Test the decimal floating point quantize built-ins. */
#define DEBUG 0
#ifdef DEBUG
#include <stdio.h>
#endif
#include <float.h>
void abort (void);
int main()
{
#define IMM2 2
#define IMM3 3
#define IMM4 4
_Decimal64 srcA_dfp64, srcB_dfp64;
_Decimal64 result_dfp64;
_Decimal64 expected_result_dfp64;
_Decimal128 srcA_dfp128, srcB_dfp128;
_Decimal128 result_dfp128;
_Decimal128 expected_result_dfp128;
/* Third argument of quantize built-ins is the rounding mode value (RMC).
RMC Rounding Mode
00 Round to nearest, ties to even
01 Round toward 0
10 Round to nearest, ties toward 0
11 Round according to DRN */
/* Tests for quantize with 64-bit DFP variable. */
srcA_dfp64 = 100.0df;
srcB_dfp64 = 300.456789df;
expected_result_dfp64 = 300.5df;
result_dfp64 = __builtin_dfp_quantize (srcA_dfp64, srcB_dfp64, 0x0);
if (result_dfp64 != expected_result_dfp64)
#if DEBUG
printf("DFP 64-bit quantize of variable, RMC = 0 result does not match expected result\n");
#else
abort();
#endif
srcA_dfp64 = 100.00df;
srcB_dfp64 = 300.456789df;
expected_result_dfp64 = 300.45df;
result_dfp64 = __builtin_dfp_quantize (srcA_dfp64, srcB_dfp64, 0x1);
if (result_dfp64 != expected_result_dfp64)
#if DEBUG
printf("DFP 64-bit quantize of variable, RMC = 1 result does not match expected result\n");
#else
abort();
#endif
srcA_dfp64 = 100.001df;
srcB_dfp64 = 3001.456789df;
expected_result_dfp64 = 3001.457df;
result_dfp64 = __builtin_dfp_quantize (srcA_dfp64, srcB_dfp64, 0x2);
if (result_dfp64 != expected_result_dfp64)
#if DEBUG
printf("DFP 64-bit quantize of variable, RMC = 2 result does not match expected result\n");
#else
abort();
#endif
/* Tests for 64-bit quantize with immediate value. */
srcB_dfp64 = 10.4567df;
expected_result_dfp64 = 000.0df;
result_dfp64 = __builtin_dfp_quantize (IMM2, srcB_dfp64, 0x0);
if (result_dfp64 != expected_result_dfp64)
#if DEBUG
printf("DFP 64-bit quantize immediate, RMC = 0 result does not match expected result\n");
#else
abort();
#endif
srcB_dfp64 = 104567.891df;
expected_result_dfp64 = 100000.0df;
result_dfp64 = __builtin_dfp_quantize (IMM4, srcB_dfp64, 0x1);
if (result_dfp64 != expected_result_dfp64)
#if DEBUG
printf("DFP 64-bit quantize immediate, RMC = 1 result does not match expected result\n");
#else
abort();
#endif
srcB_dfp64 = 109876.54321df;
expected_result_dfp64 = 109900.0df;
result_dfp64 = __builtin_dfp_quantize (IMM2, srcB_dfp64, 0x2);
if (result_dfp64 != expected_result_dfp64)
#if DEBUG
printf("DFP 64-bit quantize immediate, RMC = 2 result does not match expected result\n");
#else
abort();
#endif
/* Tests for quantize 128-bit DFP variable. */
srcA_dfp128 = 0.018df;
srcB_dfp128 = 50000.18345df;
expected_result_dfp128 = 50000.180df;
result_dfp128 = __builtin_dfp_quantize (srcA_dfp128, srcB_dfp128, 0x0);
if (result_dfp128 != expected_result_dfp128)
#if DEBUG
printf("DFP 128-bit quantize variable, RMC = 0 result does not match expected result\n");
#else
abort();
#endif
srcA_dfp128 = 8.01df;
srcB_dfp128 = 50000.18345df;
expected_result_dfp128 = 50000.18df;
result_dfp128 = __builtin_dfp_quantize (srcA_dfp128, srcB_dfp128, 0x1);
if (result_dfp128 != expected_result_dfp128)
#if DEBUG
printf("DFP 128-bit quantize variable, RMC = 1 result does not match expected result\n");
#else
abort();
#endif
srcA_dfp128 = 0.1234df;
srcB_dfp128 = 50000.18346789df;
expected_result_dfp128 = 50000.1800df;
result_dfp128 = __builtin_dfp_quantize (srcA_dfp128, srcB_dfp128, 0x2);
if (result_dfp128 != expected_result_dfp128)
#if DEBUG
printf("DFP 128-bit quantize variable, RMC = 2 result does not match expected result\n");
#else
abort();
#endif
/* Tests for 128-bit quantize with immediate value. */
srcB_dfp128 = 1234.18345df;
expected_result_dfp128 = 1200.0df;
result_dfp128 = __builtin_dfp_quantize (IMM2, srcB_dfp128, 0x0);
if (result_dfp128 != expected_result_dfp128)
#if DEBUG
printf("DFP 128-bit quantize immediate, RMC = 0 result does not match expected result\n");
#else
abort();
#endif
srcB_dfp128 = 123456.18345df;
expected_result_dfp128 = 120000.0df;
result_dfp128 = __builtin_dfp_quantize (IMM4, srcB_dfp128, 0x1);
if (result_dfp128 != expected_result_dfp128)
#if DEBUG
printf("DFP 128-bit quantize immediate, RMC = 1 result does not match expected result\n");
#else
abort();
#endif
srcB_dfp128 = 12361834.5df;
expected_result_dfp128 = 12362000.0df;
result_dfp128 = __builtin_dfp_quantize (IMM3, srcB_dfp128, 0x2);
if (result_dfp128 != expected_result_dfp128)
#if DEBUG
printf("DFP 128-bit quantize immediate, RMC = 2 result does not match expected result\n");
#else
abort();
#endif
return 0;
}
/* { dg-final { scan-assembler-times {\mdqua\M} 3 } } */
/* { dg-final { scan-assembler-times {\mdquai\M} 3 } } */
/* { dg-final { scan-assembler-times {\mdquaq\M} 3 } } */
/* { dg-final { scan-assembler-times {\mdquaiq\M} 3 } } */
|
