1 ------------------------------------------------------------------------
\r
2 -- dqCompare.decTest -- decQuad comparison that allows quiet NaNs --
\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
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
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
22 -- Note that we cannot assume add/subtract tests cover paths adequately,
\r
23 -- here, because the code might be quite different (comparison cannot
\r
24 -- overflow or underflow, so actual subtractions are not necessary).
\r
26 -- All operands and results are decQuads.
\r
35 dqcom001 compare -2 -2 -> 0
\r
36 dqcom002 compare -2 -1 -> -1
\r
37 dqcom003 compare -2 0 -> -1
\r
38 dqcom004 compare -2 1 -> -1
\r
39 dqcom005 compare -2 2 -> -1
\r
40 dqcom006 compare -1 -2 -> 1
\r
41 dqcom007 compare -1 -1 -> 0
\r
42 dqcom008 compare -1 0 -> -1
\r
43 dqcom009 compare -1 1 -> -1
\r
44 dqcom010 compare -1 2 -> -1
\r
45 dqcom011 compare 0 -2 -> 1
\r
46 dqcom012 compare 0 -1 -> 1
\r
47 dqcom013 compare 0 0 -> 0
\r
48 dqcom014 compare 0 1 -> -1
\r
49 dqcom015 compare 0 2 -> -1
\r
50 dqcom016 compare 1 -2 -> 1
\r
51 dqcom017 compare 1 -1 -> 1
\r
52 dqcom018 compare 1 0 -> 1
\r
53 dqcom019 compare 1 1 -> 0
\r
54 dqcom020 compare 1 2 -> -1
\r
55 dqcom021 compare 2 -2 -> 1
\r
56 dqcom022 compare 2 -1 -> 1
\r
57 dqcom023 compare 2 0 -> 1
\r
58 dqcom025 compare 2 1 -> 1
\r
59 dqcom026 compare 2 2 -> 0
\r
61 dqcom031 compare -20 -20 -> 0
\r
62 dqcom032 compare -20 -10 -> -1
\r
63 dqcom033 compare -20 00 -> -1
\r
64 dqcom034 compare -20 10 -> -1
\r
65 dqcom035 compare -20 20 -> -1
\r
66 dqcom036 compare -10 -20 -> 1
\r
67 dqcom037 compare -10 -10 -> 0
\r
68 dqcom038 compare -10 00 -> -1
\r
69 dqcom039 compare -10 10 -> -1
\r
70 dqcom040 compare -10 20 -> -1
\r
71 dqcom041 compare 00 -20 -> 1
\r
72 dqcom042 compare 00 -10 -> 1
\r
73 dqcom043 compare 00 00 -> 0
\r
74 dqcom044 compare 00 10 -> -1
\r
75 dqcom045 compare 00 20 -> -1
\r
76 dqcom046 compare 10 -20 -> 1
\r
77 dqcom047 compare 10 -10 -> 1
\r
78 dqcom048 compare 10 00 -> 1
\r
79 dqcom049 compare 10 10 -> 0
\r
80 dqcom050 compare 10 20 -> -1
\r
81 dqcom051 compare 20 -20 -> 1
\r
82 dqcom052 compare 20 -10 -> 1
\r
83 dqcom053 compare 20 00 -> 1
\r
84 dqcom055 compare 20 10 -> 1
\r
85 dqcom056 compare 20 20 -> 0
\r
87 dqcom061 compare -2.0 -2.0 -> 0
\r
88 dqcom062 compare -2.0 -1.0 -> -1
\r
89 dqcom063 compare -2.0 0.0 -> -1
\r
90 dqcom064 compare -2.0 1.0 -> -1
\r
91 dqcom065 compare -2.0 2.0 -> -1
\r
92 dqcom066 compare -1.0 -2.0 -> 1
\r
93 dqcom067 compare -1.0 -1.0 -> 0
\r
94 dqcom068 compare -1.0 0.0 -> -1
\r
95 dqcom069 compare -1.0 1.0 -> -1
\r
96 dqcom070 compare -1.0 2.0 -> -1
\r
97 dqcom071 compare 0.0 -2.0 -> 1
\r
98 dqcom072 compare 0.0 -1.0 -> 1
\r
99 dqcom073 compare 0.0 0.0 -> 0
\r
100 dqcom074 compare 0.0 1.0 -> -1
\r
101 dqcom075 compare 0.0 2.0 -> -1
\r
102 dqcom076 compare 1.0 -2.0 -> 1
\r
103 dqcom077 compare 1.0 -1.0 -> 1
\r
104 dqcom078 compare 1.0 0.0 -> 1
\r
105 dqcom079 compare 1.0 1.0 -> 0
\r
106 dqcom080 compare 1.0 2.0 -> -1
\r
107 dqcom081 compare 2.0 -2.0 -> 1
\r
108 dqcom082 compare 2.0 -1.0 -> 1
\r
109 dqcom083 compare 2.0 0.0 -> 1
\r
110 dqcom085 compare 2.0 1.0 -> 1
\r
111 dqcom086 compare 2.0 2.0 -> 0
\r
113 -- now some cases which might overflow if subtract were used
\r
114 dqcom090 compare 9.999999999999999999999999999999999E+6144 9.999999999999999999999999999999999E+6144 -> 0
\r
115 dqcom091 compare -9.999999999999999999999999999999999E+6144 9.999999999999999999999999999999999E+6144 -> -1
\r
116 dqcom092 compare 9.999999999999999999999999999999999E+6144 -9.999999999999999999999999999999999E+6144 -> 1
\r
117 dqcom093 compare -9.999999999999999999999999999999999E+6144 -9.999999999999999999999999999999999E+6144 -> 0
\r
119 -- some differing length/exponent cases
\r
120 dqcom100 compare 7.0 7.0 -> 0
\r
121 dqcom101 compare 7.0 7 -> 0
\r
122 dqcom102 compare 7 7.0 -> 0
\r
123 dqcom103 compare 7E+0 7.0 -> 0
\r
124 dqcom104 compare 70E-1 7.0 -> 0
\r
125 dqcom105 compare 0.7E+1 7 -> 0
\r
126 dqcom106 compare 70E-1 7 -> 0
\r
127 dqcom107 compare 7.0 7E+0 -> 0
\r
128 dqcom108 compare 7.0 70E-1 -> 0
\r
129 dqcom109 compare 7 0.7E+1 -> 0
\r
130 dqcom110 compare 7 70E-1 -> 0
\r
132 dqcom120 compare 8.0 7.0 -> 1
\r
133 dqcom121 compare 8.0 7 -> 1
\r
134 dqcom122 compare 8 7.0 -> 1
\r
135 dqcom123 compare 8E+0 7.0 -> 1
\r
136 dqcom124 compare 80E-1 7.0 -> 1
\r
137 dqcom125 compare 0.8E+1 7 -> 1
\r
138 dqcom126 compare 80E-1 7 -> 1
\r
139 dqcom127 compare 8.0 7E+0 -> 1
\r
140 dqcom128 compare 8.0 70E-1 -> 1
\r
141 dqcom129 compare 8 0.7E+1 -> 1
\r
142 dqcom130 compare 8 70E-1 -> 1
\r
144 dqcom140 compare 8.0 9.0 -> -1
\r
145 dqcom141 compare 8.0 9 -> -1
\r
146 dqcom142 compare 8 9.0 -> -1
\r
147 dqcom143 compare 8E+0 9.0 -> -1
\r
148 dqcom144 compare 80E-1 9.0 -> -1
\r
149 dqcom145 compare 0.8E+1 9 -> -1
\r
150 dqcom146 compare 80E-1 9 -> -1
\r
151 dqcom147 compare 8.0 9E+0 -> -1
\r
152 dqcom148 compare 8.0 90E-1 -> -1
\r
153 dqcom149 compare 8 0.9E+1 -> -1
\r
154 dqcom150 compare 8 90E-1 -> -1
\r
156 -- and again, with sign changes -+ ..
\r
157 dqcom200 compare -7.0 7.0 -> -1
\r
158 dqcom201 compare -7.0 7 -> -1
\r
159 dqcom202 compare -7 7.0 -> -1
\r
160 dqcom203 compare -7E+0 7.0 -> -1
\r
161 dqcom204 compare -70E-1 7.0 -> -1
\r
162 dqcom205 compare -0.7E+1 7 -> -1
\r
163 dqcom206 compare -70E-1 7 -> -1
\r
164 dqcom207 compare -7.0 7E+0 -> -1
\r
165 dqcom208 compare -7.0 70E-1 -> -1
\r
166 dqcom209 compare -7 0.7E+1 -> -1
\r
167 dqcom210 compare -7 70E-1 -> -1
\r
169 dqcom220 compare -8.0 7.0 -> -1
\r
170 dqcom221 compare -8.0 7 -> -1
\r
171 dqcom222 compare -8 7.0 -> -1
\r
172 dqcom223 compare -8E+0 7.0 -> -1
\r
173 dqcom224 compare -80E-1 7.0 -> -1
\r
174 dqcom225 compare -0.8E+1 7 -> -1
\r
175 dqcom226 compare -80E-1 7 -> -1
\r
176 dqcom227 compare -8.0 7E+0 -> -1
\r
177 dqcom228 compare -8.0 70E-1 -> -1
\r
178 dqcom229 compare -8 0.7E+1 -> -1
\r
179 dqcom230 compare -8 70E-1 -> -1
\r
181 dqcom240 compare -8.0 9.0 -> -1
\r
182 dqcom241 compare -8.0 9 -> -1
\r
183 dqcom242 compare -8 9.0 -> -1
\r
184 dqcom243 compare -8E+0 9.0 -> -1
\r
185 dqcom244 compare -80E-1 9.0 -> -1
\r
186 dqcom245 compare -0.8E+1 9 -> -1
\r
187 dqcom246 compare -80E-1 9 -> -1
\r
188 dqcom247 compare -8.0 9E+0 -> -1
\r
189 dqcom248 compare -8.0 90E-1 -> -1
\r
190 dqcom249 compare -8 0.9E+1 -> -1
\r
191 dqcom250 compare -8 90E-1 -> -1
\r
193 -- and again, with sign changes +- ..
\r
194 dqcom300 compare 7.0 -7.0 -> 1
\r
195 dqcom301 compare 7.0 -7 -> 1
\r
196 dqcom302 compare 7 -7.0 -> 1
\r
197 dqcom303 compare 7E+0 -7.0 -> 1
\r
198 dqcom304 compare 70E-1 -7.0 -> 1
\r
199 dqcom305 compare .7E+1 -7 -> 1
\r
200 dqcom306 compare 70E-1 -7 -> 1
\r
201 dqcom307 compare 7.0 -7E+0 -> 1
\r
202 dqcom308 compare 7.0 -70E-1 -> 1
\r
203 dqcom309 compare 7 -.7E+1 -> 1
\r
204 dqcom310 compare 7 -70E-1 -> 1
\r
206 dqcom320 compare 8.0 -7.0 -> 1
\r
207 dqcom321 compare 8.0 -7 -> 1
\r
208 dqcom322 compare 8 -7.0 -> 1
\r
209 dqcom323 compare 8E+0 -7.0 -> 1
\r
210 dqcom324 compare 80E-1 -7.0 -> 1
\r
211 dqcom325 compare .8E+1 -7 -> 1
\r
212 dqcom326 compare 80E-1 -7 -> 1
\r
213 dqcom327 compare 8.0 -7E+0 -> 1
\r
214 dqcom328 compare 8.0 -70E-1 -> 1
\r
215 dqcom329 compare 8 -.7E+1 -> 1
\r
216 dqcom330 compare 8 -70E-1 -> 1
\r
218 dqcom340 compare 8.0 -9.0 -> 1
\r
219 dqcom341 compare 8.0 -9 -> 1
\r
220 dqcom342 compare 8 -9.0 -> 1
\r
221 dqcom343 compare 8E+0 -9.0 -> 1
\r
222 dqcom344 compare 80E-1 -9.0 -> 1
\r
223 dqcom345 compare .8E+1 -9 -> 1
\r
224 dqcom346 compare 80E-1 -9 -> 1
\r
225 dqcom347 compare 8.0 -9E+0 -> 1
\r
226 dqcom348 compare 8.0 -90E-1 -> 1
\r
227 dqcom349 compare 8 -.9E+1 -> 1
\r
228 dqcom350 compare 8 -90E-1 -> 1
\r
230 -- and again, with sign changes -- ..
\r
231 dqcom400 compare -7.0 -7.0 -> 0
\r
232 dqcom401 compare -7.0 -7 -> 0
\r
233 dqcom402 compare -7 -7.0 -> 0
\r
234 dqcom403 compare -7E+0 -7.0 -> 0
\r
235 dqcom404 compare -70E-1 -7.0 -> 0
\r
236 dqcom405 compare -.7E+1 -7 -> 0
\r
237 dqcom406 compare -70E-1 -7 -> 0
\r
238 dqcom407 compare -7.0 -7E+0 -> 0
\r
239 dqcom408 compare -7.0 -70E-1 -> 0
\r
240 dqcom409 compare -7 -.7E+1 -> 0
\r
241 dqcom410 compare -7 -70E-1 -> 0
\r
243 dqcom420 compare -8.0 -7.0 -> -1
\r
244 dqcom421 compare -8.0 -7 -> -1
\r
245 dqcom422 compare -8 -7.0 -> -1
\r
246 dqcom423 compare -8E+0 -7.0 -> -1
\r
247 dqcom424 compare -80E-1 -7.0 -> -1
\r
248 dqcom425 compare -.8E+1 -7 -> -1
\r
249 dqcom426 compare -80E-1 -7 -> -1
\r
250 dqcom427 compare -8.0 -7E+0 -> -1
\r
251 dqcom428 compare -8.0 -70E-1 -> -1
\r
252 dqcom429 compare -8 -.7E+1 -> -1
\r
253 dqcom430 compare -8 -70E-1 -> -1
\r
255 dqcom440 compare -8.0 -9.0 -> 1
\r
256 dqcom441 compare -8.0 -9 -> 1
\r
257 dqcom442 compare -8 -9.0 -> 1
\r
258 dqcom443 compare -8E+0 -9.0 -> 1
\r
259 dqcom444 compare -80E-1 -9.0 -> 1
\r
260 dqcom445 compare -.8E+1 -9 -> 1
\r
261 dqcom446 compare -80E-1 -9 -> 1
\r
262 dqcom447 compare -8.0 -9E+0 -> 1
\r
263 dqcom448 compare -8.0 -90E-1 -> 1
\r
264 dqcom449 compare -8 -.9E+1 -> 1
\r
265 dqcom450 compare -8 -90E-1 -> 1
\r
267 -- misalignment traps for little-endian
\r
268 dqcom451 compare 1.0 0.1 -> 1
\r
269 dqcom452 compare 0.1 1.0 -> -1
\r
270 dqcom453 compare 10.0 0.1 -> 1
\r
271 dqcom454 compare 0.1 10.0 -> -1
\r
272 dqcom455 compare 100 1.0 -> 1
\r
273 dqcom456 compare 1.0 100 -> -1
\r
274 dqcom457 compare 1000 10.0 -> 1
\r
275 dqcom458 compare 10.0 1000 -> -1
\r
276 dqcom459 compare 10000 100.0 -> 1
\r
277 dqcom460 compare 100.0 10000 -> -1
\r
278 dqcom461 compare 100000 1000.0 -> 1
\r
279 dqcom462 compare 1000.0 100000 -> -1
\r
280 dqcom463 compare 1000000 10000.0 -> 1
\r
281 dqcom464 compare 10000.0 1000000 -> -1
\r
283 -- testcases that subtract to lots of zeros at boundaries [pgr]
\r
284 dqcom473 compare 123.9999999999999999994560000000000E-89 123.999999999999999999456E-89 -> 0
\r
285 dqcom474 compare 123.999999999999999999456000000000E+89 123.999999999999999999456E+89 -> 0
\r
286 dqcom475 compare 123.99999999999999999945600000000E-89 123.999999999999999999456E-89 -> 0
\r
287 dqcom476 compare 123.9999999999999999994560000000E+89 123.999999999999999999456E+89 -> 0
\r
288 dqcom477 compare 123.999999999999999999456000000E-89 123.999999999999999999456E-89 -> 0
\r
289 dqcom478 compare 123.99999999999999999945600000E+89 123.999999999999999999456E+89 -> 0
\r
290 dqcom479 compare 123.9999999999999999994560000E-89 123.999999999999999999456E-89 -> 0
\r
291 dqcom480 compare 123.999999999999999999456000E+89 123.999999999999999999456E+89 -> 0
\r
292 dqcom481 compare 123.99999999999999999945600E-89 123.999999999999999999456E-89 -> 0
\r
293 dqcom482 compare 123.9999999999999999994560E+89 123.999999999999999999456E+89 -> 0
\r
294 dqcom483 compare 123.999999999999999999456E-89 123.999999999999999999456E-89 -> 0
\r
295 dqcom487 compare 123.999999999999999999456E+89 123.9999999999999999994560000000000E+89 -> 0
\r
296 dqcom488 compare 123.999999999999999999456E-89 123.999999999999999999456000000000E-89 -> 0
\r
297 dqcom489 compare 123.999999999999999999456E+89 123.99999999999999999945600000000E+89 -> 0
\r
298 dqcom490 compare 123.999999999999999999456E-89 123.9999999999999999994560000000E-89 -> 0
\r
299 dqcom491 compare 123.999999999999999999456E+89 123.999999999999999999456000000E+89 -> 0
\r
300 dqcom492 compare 123.999999999999999999456E-89 123.99999999999999999945600000E-89 -> 0
\r
301 dqcom493 compare 123.999999999999999999456E+89 123.9999999999999999994560000E+89 -> 0
\r
302 dqcom494 compare 123.999999999999999999456E-89 123.999999999999999999456000E-89 -> 0
\r
303 dqcom495 compare 123.999999999999999999456E+89 123.99999999999999999945600E+89 -> 0
\r
304 dqcom496 compare 123.999999999999999999456E-89 123.9999999999999999994560E-89 -> 0
\r
305 dqcom497 compare 123.999999999999999999456E+89 123.999999999999999999456E+89 -> 0
\r
307 -- wide-ranging, around precision; signs equal
\r
308 dqcom500 compare 1 1E-15 -> 1
\r
309 dqcom501 compare 1 1E-14 -> 1
\r
310 dqcom502 compare 1 1E-13 -> 1
\r
311 dqcom503 compare 1 1E-12 -> 1
\r
312 dqcom504 compare 1 1E-11 -> 1
\r
313 dqcom505 compare 1 1E-10 -> 1
\r
314 dqcom506 compare 1 1E-9 -> 1
\r
315 dqcom507 compare 1 1E-8 -> 1
\r
316 dqcom508 compare 1 1E-7 -> 1
\r
317 dqcom509 compare 1 1E-6 -> 1
\r
318 dqcom510 compare 1 1E-5 -> 1
\r
319 dqcom511 compare 1 1E-4 -> 1
\r
320 dqcom512 compare 1 1E-3 -> 1
\r
321 dqcom513 compare 1 1E-2 -> 1
\r
322 dqcom514 compare 1 1E-1 -> 1
\r
323 dqcom515 compare 1 1E-0 -> 0
\r
324 dqcom516 compare 1 1E+1 -> -1
\r
325 dqcom517 compare 1 1E+2 -> -1
\r
326 dqcom518 compare 1 1E+3 -> -1
\r
327 dqcom519 compare 1 1E+4 -> -1
\r
328 dqcom521 compare 1 1E+5 -> -1
\r
329 dqcom522 compare 1 1E+6 -> -1
\r
330 dqcom523 compare 1 1E+7 -> -1
\r
331 dqcom524 compare 1 1E+8 -> -1
\r
332 dqcom525 compare 1 1E+9 -> -1
\r
333 dqcom526 compare 1 1E+10 -> -1
\r
334 dqcom527 compare 1 1E+11 -> -1
\r
335 dqcom528 compare 1 1E+12 -> -1
\r
336 dqcom529 compare 1 1E+13 -> -1
\r
337 dqcom530 compare 1 1E+14 -> -1
\r
338 dqcom531 compare 1 1E+15 -> -1
\r
340 dqcom540 compare 1E-15 1 -> -1
\r
341 dqcom541 compare 1E-14 1 -> -1
\r
342 dqcom542 compare 1E-13 1 -> -1
\r
343 dqcom543 compare 1E-12 1 -> -1
\r
344 dqcom544 compare 1E-11 1 -> -1
\r
345 dqcom545 compare 1E-10 1 -> -1
\r
346 dqcom546 compare 1E-9 1 -> -1
\r
347 dqcom547 compare 1E-8 1 -> -1
\r
348 dqcom548 compare 1E-7 1 -> -1
\r
349 dqcom549 compare 1E-6 1 -> -1
\r
350 dqcom550 compare 1E-5 1 -> -1
\r
351 dqcom551 compare 1E-4 1 -> -1
\r
352 dqcom552 compare 1E-3 1 -> -1
\r
353 dqcom553 compare 1E-2 1 -> -1
\r
354 dqcom554 compare 1E-1 1 -> -1
\r
355 dqcom555 compare 1E-0 1 -> 0
\r
356 dqcom556 compare 1E+1 1 -> 1
\r
357 dqcom557 compare 1E+2 1 -> 1
\r
358 dqcom558 compare 1E+3 1 -> 1
\r
359 dqcom559 compare 1E+4 1 -> 1
\r
360 dqcom561 compare 1E+5 1 -> 1
\r
361 dqcom562 compare 1E+6 1 -> 1
\r
362 dqcom563 compare 1E+7 1 -> 1
\r
363 dqcom564 compare 1E+8 1 -> 1
\r
364 dqcom565 compare 1E+9 1 -> 1
\r
365 dqcom566 compare 1E+10 1 -> 1
\r
366 dqcom567 compare 1E+11 1 -> 1
\r
367 dqcom568 compare 1E+12 1 -> 1
\r
368 dqcom569 compare 1E+13 1 -> 1
\r
369 dqcom570 compare 1E+14 1 -> 1
\r
370 dqcom571 compare 1E+15 1 -> 1
\r
371 -- similar with a useful coefficient, one side only
\r
372 dqcom580 compare 0.000000987654321 1E-15 -> 1
\r
373 dqcom581 compare 0.000000987654321 1E-14 -> 1
\r
374 dqcom582 compare 0.000000987654321 1E-13 -> 1
\r
375 dqcom583 compare 0.000000987654321 1E-12 -> 1
\r
376 dqcom584 compare 0.000000987654321 1E-11 -> 1
\r
377 dqcom585 compare 0.000000987654321 1E-10 -> 1
\r
378 dqcom586 compare 0.000000987654321 1E-9 -> 1
\r
379 dqcom587 compare 0.000000987654321 1E-8 -> 1
\r
380 dqcom588 compare 0.000000987654321 1E-7 -> 1
\r
381 dqcom589 compare 0.000000987654321 1E-6 -> -1
\r
382 dqcom590 compare 0.000000987654321 1E-5 -> -1
\r
383 dqcom591 compare 0.000000987654321 1E-4 -> -1
\r
384 dqcom592 compare 0.000000987654321 1E-3 -> -1
\r
385 dqcom593 compare 0.000000987654321 1E-2 -> -1
\r
386 dqcom594 compare 0.000000987654321 1E-1 -> -1
\r
387 dqcom595 compare 0.000000987654321 1E-0 -> -1
\r
388 dqcom596 compare 0.000000987654321 1E+1 -> -1
\r
389 dqcom597 compare 0.000000987654321 1E+2 -> -1
\r
390 dqcom598 compare 0.000000987654321 1E+3 -> -1
\r
391 dqcom599 compare 0.000000987654321 1E+4 -> -1
\r
393 -- check some unit-y traps
\r
394 dqcom600 compare 12 12.2345 -> -1
\r
395 dqcom601 compare 12.0 12.2345 -> -1
\r
396 dqcom602 compare 12.00 12.2345 -> -1
\r
397 dqcom603 compare 12.000 12.2345 -> -1
\r
398 dqcom604 compare 12.0000 12.2345 -> -1
\r
399 dqcom605 compare 12.00000 12.2345 -> -1
\r
400 dqcom606 compare 12.000000 12.2345 -> -1
\r
401 dqcom607 compare 12.0000000 12.2345 -> -1
\r
402 dqcom608 compare 12.00000000 12.2345 -> -1
\r
403 dqcom609 compare 12.000000000 12.2345 -> -1
\r
404 dqcom610 compare 12.1234 12 -> 1
\r
405 dqcom611 compare 12.1234 12.0 -> 1
\r
406 dqcom612 compare 12.1234 12.00 -> 1
\r
407 dqcom613 compare 12.1234 12.000 -> 1
\r
408 dqcom614 compare 12.1234 12.0000 -> 1
\r
409 dqcom615 compare 12.1234 12.00000 -> 1
\r
410 dqcom616 compare 12.1234 12.000000 -> 1
\r
411 dqcom617 compare 12.1234 12.0000000 -> 1
\r
412 dqcom618 compare 12.1234 12.00000000 -> 1
\r
413 dqcom619 compare 12.1234 12.000000000 -> 1
\r
414 dqcom620 compare -12 -12.2345 -> 1
\r
415 dqcom621 compare -12.0 -12.2345 -> 1
\r
416 dqcom622 compare -12.00 -12.2345 -> 1
\r
417 dqcom623 compare -12.000 -12.2345 -> 1
\r
418 dqcom624 compare -12.0000 -12.2345 -> 1
\r
419 dqcom625 compare -12.00000 -12.2345 -> 1
\r
420 dqcom626 compare -12.000000 -12.2345 -> 1
\r
421 dqcom627 compare -12.0000000 -12.2345 -> 1
\r
422 dqcom628 compare -12.00000000 -12.2345 -> 1
\r
423 dqcom629 compare -12.000000000 -12.2345 -> 1
\r
424 dqcom630 compare -12.1234 -12 -> -1
\r
425 dqcom631 compare -12.1234 -12.0 -> -1
\r
426 dqcom632 compare -12.1234 -12.00 -> -1
\r
427 dqcom633 compare -12.1234 -12.000 -> -1
\r
428 dqcom634 compare -12.1234 -12.0000 -> -1
\r
429 dqcom635 compare -12.1234 -12.00000 -> -1
\r
430 dqcom636 compare -12.1234 -12.000000 -> -1
\r
431 dqcom637 compare -12.1234 -12.0000000 -> -1
\r
432 dqcom638 compare -12.1234 -12.00000000 -> -1
\r
433 dqcom639 compare -12.1234 -12.000000000 -> -1
\r
436 dqcom640 compare 0 0 -> 0
\r
437 dqcom641 compare 0 -0 -> 0
\r
438 dqcom642 compare 0 -0.0 -> 0
\r
439 dqcom643 compare 0 0.0 -> 0
\r
440 dqcom644 compare -0 0 -> 0
\r
441 dqcom645 compare -0 -0 -> 0
\r
442 dqcom646 compare -0 -0.0 -> 0
\r
443 dqcom647 compare -0 0.0 -> 0
\r
444 dqcom648 compare 0.0 0 -> 0
\r
445 dqcom649 compare 0.0 -0 -> 0
\r
446 dqcom650 compare 0.0 -0.0 -> 0
\r
447 dqcom651 compare 0.0 0.0 -> 0
\r
448 dqcom652 compare -0.0 0 -> 0
\r
449 dqcom653 compare -0.0 -0 -> 0
\r
450 dqcom654 compare -0.0 -0.0 -> 0
\r
451 dqcom655 compare -0.0 0.0 -> 0
\r
453 dqcom656 compare -0E1 0.0 -> 0
\r
454 dqcom657 compare -0E2 0.0 -> 0
\r
455 dqcom658 compare 0E1 0.0 -> 0
\r
456 dqcom659 compare 0E2 0.0 -> 0
\r
457 dqcom660 compare -0E1 0 -> 0
\r
458 dqcom661 compare -0E2 0 -> 0
\r
459 dqcom662 compare 0E1 0 -> 0
\r
460 dqcom663 compare 0E2 0 -> 0
\r
461 dqcom664 compare -0E1 -0E1 -> 0
\r
462 dqcom665 compare -0E2 -0E1 -> 0
\r
463 dqcom666 compare 0E1 -0E1 -> 0
\r
464 dqcom667 compare 0E2 -0E1 -> 0
\r
465 dqcom668 compare -0E1 -0E2 -> 0
\r
466 dqcom669 compare -0E2 -0E2 -> 0
\r
467 dqcom670 compare 0E1 -0E2 -> 0
\r
468 dqcom671 compare 0E2 -0E2 -> 0
\r
469 dqcom672 compare -0E1 0E1 -> 0
\r
470 dqcom673 compare -0E2 0E1 -> 0
\r
471 dqcom674 compare 0E1 0E1 -> 0
\r
472 dqcom675 compare 0E2 0E1 -> 0
\r
473 dqcom676 compare -0E1 0E2 -> 0
\r
474 dqcom677 compare -0E2 0E2 -> 0
\r
475 dqcom678 compare 0E1 0E2 -> 0
\r
476 dqcom679 compare 0E2 0E2 -> 0
\r
478 -- trailing zeros; unit-y
\r
479 dqcom680 compare 12 12 -> 0
\r
480 dqcom681 compare 12 12.0 -> 0
\r
481 dqcom682 compare 12 12.00 -> 0
\r
482 dqcom683 compare 12 12.000 -> 0
\r
483 dqcom684 compare 12 12.0000 -> 0
\r
484 dqcom685 compare 12 12.00000 -> 0
\r
485 dqcom686 compare 12 12.000000 -> 0
\r
486 dqcom687 compare 12 12.0000000 -> 0
\r
487 dqcom688 compare 12 12.00000000 -> 0
\r
488 dqcom689 compare 12 12.000000000 -> 0
\r
489 dqcom690 compare 12 12 -> 0
\r
490 dqcom691 compare 12.0 12 -> 0
\r
491 dqcom692 compare 12.00 12 -> 0
\r
492 dqcom693 compare 12.000 12 -> 0
\r
493 dqcom694 compare 12.0000 12 -> 0
\r
494 dqcom695 compare 12.00000 12 -> 0
\r
495 dqcom696 compare 12.000000 12 -> 0
\r
496 dqcom697 compare 12.0000000 12 -> 0
\r
497 dqcom698 compare 12.00000000 12 -> 0
\r
498 dqcom699 compare 12.000000000 12 -> 0
\r
500 -- first, second, & last digit
\r
501 dqcom700 compare 1234567899999999999999999990123456 1234567899999999999999999990123455 -> 1
\r
502 dqcom701 compare 1234567899999999999999999990123456 1234567899999999999999999990123456 -> 0
\r
503 dqcom702 compare 1234567899999999999999999990123456 1234567899999999999999999990123457 -> -1
\r
504 dqcom703 compare 1234567899999999999999999990123456 0234567899999999999999999990123456 -> 1
\r
505 dqcom704 compare 1234567899999999999999999990123456 1234567899999999999999999990123456 -> 0
\r
506 dqcom705 compare 1234567899999999999999999990123456 2234567899999999999999999990123456 -> -1
\r
507 dqcom706 compare 1134567899999999999999999990123456 1034567899999999999999999990123456 -> 1
\r
508 dqcom707 compare 1134567899999999999999999990123456 1134567899999999999999999990123456 -> 0
\r
509 dqcom708 compare 1134567899999999999999999990123456 1234567899999999999999999990123456 -> -1
\r
512 dqcom721 compare 12345678000 1 -> 1
\r
513 dqcom722 compare 1 12345678000 -> -1
\r
514 dqcom723 compare 1234567800 1 -> 1
\r
515 dqcom724 compare 1 1234567800 -> -1
\r
516 dqcom725 compare 1234567890 1 -> 1
\r
517 dqcom726 compare 1 1234567890 -> -1
\r
518 dqcom727 compare 1234567891 1 -> 1
\r
519 dqcom728 compare 1 1234567891 -> -1
\r
520 dqcom729 compare 12345678901 1 -> 1
\r
521 dqcom730 compare 1 12345678901 -> -1
\r
522 dqcom731 compare 1234567896 1 -> 1
\r
523 dqcom732 compare 1 1234567896 -> -1
\r
525 -- residue cases at lower precision
\r
526 dqcom740 compare 1 0.9999999 -> 1
\r
527 dqcom741 compare 1 0.999999 -> 1
\r
528 dqcom742 compare 1 0.99999 -> 1
\r
529 dqcom743 compare 1 1.0000 -> 0
\r
530 dqcom744 compare 1 1.00001 -> -1
\r
531 dqcom745 compare 1 1.000001 -> -1
\r
532 dqcom746 compare 1 1.0000001 -> -1
\r
533 dqcom750 compare 0.9999999 1 -> -1
\r
534 dqcom751 compare 0.999999 1 -> -1
\r
535 dqcom752 compare 0.99999 1 -> -1
\r
536 dqcom753 compare 1.0000 1 -> 0
\r
537 dqcom754 compare 1.00001 1 -> 1
\r
538 dqcom755 compare 1.000001 1 -> 1
\r
539 dqcom756 compare 1.0000001 1 -> 1
\r
542 dqcom780 compare Inf -Inf -> 1
\r
543 dqcom781 compare Inf -1000 -> 1
\r
544 dqcom782 compare Inf -1 -> 1
\r
545 dqcom783 compare Inf -0 -> 1
\r
546 dqcom784 compare Inf 0 -> 1
\r
547 dqcom785 compare Inf 1 -> 1
\r
548 dqcom786 compare Inf 1000 -> 1
\r
549 dqcom787 compare Inf Inf -> 0
\r
550 dqcom788 compare -1000 Inf -> -1
\r
551 dqcom789 compare -Inf Inf -> -1
\r
552 dqcom790 compare -1 Inf -> -1
\r
553 dqcom791 compare -0 Inf -> -1
\r
554 dqcom792 compare 0 Inf -> -1
\r
555 dqcom793 compare 1 Inf -> -1
\r
556 dqcom794 compare 1000 Inf -> -1
\r
557 dqcom795 compare Inf Inf -> 0
\r
559 dqcom800 compare -Inf -Inf -> 0
\r
560 dqcom801 compare -Inf -1000 -> -1
\r
561 dqcom802 compare -Inf -1 -> -1
\r
562 dqcom803 compare -Inf -0 -> -1
\r
563 dqcom804 compare -Inf 0 -> -1
\r
564 dqcom805 compare -Inf 1 -> -1
\r
565 dqcom806 compare -Inf 1000 -> -1
\r
566 dqcom807 compare -Inf Inf -> -1
\r
567 dqcom808 compare -Inf -Inf -> 0
\r
568 dqcom809 compare -1000 -Inf -> 1
\r
569 dqcom810 compare -1 -Inf -> 1
\r
570 dqcom811 compare -0 -Inf -> 1
\r
571 dqcom812 compare 0 -Inf -> 1
\r
572 dqcom813 compare 1 -Inf -> 1
\r
573 dqcom814 compare 1000 -Inf -> 1
\r
574 dqcom815 compare Inf -Inf -> 1
\r
576 dqcom821 compare NaN -Inf -> NaN
\r
577 dqcom822 compare NaN -1000 -> NaN
\r
578 dqcom823 compare NaN -1 -> NaN
\r
579 dqcom824 compare NaN -0 -> NaN
\r
580 dqcom825 compare NaN 0 -> NaN
\r
581 dqcom826 compare NaN 1 -> NaN
\r
582 dqcom827 compare NaN 1000 -> NaN
\r
583 dqcom828 compare NaN Inf -> NaN
\r
584 dqcom829 compare NaN NaN -> NaN
\r
585 dqcom830 compare -Inf NaN -> NaN
\r
586 dqcom831 compare -1000 NaN -> NaN
\r
587 dqcom832 compare -1 NaN -> NaN
\r
588 dqcom833 compare -0 NaN -> NaN
\r
589 dqcom834 compare 0 NaN -> NaN
\r
590 dqcom835 compare 1 NaN -> NaN
\r
591 dqcom836 compare 1000 NaN -> NaN
\r
592 dqcom837 compare Inf NaN -> NaN
\r
593 dqcom838 compare -NaN -NaN -> -NaN
\r
594 dqcom839 compare +NaN -NaN -> NaN
\r
595 dqcom840 compare -NaN +NaN -> -NaN
\r
597 dqcom841 compare sNaN -Inf -> NaN Invalid_operation
\r
598 dqcom842 compare sNaN -1000 -> NaN Invalid_operation
\r
599 dqcom843 compare sNaN -1 -> NaN Invalid_operation
\r
600 dqcom844 compare sNaN -0 -> NaN Invalid_operation
\r
601 dqcom845 compare sNaN 0 -> NaN Invalid_operation
\r
602 dqcom846 compare sNaN 1 -> NaN Invalid_operation
\r
603 dqcom847 compare sNaN 1000 -> NaN Invalid_operation
\r
604 dqcom848 compare sNaN NaN -> NaN Invalid_operation
\r
605 dqcom849 compare sNaN sNaN -> NaN Invalid_operation
\r
606 dqcom850 compare NaN sNaN -> NaN Invalid_operation
\r
607 dqcom851 compare -Inf sNaN -> NaN Invalid_operation
\r
608 dqcom852 compare -1000 sNaN -> NaN Invalid_operation
\r
609 dqcom853 compare -1 sNaN -> NaN Invalid_operation
\r
610 dqcom854 compare -0 sNaN -> NaN Invalid_operation
\r
611 dqcom855 compare 0 sNaN -> NaN Invalid_operation
\r
612 dqcom856 compare 1 sNaN -> NaN Invalid_operation
\r
613 dqcom857 compare 1000 sNaN -> NaN Invalid_operation
\r
614 dqcom858 compare Inf sNaN -> NaN Invalid_operation
\r
615 dqcom859 compare NaN sNaN -> NaN Invalid_operation
\r
617 -- propagating NaNs
\r
618 dqcom860 compare NaN9 -Inf -> NaN9
\r
619 dqcom861 compare NaN8 999 -> NaN8
\r
620 dqcom862 compare NaN77 Inf -> NaN77
\r
621 dqcom863 compare -NaN67 NaN5 -> -NaN67
\r
622 dqcom864 compare -Inf -NaN4 -> -NaN4
\r
623 dqcom865 compare -999 -NaN33 -> -NaN33
\r
624 dqcom866 compare Inf NaN2 -> NaN2
\r
625 dqcom867 compare -NaN41 -NaN42 -> -NaN41
\r
626 dqcom868 compare +NaN41 -NaN42 -> NaN41
\r
627 dqcom869 compare -NaN41 +NaN42 -> -NaN41
\r
628 dqcom870 compare +NaN41 +NaN42 -> NaN41
\r
630 dqcom871 compare -sNaN99 -Inf -> -NaN99 Invalid_operation
\r
631 dqcom872 compare sNaN98 -11 -> NaN98 Invalid_operation
\r
632 dqcom873 compare sNaN97 NaN -> NaN97 Invalid_operation
\r
633 dqcom874 compare sNaN16 sNaN94 -> NaN16 Invalid_operation
\r
634 dqcom875 compare NaN85 sNaN83 -> NaN83 Invalid_operation
\r
635 dqcom876 compare -Inf sNaN92 -> NaN92 Invalid_operation
\r
636 dqcom877 compare 088 sNaN81 -> NaN81 Invalid_operation
\r
637 dqcom878 compare Inf sNaN90 -> NaN90 Invalid_operation
\r
638 dqcom879 compare NaN -sNaN89 -> -NaN89 Invalid_operation
\r
641 dqcom880 compare +1.23456789012345E-0 9E+6144 -> -1
\r
642 dqcom881 compare 9E+6144 +1.23456789012345E-0 -> 1
\r
643 dqcom882 compare +0.100 9E-6143 -> 1
\r
644 dqcom883 compare 9E-6143 +0.100 -> -1
\r
645 dqcom885 compare -1.23456789012345E-0 9E+6144 -> -1
\r
646 dqcom886 compare 9E+6144 -1.23456789012345E-0 -> 1
\r
647 dqcom887 compare -0.100 9E-6143 -> -1
\r
648 dqcom888 compare 9E-6143 -0.100 -> 1
\r
651 dqcom901 compare 1e+77 1e+11 -> 1
\r
652 dqcom902 compare 1e+77 -1e+11 -> 1
\r
653 dqcom903 compare -1e+77 1e+11 -> -1
\r
654 dqcom904 compare -1e+77 -1e+11 -> -1
\r
655 dqcom905 compare 1e-77 1e-11 -> -1
\r
656 dqcom906 compare 1e-77 -1e-11 -> 1
\r
657 dqcom907 compare -1e-77 1e-11 -> -1
\r
658 dqcom908 compare -1e-77 -1e-11 -> 1
\r
660 -- full alignment range, both ways
\r
661 dqcomp1001 compare 1 1.000000000000000000000000000000000 -> 0
\r
662 dqcomp1002 compare 1 1.00000000000000000000000000000000 -> 0
\r
663 dqcomp1003 compare 1 1.0000000000000000000000000000000 -> 0
\r
664 dqcomp1004 compare 1 1.000000000000000000000000000000 -> 0
\r
665 dqcomp1005 compare 1 1.00000000000000000000000000000 -> 0
\r
666 dqcomp1006 compare 1 1.0000000000000000000000000000 -> 0
\r
667 dqcomp1007 compare 1 1.000000000000000000000000000 -> 0
\r
668 dqcomp1008 compare 1 1.00000000000000000000000000 -> 0
\r
669 dqcomp1009 compare 1 1.0000000000000000000000000 -> 0
\r
670 dqcomp1010 compare 1 1.000000000000000000000000 -> 0
\r
671 dqcomp1011 compare 1 1.00000000000000000000000 -> 0
\r
672 dqcomp1012 compare 1 1.0000000000000000000000 -> 0
\r
673 dqcomp1013 compare 1 1.000000000000000000000 -> 0
\r
674 dqcomp1014 compare 1 1.00000000000000000000 -> 0
\r
675 dqcomp1015 compare 1 1.0000000000000000000 -> 0
\r
676 dqcomp1016 compare 1 1.000000000000000000 -> 0
\r
677 dqcomp1017 compare 1 1.00000000000000000 -> 0
\r
678 dqcomp1018 compare 1 1.0000000000000000 -> 0
\r
679 dqcomp1019 compare 1 1.000000000000000 -> 0
\r
680 dqcomp1020 compare 1 1.00000000000000 -> 0
\r
681 dqcomp1021 compare 1 1.0000000000000 -> 0
\r
682 dqcomp1022 compare 1 1.000000000000 -> 0
\r
683 dqcomp1023 compare 1 1.00000000000 -> 0
\r
684 dqcomp1024 compare 1 1.0000000000 -> 0
\r
685 dqcomp1025 compare 1 1.000000000 -> 0
\r
686 dqcomp1026 compare 1 1.00000000 -> 0
\r
687 dqcomp1027 compare 1 1.0000000 -> 0
\r
688 dqcomp1028 compare 1 1.000000 -> 0
\r
689 dqcomp1029 compare 1 1.00000 -> 0
\r
690 dqcomp1030 compare 1 1.0000 -> 0
\r
691 dqcomp1031 compare 1 1.000 -> 0
\r
692 dqcomp1032 compare 1 1.00 -> 0
\r
693 dqcomp1033 compare 1 1.0 -> 0
\r
695 dqcomp1041 compare 1.000000000000000000000000000000000 1 -> 0
\r
696 dqcomp1042 compare 1.00000000000000000000000000000000 1 -> 0
\r
697 dqcomp1043 compare 1.0000000000000000000000000000000 1 -> 0
\r
698 dqcomp1044 compare 1.000000000000000000000000000000 1 -> 0
\r
699 dqcomp1045 compare 1.00000000000000000000000000000 1 -> 0
\r
700 dqcomp1046 compare 1.0000000000000000000000000000 1 -> 0
\r
701 dqcomp1047 compare 1.000000000000000000000000000 1 -> 0
\r
702 dqcomp1048 compare 1.00000000000000000000000000 1 -> 0
\r
703 dqcomp1049 compare 1.0000000000000000000000000 1 -> 0
\r
704 dqcomp1050 compare 1.000000000000000000000000 1 -> 0
\r
705 dqcomp1051 compare 1.00000000000000000000000 1 -> 0
\r
706 dqcomp1052 compare 1.0000000000000000000000 1 -> 0
\r
707 dqcomp1053 compare 1.000000000000000000000 1 -> 0
\r
708 dqcomp1054 compare 1.00000000000000000000 1 -> 0
\r
709 dqcomp1055 compare 1.0000000000000000000 1 -> 0
\r
710 dqcomp1056 compare 1.000000000000000000 1 -> 0
\r
711 dqcomp1057 compare 1.00000000000000000 1 -> 0
\r
712 dqcomp1058 compare 1.0000000000000000 1 -> 0
\r
713 dqcomp1059 compare 1.000000000000000 1 -> 0
\r
714 dqcomp1060 compare 1.00000000000000 1 -> 0
\r
715 dqcomp1061 compare 1.0000000000000 1 -> 0
\r
716 dqcomp1062 compare 1.000000000000 1 -> 0
\r
717 dqcomp1063 compare 1.00000000000 1 -> 0
\r
718 dqcomp1064 compare 1.0000000000 1 -> 0
\r
719 dqcomp1065 compare 1.000000000 1 -> 0
\r
720 dqcomp1066 compare 1.00000000 1 -> 0
\r
721 dqcomp1067 compare 1.0000000 1 -> 0
\r
722 dqcomp1068 compare 1.000000 1 -> 0
\r
723 dqcomp1069 compare 1.00000 1 -> 0
\r
724 dqcomp1070 compare 1.0000 1 -> 0
\r
725 dqcomp1071 compare 1.000 1 -> 0
\r
726 dqcomp1072 compare 1.00 1 -> 0
\r
727 dqcomp1073 compare 1.0 1 -> 0
\r
729 -- check MSD always detected non-zero
\r
730 dqcomp1080 compare 0 0.000000000000000000000000000000000 -> 0
\r
731 dqcomp1081 compare 0 1.000000000000000000000000000000000 -> -1
\r
732 dqcomp1082 compare 0 2.000000000000000000000000000000000 -> -1
\r
733 dqcomp1083 compare 0 3.000000000000000000000000000000000 -> -1
\r
734 dqcomp1084 compare 0 4.000000000000000000000000000000000 -> -1
\r
735 dqcomp1085 compare 0 5.000000000000000000000000000000000 -> -1
\r
736 dqcomp1086 compare 0 6.000000000000000000000000000000000 -> -1
\r
737 dqcomp1087 compare 0 7.000000000000000000000000000000000 -> -1
\r
738 dqcomp1088 compare 0 8.000000000000000000000000000000000 -> -1
\r
739 dqcomp1089 compare 0 9.000000000000000000000000000000000 -> -1
\r
740 dqcomp1090 compare 0.000000000000000000000000000000000 0 -> 0
\r
741 dqcomp1091 compare 1.000000000000000000000000000000000 0 -> 1
\r
742 dqcomp1092 compare 2.000000000000000000000000000000000 0 -> 1
\r
743 dqcomp1093 compare 3.000000000000000000000000000000000 0 -> 1
\r
744 dqcomp1094 compare 4.000000000000000000000000000000000 0 -> 1
\r
745 dqcomp1095 compare 5.000000000000000000000000000000000 0 -> 1
\r
746 dqcomp1096 compare 6.000000000000000000000000000000000 0 -> 1
\r
747 dqcomp1097 compare 7.000000000000000000000000000000000 0 -> 1
\r
748 dqcomp1098 compare 8.000000000000000000000000000000000 0 -> 1
\r
749 dqcomp1099 compare 9.000000000000000000000000000000000 0 -> 1
\r
752 dqcom990 compare 10 # -> NaN Invalid_operation
\r
753 dqcom991 compare # 10 -> NaN Invalid_operation
\r