| blob | 01e1191963c1275e258d5a11a90be1c2400f3254 |
1 ------------------------------------------------------------------------\r
2 -- dqScalebB.decTest -- scale a decQuad by powers of 10 --\r
3 -- Copyright (c) IBM Corporation, 1981, 2008. All rights reserved. --\r
4 ------------------------------------------------------------------------\r
5 -- Please see the document "General Decimal Arithmetic Testcases" --\r
6 -- at http://www2.hursley.ibm.com/decimal for the description of --\r
7 -- these testcases. --\r
8 -- --\r
9 -- These testcases are experimental ('beta' versions), and they --\r
10 -- may contain errors. They are offered on an as-is basis. In --\r
11 -- particular, achieving the same results as the tests here is not --\r
12 -- a guarantee that an implementation complies with any Standard --\r
13 -- or specification. The tests are not exhaustive. --\r
14 -- --\r
15 -- Please send comments, suggestions, and corrections to the author: --\r
16 -- Mike Cowlishaw, IBM Fellow --\r
17 -- IBM UK, PO Box 31, Birmingham Road, Warwick CV34 5JL, UK --\r
18 -- mfc@uk.ibm.com --\r
19 ------------------------------------------------------------------------\r
20 version: 2.59\r
21 \r
22 extended: 1\r
23 clamp: 1\r
24 precision: 34\r
25 maxExponent: 6144\r
26 minExponent: -6143\r
27 rounding: half_even\r
28 \r
29 -- Max |rhs| is 2*(6144+34) = 12356\r
30 \r
31 -- Sanity checks\r
32 dqscb001 scaleb 7.50 10 -> 7.50E+10\r
33 dqscb002 scaleb 7.50 3 -> 7.50E+3\r
34 dqscb003 scaleb 7.50 2 -> 750\r
35 dqscb004 scaleb 7.50 1 -> 75.0\r
36 dqscb005 scaleb 7.50 0 -> 7.50\r
37 dqscb006 scaleb 7.50 -1 -> 0.750\r
38 dqscb007 scaleb 7.50 -2 -> 0.0750\r
39 dqscb008 scaleb 7.50 -10 -> 7.50E-10\r
40 dqscb009 scaleb -7.50 3 -> -7.50E+3\r
41 dqscb010 scaleb -7.50 2 -> -750\r
42 dqscb011 scaleb -7.50 1 -> -75.0\r
43 dqscb012 scaleb -7.50 0 -> -7.50\r
44 dqscb013 scaleb -7.50 -1 -> -0.750\r
45 \r
46 -- Infinities\r
47 dqscb014 scaleb Infinity 1 -> Infinity\r
48 dqscb015 scaleb -Infinity 2 -> -Infinity\r
49 dqscb016 scaleb Infinity -1 -> Infinity\r
50 dqscb017 scaleb -Infinity -2 -> -Infinity\r
51 \r
52 -- Next two are somewhat undefined in 754r; treat as non-integer\r
53 dqscb018 scaleb 10 Infinity -> NaN Invalid_operation\r
54 dqscb019 scaleb 10 -Infinity -> NaN Invalid_operation\r
55 \r
56 -- NaNs are undefined in 754r; assume usual processing\r
57 -- NaNs, 0 payload\r
58 dqscb021 scaleb NaN 1 -> NaN\r
59 dqscb022 scaleb -NaN -1 -> -NaN\r
60 dqscb023 scaleb sNaN 1 -> NaN Invalid_operation\r
61 dqscb024 scaleb -sNaN 1 -> -NaN Invalid_operation\r
62 dqscb025 scaleb 4 NaN -> NaN\r
63 dqscb026 scaleb -Inf -NaN -> -NaN\r
64 dqscb027 scaleb 4 sNaN -> NaN Invalid_operation\r
65 dqscb028 scaleb Inf -sNaN -> -NaN Invalid_operation\r
66 \r
67 -- non-integer RHS\r
68 dqscb030 scaleb 1.23 1 -> 12.3\r
69 dqscb031 scaleb 1.23 1.00 -> NaN Invalid_operation\r
70 dqscb032 scaleb 1.23 1.1 -> NaN Invalid_operation\r
71 dqscb033 scaleb 1.23 1.01 -> NaN Invalid_operation\r
72 dqscb034 scaleb 1.23 0.01 -> NaN Invalid_operation\r
73 dqscb035 scaleb 1.23 0.11 -> NaN Invalid_operation\r
74 dqscb036 scaleb 1.23 0.999999999 -> NaN Invalid_operation\r
75 dqscb037 scaleb 1.23 -1 -> 0.123\r
76 dqscb0614 scaleb 1.23 -1.00 -> NaN Invalid_operation\r
77 dqscb039 scaleb 1.23 -1.1 -> NaN Invalid_operation\r
78 dqscb040 scaleb 1.23 -1.01 -> NaN Invalid_operation\r
79 dqscb041 scaleb 1.23 -0.01 -> NaN Invalid_operation\r
80 dqscb042 scaleb 1.23 -0.11 -> NaN Invalid_operation\r
81 dqscb043 scaleb 1.23 -0.999999999 -> NaN Invalid_operation\r
82 dqscb044 scaleb 1.23 0.1 -> NaN Invalid_operation\r
83 dqscb045 scaleb 1.23 1E+1 -> NaN Invalid_operation\r
84 dqscb046 scaleb 1.23 1.1234E+6 -> NaN Invalid_operation\r
85 dqscb047 scaleb 1.23 1.123E+4 -> NaN Invalid_operation\r
86 \r
87 -- out-of range RHS\r
88 dqscb120 scaleb 1.23 12355 -> Infinity Overflow Inexact Rounded\r
89 dqscb121 scaleb 1.23 12356 -> Infinity Overflow Inexact Rounded\r
90 dqscb122 scaleb 1.23 12357 -> NaN Invalid_operation\r
91 dqscb123 scaleb 1.23 12358 -> NaN Invalid_operation\r
92 dqscb124 scaleb 1.23 -12355 -> 0E-6176 Underflow Subnormal Inexact Rounded Clamped\r
93 dqscb125 scaleb 1.23 -12356 -> 0E-6176 Underflow Subnormal Inexact Rounded Clamped\r
94 dqscb126 scaleb 1.23 -12357 -> NaN Invalid_operation\r
95 dqscb127 scaleb 1.23 -12358 -> NaN Invalid_operation\r
96 \r
97 -- NaNs, non-0 payload\r
98 -- propagating NaNs\r
99 dqscb861 scaleb NaN01 -Inf -> NaN1\r
100 dqscb862 scaleb -NaN02 -1000 -> -NaN2\r
101 dqscb863 scaleb NaN03 1000 -> NaN3\r
102 dqscb864 scaleb NaN04 Inf -> NaN4\r
103 dqscb865 scaleb NaN05 NaN61 -> NaN5\r
104 dqscb866 scaleb -Inf -NaN71 -> -NaN71\r
105 dqscb867 scaleb -1000 NaN81 -> NaN81\r
106 dqscb868 scaleb 1000 NaN91 -> NaN91\r
107 dqscb869 scaleb Inf NaN101 -> NaN101\r
108 dqscb871 scaleb sNaN011 -Inf -> NaN11 Invalid_operation\r
109 dqscb872 scaleb sNaN012 -1000 -> NaN12 Invalid_operation\r
110 dqscb873 scaleb -sNaN013 1000 -> -NaN13 Invalid_operation\r
111 dqscb874 scaleb sNaN014 NaN171 -> NaN14 Invalid_operation\r
112 dqscb875 scaleb sNaN015 sNaN181 -> NaN15 Invalid_operation\r
113 dqscb876 scaleb NaN016 sNaN191 -> NaN191 Invalid_operation\r
114 dqscb877 scaleb -Inf sNaN201 -> NaN201 Invalid_operation\r
115 dqscb878 scaleb -1000 sNaN211 -> NaN211 Invalid_operation\r
116 dqscb879 scaleb 1000 -sNaN221 -> -NaN221 Invalid_operation\r
117 dqscb880 scaleb Inf sNaN231 -> NaN231 Invalid_operation\r
118 dqscb881 scaleb NaN025 sNaN241 -> NaN241 Invalid_operation\r
119 \r
120 -- finites\r
121 dqscb051 scaleb 7 -2 -> 0.07\r
122 dqscb052 scaleb -7 -2 -> -0.07\r
123 dqscb053 scaleb 75 -2 -> 0.75\r
124 dqscb054 scaleb -75 -2 -> -0.75\r
125 dqscb055 scaleb 7.50 -2 -> 0.0750\r
126 dqscb056 scaleb -7.50 -2 -> -0.0750\r
127 dqscb057 scaleb 7.500 -2 -> 0.07500\r
128 dqscb058 scaleb -7.500 -2 -> -0.07500\r
129 dqscb061 scaleb 7 -1 -> 0.7\r
130 dqscb062 scaleb -7 -1 -> -0.7\r
131 dqscb063 scaleb 75 -1 -> 7.5\r
132 dqscb064 scaleb -75 -1 -> -7.5\r
133 dqscb065 scaleb 7.50 -1 -> 0.750\r
134 dqscb066 scaleb -7.50 -1 -> -0.750\r
135 dqscb067 scaleb 7.500 -1 -> 0.7500\r
136 dqscb068 scaleb -7.500 -1 -> -0.7500\r
137 dqscb071 scaleb 7 0 -> 7\r
138 dqscb072 scaleb -7 0 -> -7\r
139 dqscb073 scaleb 75 0 -> 75\r
140 dqscb074 scaleb -75 0 -> -75\r
141 dqscb075 scaleb 7.50 0 -> 7.50\r
142 dqscb076 scaleb -7.50 0 -> -7.50\r
143 dqscb077 scaleb 7.500 0 -> 7.500\r
144 dqscb078 scaleb -7.500 0 -> -7.500\r
145 dqscb081 scaleb 7 1 -> 7E+1\r
146 dqscb082 scaleb -7 1 -> -7E+1\r
147 dqscb083 scaleb 75 1 -> 7.5E+2\r
148 dqscb084 scaleb -75 1 -> -7.5E+2\r
149 dqscb085 scaleb 7.50 1 -> 75.0\r
150 dqscb086 scaleb -7.50 1 -> -75.0\r
151 dqscb087 scaleb 7.500 1 -> 75.00\r
152 dqscb088 scaleb -7.500 1 -> -75.00\r
153 dqscb091 scaleb 7 2 -> 7E+2\r
154 dqscb092 scaleb -7 2 -> -7E+2\r
155 dqscb093 scaleb 75 2 -> 7.5E+3\r
156 dqscb094 scaleb -75 2 -> -7.5E+3\r
157 dqscb095 scaleb 7.50 2 -> 750\r
158 dqscb096 scaleb -7.50 2 -> -750\r
159 dqscb097 scaleb 7.500 2 -> 750.0\r
160 dqscb098 scaleb -7.500 2 -> -750.0\r
161 \r
162 -- zeros\r
163 dqscb111 scaleb 0 1 -> 0E+1\r
164 dqscb112 scaleb -0 2 -> -0E+2\r
165 dqscb113 scaleb 0E+4 3 -> 0E+7\r
166 dqscb114 scaleb -0E+4 4 -> -0E+8\r
167 dqscb115 scaleb 0.0000 5 -> 0E+1\r
168 dqscb116 scaleb -0.0000 6 -> -0E+2\r
169 dqscb117 scaleb 0E-141 7 -> 0E-134\r
170 dqscb118 scaleb -0E-141 8 -> -0E-133\r
171 \r
172 -- Nmax, Nmin, Ntiny\r
173 dqscb132 scaleb 9.999999999999999999999999999999999E+6144 +6144 -> Infinity Overflow Inexact Rounded\r
174 dqscb133 scaleb 9.999999999999999999999999999999999E+6144 +10 -> Infinity Overflow Inexact Rounded\r
175 dqscb134 scaleb 9.999999999999999999999999999999999E+6144 +1 -> Infinity Overflow Inexact Rounded\r
176 dqscb135 scaleb 9.999999999999999999999999999999999E+6144 0 -> 9.999999999999999999999999999999999E+6144\r
177 dqscb136 scaleb 9.999999999999999999999999999999999E+6144 -1 -> 9.999999999999999999999999999999999E+6143\r
178 dqscb137 scaleb 1E-6143 +1 -> 1E-6142\r
179 dqscb1614 scaleb 1E-6143 -0 -> 1E-6143\r
180 dqscb139 scaleb 1E-6143 -1 -> 1E-6144 Subnormal\r
181 dqscb140 scaleb 1.000000000000000000000000000000000E-6143 +1 -> 1.000000000000000000000000000000000E-6142\r
182 dqscb141 scaleb 1.000000000000000000000000000000000E-6143 0 -> 1.000000000000000000000000000000000E-6143\r
183 dqscb142 scaleb 1.000000000000000000000000000000000E-6143 -1 -> 1.00000000000000000000000000000000E-6144 Subnormal Rounded\r
184 dqscb143 scaleb 1E-6176 +1 -> 1E-6175 Subnormal\r
185 dqscb144 scaleb 1E-6176 -0 -> 1E-6176 Subnormal\r
186 dqscb145 scaleb 1E-6176 -1 -> 0E-6176 Underflow Subnormal Inexact Rounded Clamped\r
187 \r
188 dqscb150 scaleb -1E-6176 +1 -> -1E-6175 Subnormal\r
189 dqscb151 scaleb -1E-6176 -0 -> -1E-6176 Subnormal\r
190 dqscb152 scaleb -1E-6176 -1 -> -0E-6176 Underflow Subnormal Inexact Rounded Clamped\r
191 dqscb153 scaleb -1.000000000000000000000000000000000E-6143 +1 -> -1.000000000000000000000000000000000E-6142\r
192 dqscb154 scaleb -1.000000000000000000000000000000000E-6143 +0 -> -1.000000000000000000000000000000000E-6143\r
193 dqscb155 scaleb -1.000000000000000000000000000000000E-6143 -1 -> -1.00000000000000000000000000000000E-6144 Subnormal Rounded\r
194 dqscb156 scaleb -1E-6143 +1 -> -1E-6142\r
195 dqscb157 scaleb -1E-6143 -0 -> -1E-6143\r
196 dqscb158 scaleb -1E-6143 -1 -> -1E-6144 Subnormal\r
197 dqscb159 scaleb -9.999999999999999999999999999999999E+6144 +1 -> -Infinity Overflow Inexact Rounded\r
198 dqscb160 scaleb -9.999999999999999999999999999999999E+6144 +0 -> -9.999999999999999999999999999999999E+6144\r
199 dqscb161 scaleb -9.999999999999999999999999999999999E+6144 -1 -> -9.999999999999999999999999999999999E+6143\r
200 dqscb162 scaleb -9E+6144 +1 -> -Infinity Overflow Inexact Rounded\r
201 dqscb163 scaleb -1E+6144 +1 -> -Infinity Overflow Inexact Rounded\r
202 \r
203 -- some Origami\r
204 -- (these check that overflow is being done correctly)\r
205 dqscb171 scaleb 1000E+6109 +1 -> 1.000E+6113\r
206 dqscb172 scaleb 1000E+6110 +1 -> 1.000E+6114\r
207 dqscb173 scaleb 1000E+6111 +1 -> 1.0000E+6115 Clamped\r
208 dqscb174 scaleb 1000E+6112 +1 -> 1.00000E+6116 Clamped\r
209 dqscb175 scaleb 1000E+6113 +1 -> 1.000000E+6117 Clamped\r
210 dqscb176 scaleb 1000E+6114 +1 -> 1.0000000E+6118 Clamped\r
211 dqscb177 scaleb 1000E+6131 +1 -> 1.000000000000000000000000E+6135 Clamped\r
212 dqscb178 scaleb 1000E+6132 +1 -> 1.0000000000000000000000000E+6136 Clamped\r
213 dqscb179 scaleb 1000E+6133 +1 -> 1.00000000000000000000000000E+6137 Clamped\r
214 dqscb180 scaleb 1000E+6134 +1 -> 1.000000000000000000000000000E+6138 Clamped\r
215 dqscb181 scaleb 1000E+6135 +1 -> 1.0000000000000000000000000000E+6139 Clamped\r
216 dqscb182 scaleb 1000E+6136 +1 -> 1.00000000000000000000000000000E+6140 Clamped\r
217 dqscb183 scaleb 1000E+6137 +1 -> 1.000000000000000000000000000000E+6141 Clamped\r
218 dqscb184 scaleb 1000E+6138 +1 -> 1.0000000000000000000000000000000E+6142 Clamped\r
219 dqscb185 scaleb 1000E+6139 +1 -> 1.00000000000000000000000000000000E+6143 Clamped\r
220 dqscb186 scaleb 1000E+6140 +1 -> 1.000000000000000000000000000000000E+6144 Clamped\r
221 dqscb187 scaleb 1000E+6141 +1 -> Infinity Overflow Inexact Rounded\r
222 \r
223 -- and a few more subnormal truncations\r
224 -- (these check that underflow is being done correctly)\r
225 dqscb221 scaleb 1.000000000000000000000000000000000E-6143 0 -> 1.000000000000000000000000000000000E-6143\r
226 dqscb222 scaleb 1.000000000000000000000000000000000E-6143 -1 -> 1.00000000000000000000000000000000E-6144 Subnormal Rounded\r
227 dqscb223 scaleb 1.000000000000000000000000000000000E-6143 -2 -> 1.0000000000000000000000000000000E-6145 Subnormal Rounded\r
228 dqscb224 scaleb 1.000000000000000000000000000000000E-6143 -3 -> 1.000000000000000000000000000000E-6146 Subnormal Rounded\r
229 dqscb225 scaleb 1.000000000000000000000000000000000E-6143 -4 -> 1.00000000000000000000000000000E-6147 Subnormal Rounded\r
230 dqscb226 scaleb 1.000000000000000000000000000000000E-6143 -5 -> 1.0000000000000000000000000000E-6148 Subnormal Rounded\r
231 dqscb227 scaleb 1.000000000000000000000000000000000E-6143 -6 -> 1.000000000000000000000000000E-6149 Subnormal Rounded\r
232 dqscb228 scaleb 1.000000000000000000000000000000000E-6143 -7 -> 1.00000000000000000000000000E-6150 Subnormal Rounded\r
233 dqscb229 scaleb 1.000000000000000000000000000000000E-6143 -8 -> 1.0000000000000000000000000E-6151 Subnormal Rounded\r
234 dqscb230 scaleb 1.000000000000000000000000000000000E-6143 -9 -> 1.000000000000000000000000E-6152 Subnormal Rounded\r
235 dqscb231 scaleb 1.000000000000000000000000000000000E-6143 -10 -> 1.00000000000000000000000E-6153 Subnormal Rounded\r
236 dqscb232 scaleb 1.000000000000000000000000000000000E-6143 -11 -> 1.0000000000000000000000E-6154 Subnormal Rounded\r
237 dqscb233 scaleb 1.000000000000000000000000000000000E-6143 -12 -> 1.000000000000000000000E-6155 Subnormal Rounded\r
238 dqscb234 scaleb 1.000000000000000000000000000000000E-6143 -13 -> 1.00000000000000000000E-6156 Subnormal Rounded\r
239 dqscb235 scaleb 1.000000000000000000000000000000000E-6143 -14 -> 1.0000000000000000000E-6157 Subnormal Rounded\r
240 dqscb236 scaleb 1.000000000000000000000000000000000E-6143 -15 -> 1.000000000000000000E-6158 Subnormal Rounded\r
241 dqscb237 scaleb 1.000000000000000000000000000000000E-6143 -16 -> 1.00000000000000000E-6159 Subnormal Rounded\r
242 dqscb238 scaleb 1.000000000000000000000000000000000E-6143 -17 -> 1.0000000000000000E-6160 Subnormal Rounded\r
243 dqscb239 scaleb 1.000000000000000000000000000000000E-6143 -18 -> 1.000000000000000E-6161 Subnormal Rounded\r
244 dqscb202 scaleb 1.000000000000000000000000000000000E-6143 -19 -> 1.00000000000000E-6162 Subnormal Rounded\r
245 dqscb203 scaleb 1.000000000000000000000000000000000E-6143 -20 -> 1.0000000000000E-6163 Subnormal Rounded\r
246 dqscb204 scaleb 1.000000000000000000000000000000000E-6143 -21 -> 1.000000000000E-6164 Subnormal Rounded\r
247 dqscb205 scaleb 1.000000000000000000000000000000000E-6143 -22 -> 1.00000000000E-6165 Subnormal Rounded\r
248 dqscb206 scaleb 1.000000000000000000000000000000000E-6143 -23 -> 1.0000000000E-6166 Subnormal Rounded\r
249 dqscb207 scaleb 1.000000000000000000000000000000000E-6143 -24 -> 1.000000000E-6167 Subnormal Rounded\r
250 dqscb208 scaleb 1.000000000000000000000000000000000E-6143 -25 -> 1.00000000E-6168 Subnormal Rounded\r
251 dqscb209 scaleb 1.000000000000000000000000000000000E-6143 -26 -> 1.0000000E-6169 Subnormal Rounded\r
252 dqscb210 scaleb 1.000000000000000000000000000000000E-6143 -27 -> 1.000000E-6170 Subnormal Rounded\r
253 dqscb211 scaleb 1.000000000000000000000000000000000E-6143 -28 -> 1.00000E-6171 Subnormal Rounded\r
254 dqscb212 scaleb 1.000000000000000000000000000000000E-6143 -29 -> 1.0000E-6172 Subnormal Rounded\r
255 dqscb213 scaleb 1.000000000000000000000000000000000E-6143 -30 -> 1.000E-6173 Subnormal Rounded\r
256 dqscb214 scaleb 1.000000000000000000000000000000000E-6143 -31 -> 1.00E-6174 Subnormal Rounded\r
257 dqscb215 scaleb 1.000000000000000000000000000000000E-6143 -32 -> 1.0E-6175 Subnormal Rounded\r
258 dqscb216 scaleb 1.000000000000000000000000000000000E-6143 -33 -> 1E-6176 Subnormal Rounded\r
259 dqscb217 scaleb 1.000000000000000000000000000000000E-6143 -34 -> 0E-6176 Underflow Subnormal Inexact Rounded Clamped\r
260 dqscb218 scaleb 1.000000000000000000000000000000000E-6143 -35 -> 0E-6176 Underflow Subnormal Inexact Rounded Clamped\r