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