1
------------------------------------------------------------------------
2
-- dqShift.decTest -- shift decQuad coefficient left or right --
3
-- Copyright (c) IBM Corporation, 1981, 2008. All rights reserved. --
4
------------------------------------------------------------------------
5
-- Please see the document "General Decimal Arithmetic Testcases" --
6
-- at http://www2.hursley.ibm.com/decimal for the description of --
9
-- These testcases are experimental ('beta' versions), and they --
10
-- may contain errors. They are offered on an as-is basis. In --
11
-- particular, achieving the same results as the tests here is not --
12
-- a guarantee that an implementation complies with any Standard --
13
-- or specification. The tests are not exhaustive. --
15
-- Please send comments, suggestions, and corrections to the author: --
16
-- Mike Cowlishaw, IBM Fellow --
17
-- IBM UK, PO Box 31, Birmingham Road, Warwick CV34 5JL, UK --
19
------------------------------------------------------------------------
30
dqshi001 shift 0 0 -> 0
31
dqshi002 shift 0 2 -> 0
32
dqshi003 shift 1 2 -> 100
33
dqshi004 shift 1 33 -> 1000000000000000000000000000000000
34
dqshi005 shift 1 34 -> 0
35
dqshi006 shift 1 -1 -> 0
36
dqshi007 shift 0 -2 -> 0
37
dqshi008 shift 1234567890123456789012345678901234 -1 -> 123456789012345678901234567890123
38
dqshi009 shift 1234567890123456789012345678901234 -33 -> 1
39
dqshi010 shift 1234567890123456789012345678901234 -34 -> 0
40
dqshi011 shift 9934567890123456789012345678901234 -33 -> 9
41
dqshi012 shift 9934567890123456789012345678901234 -34 -> 0
43
-- rhs must be an integer
44
dqshi015 shift 1 1.5 -> NaN Invalid_operation
45
dqshi016 shift 1 1.0 -> NaN Invalid_operation
46
dqshi017 shift 1 0.1 -> NaN Invalid_operation
47
dqshi018 shift 1 0.0 -> NaN Invalid_operation
48
dqshi019 shift 1 1E+1 -> NaN Invalid_operation
49
dqshi020 shift 1 1E+99 -> NaN Invalid_operation
50
dqshi021 shift 1 Inf -> NaN Invalid_operation
51
dqshi022 shift 1 -Inf -> NaN Invalid_operation
52
-- and |rhs| <= precision
53
dqshi025 shift 1 -1000 -> NaN Invalid_operation
54
dqshi026 shift 1 -35 -> NaN Invalid_operation
55
dqshi027 shift 1 35 -> NaN Invalid_operation
56
dqshi028 shift 1 1000 -> NaN Invalid_operation
58
-- full shifting pattern
59
dqshi030 shift 1234567890123456789012345678901234 -34 -> 0
60
dqshi031 shift 1234567890123456789012345678901234 -33 -> 1
61
dqshi032 shift 1234567890123456789012345678901234 -32 -> 12
62
dqshi033 shift 1234567890123456789012345678901234 -31 -> 123
63
dqshi034 shift 1234567890123456789012345678901234 -30 -> 1234
64
dqshi035 shift 1234567890123456789012345678901234 -29 -> 12345
65
dqshi036 shift 1234567890123456789012345678901234 -28 -> 123456
66
dqshi037 shift 1234567890123456789012345678901234 -27 -> 1234567
67
dqshi038 shift 1234567890123456789012345678901234 -26 -> 12345678
68
dqshi039 shift 1234567890123456789012345678901234 -25 -> 123456789
69
dqshi040 shift 1234567890123456789012345678901234 -24 -> 1234567890
70
dqshi041 shift 1234567890123456789012345678901234 -23 -> 12345678901
71
dqshi042 shift 1234567890123456789012345678901234 -22 -> 123456789012
72
dqshi043 shift 1234567890123456789012345678901234 -21 -> 1234567890123
73
dqshi044 shift 1234567890123456789012345678901234 -20 -> 12345678901234
74
dqshi045 shift 1234567890123456789012345678901234 -19 -> 123456789012345
75
dqshi047 shift 1234567890123456789012345678901234 -18 -> 1234567890123456
76
dqshi048 shift 1234567890123456789012345678901234 -17 -> 12345678901234567
77
dqshi049 shift 1234567890123456789012345678901234 -16 -> 123456789012345678
78
dqshi050 shift 1234567890123456789012345678901234 -15 -> 1234567890123456789
79
dqshi051 shift 1234567890123456789012345678901234 -14 -> 12345678901234567890
80
dqshi052 shift 1234567890123456789012345678901234 -13 -> 123456789012345678901
81
dqshi053 shift 1234567890123456789012345678901234 -12 -> 1234567890123456789012
82
dqshi054 shift 1234567890123456789012345678901234 -11 -> 12345678901234567890123
83
dqshi055 shift 1234567890123456789012345678901234 -10 -> 123456789012345678901234
84
dqshi056 shift 1234567890123456789012345678901234 -9 -> 1234567890123456789012345
85
dqshi057 shift 1234567890123456789012345678901234 -8 -> 12345678901234567890123456
86
dqshi058 shift 1234567890123456789012345678901234 -7 -> 123456789012345678901234567
87
dqshi059 shift 1234567890123456789012345678901234 -6 -> 1234567890123456789012345678
88
dqshi060 shift 1234567890123456789012345678901234 -5 -> 12345678901234567890123456789
89
dqshi061 shift 1234567890123456789012345678901234 -4 -> 123456789012345678901234567890
90
dqshi062 shift 1234567890123456789012345678901234 -3 -> 1234567890123456789012345678901
91
dqshi063 shift 1234567890123456789012345678901234 -2 -> 12345678901234567890123456789012
92
dqshi064 shift 1234567890123456789012345678901234 -1 -> 123456789012345678901234567890123
93
dqshi065 shift 1234567890123456789012345678901234 -0 -> 1234567890123456789012345678901234
95
dqshi066 shift 1234567890123456789012345678901234 +0 -> 1234567890123456789012345678901234
96
dqshi067 shift 1234567890123456789012345678901234 +1 -> 2345678901234567890123456789012340
97
dqshi068 shift 1234567890123456789012345678901234 +2 -> 3456789012345678901234567890123400
98
dqshi069 shift 1234567890123456789012345678901234 +3 -> 4567890123456789012345678901234000
99
dqshi070 shift 1234567890123456789012345678901234 +4 -> 5678901234567890123456789012340000
100
dqshi071 shift 1234567890123456789012345678901234 +5 -> 6789012345678901234567890123400000
101
dqshi072 shift 1234567890123456789012345678901234 +6 -> 7890123456789012345678901234000000
102
dqshi073 shift 1234567890123456789012345678901234 +7 -> 8901234567890123456789012340000000
103
dqshi074 shift 1234567890123456789012345678901234 +8 -> 9012345678901234567890123400000000
104
dqshi075 shift 1234567890123456789012345678901234 +9 -> 123456789012345678901234000000000
105
dqshi076 shift 1234567890123456789012345678901234 +10 -> 1234567890123456789012340000000000
106
dqshi077 shift 1234567890123456789012345678901234 +11 -> 2345678901234567890123400000000000
107
dqshi078 shift 1234567890123456789012345678901234 +12 -> 3456789012345678901234000000000000
108
dqshi079 shift 1234567890123456789012345678901234 +13 -> 4567890123456789012340000000000000
109
dqshi080 shift 1234567890123456789012345678901234 +14 -> 5678901234567890123400000000000000
110
dqshi081 shift 1234567890123456789012345678901234 +15 -> 6789012345678901234000000000000000
111
dqshi082 shift 1234567890123456789012345678901234 +16 -> 7890123456789012340000000000000000
112
dqshi083 shift 1234567890123456789012345678901234 +17 -> 8901234567890123400000000000000000
113
dqshi084 shift 1234567890123456789012345678901234 +18 -> 9012345678901234000000000000000000
114
dqshi085 shift 1234567890123456789012345678901234 +19 -> 123456789012340000000000000000000
115
dqshi086 shift 1234567890123456789012345678901234 +20 -> 1234567890123400000000000000000000
116
dqshi087 shift 1234567890123456789012345678901234 +21 -> 2345678901234000000000000000000000
117
dqshi088 shift 1234567890123456789012345678901234 +22 -> 3456789012340000000000000000000000
118
dqshi089 shift 1234567890123456789012345678901234 +23 -> 4567890123400000000000000000000000
119
dqshi090 shift 1234567890123456789012345678901234 +24 -> 5678901234000000000000000000000000
120
dqshi091 shift 1234567890123456789012345678901234 +25 -> 6789012340000000000000000000000000
121
dqshi092 shift 1234567890123456789012345678901234 +26 -> 7890123400000000000000000000000000
122
dqshi093 shift 1234567890123456789012345678901234 +27 -> 8901234000000000000000000000000000
123
dqshi094 shift 1234567890123456789012345678901234 +28 -> 9012340000000000000000000000000000
124
dqshi095 shift 1234567890123456789012345678901234 +29 -> 123400000000000000000000000000000
125
dqshi096 shift 1234567890123456789012345678901234 +30 -> 1234000000000000000000000000000000
126
dqshi097 shift 1234567890123456789012345678901234 +31 -> 2340000000000000000000000000000000
127
dqshi098 shift 1234567890123456789012345678901234 +32 -> 3400000000000000000000000000000000
128
dqshi099 shift 1234567890123456789012345678901234 +33 -> 4000000000000000000000000000000000
129
dqshi100 shift 1234567890123456789012345678901234 +34 -> 0
132
dqshi270 shift 0E-10 +29 -> 0E-10
133
dqshi271 shift 0E-10 -29 -> 0E-10
134
dqshi272 shift 0.000 +29 -> 0.000
135
dqshi273 shift 0.000 -29 -> 0.000
136
dqshi274 shift 0E+10 +29 -> 0E+10
137
dqshi275 shift 0E+10 -29 -> 0E+10
138
dqshi276 shift -0E-10 +29 -> -0E-10
139
dqshi277 shift -0E-10 -29 -> -0E-10
140
dqshi278 shift -0.000 +29 -> -0.000
141
dqshi279 shift -0.000 -29 -> -0.000
142
dqshi280 shift -0E+10 +29 -> -0E+10
143
dqshi281 shift -0E+10 -29 -> -0E+10
146
dqshi141 shift 9.999999999999999999999999999999999E+6144 -1 -> 9.99999999999999999999999999999999E+6143
147
dqshi142 shift 9.999999999999999999999999999999999E+6144 -33 -> 9E+6111
148
dqshi143 shift 9.999999999999999999999999999999999E+6144 1 -> 9.999999999999999999999999999999990E+6144
149
dqshi144 shift 9.999999999999999999999999999999999E+6144 33 -> 9.000000000000000000000000000000000E+6144
150
dqshi145 shift 1E-6143 -1 -> 0E-6143
151
dqshi146 shift 1E-6143 -33 -> 0E-6143
152
dqshi147 shift 1E-6143 1 -> 1.0E-6142
153
dqshi148 shift 1E-6143 33 -> 1.000000000000000000000000000000000E-6110
154
dqshi151 shift 1.000000000000000000000000000000000E-6143 -1 -> 1.00000000000000000000000000000000E-6144
155
dqshi152 shift 1.000000000000000000000000000000000E-6143 -33 -> 1E-6176
156
dqshi153 shift 1.000000000000000000000000000000000E-6143 1 -> 0E-6176
157
dqshi154 shift 1.000000000000000000000000000000000E-6143 33 -> 0E-6176
158
dqshi155 shift 9.000000000000000000000000000000000E-6143 -1 -> 9.00000000000000000000000000000000E-6144
159
dqshi156 shift 9.000000000000000000000000000000000E-6143 -33 -> 9E-6176
160
dqshi157 shift 9.000000000000000000000000000000000E-6143 1 -> 0E-6176
161
dqshi158 shift 9.000000000000000000000000000000000E-6143 33 -> 0E-6176
162
dqshi160 shift 1E-6176 -1 -> 0E-6176
163
dqshi161 shift 1E-6176 -33 -> 0E-6176
164
dqshi162 shift 1E-6176 1 -> 1.0E-6175
165
dqshi163 shift 1E-6176 33 -> 1.000000000000000000000000000000000E-6143
167
dqshi171 shift -9.999999999999999999999999999999999E+6144 -1 -> -9.99999999999999999999999999999999E+6143
168
dqshi172 shift -9.999999999999999999999999999999999E+6144 -33 -> -9E+6111
169
dqshi173 shift -9.999999999999999999999999999999999E+6144 1 -> -9.999999999999999999999999999999990E+6144
170
dqshi174 shift -9.999999999999999999999999999999999E+6144 33 -> -9.000000000000000000000000000000000E+6144
171
dqshi175 shift -1E-6143 -1 -> -0E-6143
172
dqshi176 shift -1E-6143 -33 -> -0E-6143
173
dqshi177 shift -1E-6143 1 -> -1.0E-6142
174
dqshi178 shift -1E-6143 33 -> -1.000000000000000000000000000000000E-6110
175
dqshi181 shift -1.000000000000000000000000000000000E-6143 -1 -> -1.00000000000000000000000000000000E-6144
176
dqshi182 shift -1.000000000000000000000000000000000E-6143 -33 -> -1E-6176
177
dqshi183 shift -1.000000000000000000000000000000000E-6143 1 -> -0E-6176
178
dqshi184 shift -1.000000000000000000000000000000000E-6143 33 -> -0E-6176
179
dqshi185 shift -9.000000000000000000000000000000000E-6143 -1 -> -9.00000000000000000000000000000000E-6144
180
dqshi186 shift -9.000000000000000000000000000000000E-6143 -33 -> -9E-6176
181
dqshi187 shift -9.000000000000000000000000000000000E-6143 1 -> -0E-6176
182
dqshi188 shift -9.000000000000000000000000000000000E-6143 33 -> -0E-6176
183
dqshi190 shift -1E-6176 -1 -> -0E-6176
184
dqshi191 shift -1E-6176 -33 -> -0E-6176
185
dqshi192 shift -1E-6176 1 -> -1.0E-6175
186
dqshi193 shift -1E-6176 33 -> -1.000000000000000000000000000000000E-6143
188
-- more negatives (of sanities)
189
dqshi201 shift -0 0 -> -0
190
dqshi202 shift -0 2 -> -0
191
dqshi203 shift -1 2 -> -100
192
dqshi204 shift -1 33 -> -1000000000000000000000000000000000
193
dqshi205 shift -1 34 -> -0
194
dqshi206 shift -1 -1 -> -0
195
dqshi207 shift -0 -2 -> -0
196
dqshi208 shift -1234567890123456789012345678901234 -1 -> -123456789012345678901234567890123
197
dqshi209 shift -1234567890123456789012345678901234 -33 -> -1
198
dqshi210 shift -1234567890123456789012345678901234 -34 -> -0
199
dqshi211 shift -9934567890123456789012345678901234 -33 -> -9
200
dqshi212 shift -9934567890123456789012345678901234 -34 -> -0
203
-- Specials; NaNs are handled as usual
204
dqshi781 shift -Inf -8 -> -Infinity
205
dqshi782 shift -Inf -1 -> -Infinity
206
dqshi783 shift -Inf -0 -> -Infinity
207
dqshi784 shift -Inf 0 -> -Infinity
208
dqshi785 shift -Inf 1 -> -Infinity
209
dqshi786 shift -Inf 8 -> -Infinity
210
dqshi787 shift -1000 -Inf -> NaN Invalid_operation
211
dqshi788 shift -Inf -Inf -> NaN Invalid_operation
212
dqshi789 shift -1 -Inf -> NaN Invalid_operation
213
dqshi790 shift -0 -Inf -> NaN Invalid_operation
214
dqshi791 shift 0 -Inf -> NaN Invalid_operation
215
dqshi792 shift 1 -Inf -> NaN Invalid_operation
216
dqshi793 shift 1000 -Inf -> NaN Invalid_operation
217
dqshi794 shift Inf -Inf -> NaN Invalid_operation
219
dqshi800 shift Inf -Inf -> NaN Invalid_operation
220
dqshi801 shift Inf -8 -> Infinity
221
dqshi802 shift Inf -1 -> Infinity
222
dqshi803 shift Inf -0 -> Infinity
223
dqshi804 shift Inf 0 -> Infinity
224
dqshi805 shift Inf 1 -> Infinity
225
dqshi806 shift Inf 8 -> Infinity
226
dqshi807 shift Inf Inf -> NaN Invalid_operation
227
dqshi808 shift -1000 Inf -> NaN Invalid_operation
228
dqshi809 shift -Inf Inf -> NaN Invalid_operation
229
dqshi810 shift -1 Inf -> NaN Invalid_operation
230
dqshi811 shift -0 Inf -> NaN Invalid_operation
231
dqshi812 shift 0 Inf -> NaN Invalid_operation
232
dqshi813 shift 1 Inf -> NaN Invalid_operation
233
dqshi814 shift 1000 Inf -> NaN Invalid_operation
234
dqshi815 shift Inf Inf -> NaN Invalid_operation
236
dqshi821 shift NaN -Inf -> NaN
237
dqshi822 shift NaN -1000 -> NaN
238
dqshi823 shift NaN -1 -> NaN
239
dqshi824 shift NaN -0 -> NaN
240
dqshi825 shift NaN 0 -> NaN
241
dqshi826 shift NaN 1 -> NaN
242
dqshi827 shift NaN 1000 -> NaN
243
dqshi828 shift NaN Inf -> NaN
244
dqshi829 shift NaN NaN -> NaN
245
dqshi830 shift -Inf NaN -> NaN
246
dqshi831 shift -1000 NaN -> NaN
247
dqshi832 shift -1 NaN -> NaN
248
dqshi833 shift -0 NaN -> NaN
249
dqshi834 shift 0 NaN -> NaN
250
dqshi835 shift 1 NaN -> NaN
251
dqshi836 shift 1000 NaN -> NaN
252
dqshi837 shift Inf NaN -> NaN
254
dqshi841 shift sNaN -Inf -> NaN Invalid_operation
255
dqshi842 shift sNaN -1000 -> NaN Invalid_operation
256
dqshi843 shift sNaN -1 -> NaN Invalid_operation
257
dqshi844 shift sNaN -0 -> NaN Invalid_operation
258
dqshi845 shift sNaN 0 -> NaN Invalid_operation
259
dqshi846 shift sNaN 1 -> NaN Invalid_operation
260
dqshi847 shift sNaN 1000 -> NaN Invalid_operation
261
dqshi848 shift sNaN NaN -> NaN Invalid_operation
262
dqshi849 shift sNaN sNaN -> NaN Invalid_operation
263
dqshi850 shift NaN sNaN -> NaN Invalid_operation
264
dqshi851 shift -Inf sNaN -> NaN Invalid_operation
265
dqshi852 shift -1000 sNaN -> NaN Invalid_operation
266
dqshi853 shift -1 sNaN -> NaN Invalid_operation
267
dqshi854 shift -0 sNaN -> NaN Invalid_operation
268
dqshi855 shift 0 sNaN -> NaN Invalid_operation
269
dqshi856 shift 1 sNaN -> NaN Invalid_operation
270
dqshi857 shift 1000 sNaN -> NaN Invalid_operation
271
dqshi858 shift Inf sNaN -> NaN Invalid_operation
272
dqshi859 shift NaN sNaN -> NaN Invalid_operation
275
dqshi861 shift NaN1 -Inf -> NaN1
276
dqshi862 shift +NaN2 -1000 -> NaN2
277
dqshi863 shift NaN3 1000 -> NaN3
278
dqshi864 shift NaN4 Inf -> NaN4
279
dqshi865 shift NaN5 +NaN6 -> NaN5
280
dqshi866 shift -Inf NaN7 -> NaN7
281
dqshi867 shift -1000 NaN8 -> NaN8
282
dqshi868 shift 1000 NaN9 -> NaN9
283
dqshi869 shift Inf +NaN10 -> NaN10
284
dqshi871 shift sNaN11 -Inf -> NaN11 Invalid_operation
285
dqshi872 shift sNaN12 -1000 -> NaN12 Invalid_operation
286
dqshi873 shift sNaN13 1000 -> NaN13 Invalid_operation
287
dqshi874 shift sNaN14 NaN17 -> NaN14 Invalid_operation
288
dqshi875 shift sNaN15 sNaN18 -> NaN15 Invalid_operation
289
dqshi876 shift NaN16 sNaN19 -> NaN19 Invalid_operation
290
dqshi877 shift -Inf +sNaN20 -> NaN20 Invalid_operation
291
dqshi878 shift -1000 sNaN21 -> NaN21 Invalid_operation
292
dqshi879 shift 1000 sNaN22 -> NaN22 Invalid_operation
293
dqshi880 shift Inf sNaN23 -> NaN23 Invalid_operation
294
dqshi881 shift +NaN25 +sNaN24 -> NaN24 Invalid_operation
295
dqshi882 shift -NaN26 NaN28 -> -NaN26
296
dqshi883 shift -sNaN27 sNaN29 -> -NaN27 Invalid_operation
297
dqshi884 shift 1000 -NaN30 -> -NaN30
298
dqshi885 shift 1000 -sNaN31 -> -NaN31 Invalid_operation