summaryrefslogtreecommitdiffstats
path: root/Lib/test/decimaltestdata/ddCompare.decTest
blob: 5f6fba52360e1e25a0bbad74c0b3658c206b7539 (plain)
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
------------------------------------------------------------------------
-- ddCompare.decTest -- decDouble comparison that allows quiet NaNs   --
-- Copyright (c) IBM Corporation, 1981, 2007.  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.57

-- 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 decDoubles.
precision:   16
maxExponent: 384
minExponent: -383
extended:    1
clamp:       1
rounding:    half_even

-- sanity checks
ddcom001 compare  -2  -2  -> 0
ddcom002 compare  -2  -1  -> -1
ddcom003 compare  -2   0  -> -1
ddcom004 compare  -2   1  -> -1
ddcom005 compare  -2   2  -> -1
ddcom006 compare  -1  -2  -> 1
ddcom007 compare  -1  -1  -> 0
ddcom008 compare  -1   0  -> -1
ddcom009 compare  -1   1  -> -1
ddcom010 compare  -1   2  -> -1
ddcom011 compare   0  -2  -> 1
ddcom012 compare   0  -1  -> 1
ddcom013 compare   0   0  -> 0
ddcom014 compare   0   1  -> -1
ddcom015 compare   0   2  -> -1
ddcom016 compare   1  -2  -> 1
ddcom017 compare   1  -1  -> 1
ddcom018 compare   1   0  -> 1
ddcom019 compare   1   1  -> 0
ddcom020 compare   1   2  -> -1
ddcom021 compare   2  -2  -> 1
ddcom022 compare   2  -1  -> 1
ddcom023 compare   2   0  -> 1
ddcom025 compare   2   1  -> 1
ddcom026 compare   2   2  -> 0

ddcom031 compare  -20  -20  -> 0
ddcom032 compare  -20  -10  -> -1
ddcom033 compare  -20   00  -> -1
ddcom034 compare  -20   10  -> -1
ddcom035 compare  -20   20  -> -1
ddcom036 compare  -10  -20  -> 1
ddcom037 compare  -10  -10  -> 0
ddcom038 compare  -10   00  -> -1
ddcom039 compare  -10   10  -> -1
ddcom040 compare  -10   20  -> -1
ddcom041 compare   00  -20  -> 1
ddcom042 compare   00  -10  -> 1
ddcom043 compare   00   00  -> 0
ddcom044 compare   00   10  -> -1
ddcom045 compare   00   20  -> -1
ddcom046 compare   10  -20  -> 1
ddcom047 compare   10  -10  -> 1
ddcom048 compare   10   00  -> 1
ddcom049 compare   10   10  -> 0
ddcom050 compare   10   20  -> -1
ddcom051 compare   20  -20  -> 1
ddcom052 compare   20  -10  -> 1
ddcom053 compare   20   00  -> 1
ddcom055 compare   20   10  -> 1
ddcom056 compare   20   20  -> 0

ddcom061 compare  -2.0  -2.0  -> 0
ddcom062 compare  -2.0  -1.0  -> -1
ddcom063 compare  -2.0   0.0  -> -1
ddcom064 compare  -2.0   1.0  -> -1
ddcom065 compare  -2.0   2.0  -> -1
ddcom066 compare  -1.0  -2.0  -> 1
ddcom067 compare  -1.0  -1.0  -> 0
ddcom068 compare  -1.0   0.0  -> -1
ddcom069 compare  -1.0   1.0  -> -1
ddcom070 compare  -1.0   2.0  -> -1
ddcom071 compare   0.0  -2.0  -> 1
ddcom072 compare   0.0  -1.0  -> 1
ddcom073 compare   0.0   0.0  -> 0
ddcom074 compare   0.0   1.0  -> -1
ddcom075 compare   0.0   2.0  -> -1
ddcom076 compare   1.0  -2.0  -> 1
ddcom077 compare   1.0  -1.0  -> 1
ddcom078 compare   1.0   0.0  -> 1
ddcom079 compare   1.0   1.0  -> 0
ddcom080 compare   1.0   2.0  -> -1
ddcom081 compare   2.0  -2.0  -> 1
ddcom082 compare   2.0  -1.0  -> 1
ddcom083 compare   2.0   0.0  -> 1
ddcom085 compare   2.0   1.0  -> 1
ddcom086 compare   2.0   2.0  -> 0
ddcom087 compare   1.0   0.1  -> 1
ddcom088 compare   0.1   1.0  -> -1

-- now some cases which might overflow if subtract were used
ddcom095 compare  9.999999999999999E+384 9.999999999999999E+384  -> 0
ddcom096 compare -9.999999999999999E+384 9.999999999999999E+384  -> -1
ddcom097 compare  9.999999999999999E+384 -9.999999999999999E+384 -> 1
ddcom098 compare -9.999999999999999E+384 -9.999999999999999E+384 -> 0

-- some differing length/exponent cases
ddcom100 compare   7.0    7.0    -> 0
ddcom101 compare   7.0    7      -> 0
ddcom102 compare   7      7.0    -> 0
ddcom103 compare   7E+0   7.0    -> 0
ddcom104 compare   70E-1  7.0    -> 0
ddcom105 compare   0.7E+1 7      -> 0
ddcom106 compare   70E-1  7      -> 0
ddcom107 compare   7.0    7E+0   -> 0
ddcom108 compare   7.0    70E-1  -> 0
ddcom109 compare   7      0.7E+1 -> 0
ddcom110 compare   7      70E-1  -> 0

ddcom120 compare   8.0    7.0    -> 1
ddcom121 compare   8.0    7      -> 1
ddcom122 compare   8      7.0    -> 1
ddcom123 compare   8E+0   7.0    -> 1
ddcom124 compare   80E-1  7.0    -> 1
ddcom125 compare   0.8E+1 7      -> 1
ddcom126 compare   80E-1  7      -> 1
ddcom127 compare   8.0    7E+0   -> 1
ddcom128 compare   8.0    70E-1  -> 1
ddcom129 compare   8      0.7E+1  -> 1
ddcom130 compare   8      70E-1  -> 1

ddcom140 compare   8.0    9.0    -> -1
ddcom141 compare   8.0    9      -> -1
ddcom142 compare   8      9.0    -> -1
ddcom143 compare   8E+0   9.0    -> -1
ddcom144 compare   80E-1  9.0    -> -1
ddcom145 compare   0.8E+1 9      -> -1
ddcom146 compare   80E-1  9      -> -1
ddcom147 compare   8.0    9E+0   -> -1
ddcom148 compare   8.0    90E-1  -> -1
ddcom149 compare   8      0.9E+1 -> -1
ddcom150 compare   8      90E-1  -> -1

-- and again, with sign changes -+ ..
ddcom200 compare  -7.0    7.0    -> -1
ddcom201 compare  -7.0    7      -> -1
ddcom202 compare  -7      7.0    -> -1
ddcom203 compare  -7E+0   7.0    -> -1
ddcom204 compare  -70E-1  7.0    -> -1
ddcom205 compare  -0.7E+1 7      -> -1
ddcom206 compare  -70E-1  7      -> -1
ddcom207 compare  -7.0    7E+0   -> -1
ddcom208 compare  -7.0    70E-1  -> -1
ddcom209 compare  -7      0.7E+1 -> -1
ddcom210 compare  -7      70E-1  -> -1

ddcom220 compare  -8.0    7.0    -> -1
ddcom221 compare  -8.0    7      -> -1
ddcom222 compare  -8      7.0    -> -1
ddcom223 compare  -8E+0   7.0    -> -1
ddcom224 compare  -80E-1  7.0    -> -1
ddcom225 compare  -0.8E+1 7      -> -1
ddcom226 compare  -80E-1  7      -> -1
ddcom227 compare  -8.0    7E+0   -> -1
ddcom228 compare  -8.0    70E-1  -> -1
ddcom229 compare  -8      0.7E+1 -> -1
ddcom230 compare  -8      70E-1  -> -1

ddcom240 compare  -8.0    9.0    -> -1
ddcom241 compare  -8.0    9      -> -1
ddcom242 compare  -8      9.0    -> -1
ddcom243 compare  -8E+0   9.0    -> -1
ddcom244 compare  -80E-1  9.0    -> -1
ddcom245 compare  -0.8E+1 9      -> -1
ddcom246 compare  -80E-1  9      -> -1
ddcom247 compare  -8.0    9E+0   -> -1
ddcom248 compare  -8.0    90E-1  -> -1
ddcom249 compare  -8      0.9E+1 -> -1
ddcom250 compare  -8      90E-1  -> -1

-- and again, with sign changes +- ..
ddcom300 compare   7.0    -7.0    -> 1
ddcom301 compare   7.0    -7      -> 1
ddcom302 compare   7      -7.0    -> 1
ddcom303 compare   7E+0   -7.0    -> 1
ddcom304 compare   70E-1  -7.0    -> 1
ddcom305 compare   .7E+1  -7      -> 1
ddcom306 compare   70E-1  -7      -> 1
ddcom307 compare   7.0    -7E+0   -> 1
ddcom308 compare   7.0    -70E-1  -> 1
ddcom309 compare   7      -.7E+1  -> 1
ddcom310 compare   7      -70E-1  -> 1

ddcom320 compare   8.0    -7.0    -> 1
ddcom321 compare   8.0    -7      -> 1
ddcom322 compare   8      -7.0    -> 1
ddcom323 compare   8E+0   -7.0    -> 1
ddcom324 compare   80E-1  -7.0    -> 1
ddcom325 compare   .8E+1  -7      -> 1
ddcom326 compare   80E-1  -7      -> 1
ddcom327 compare   8.0    -7E+0   -> 1
ddcom328 compare   8.0    -70E-1  -> 1
ddcom329 compare   8      -.7E+1  -> 1
ddcom330 compare   8      -70E-1  -> 1

ddcom340 compare   8.0    -9.0    -> 1
ddcom341 compare   8.0    -9      -> 1
ddcom342 compare   8      -9.0    -> 1
ddcom343 compare   8E+0   -9.0    -> 1
ddcom344 compare   80E-1  -9.0    -> 1
ddcom345 compare   .8E+1  -9      -> 1
ddcom346 compare   80E-1  -9      -> 1
ddcom347 compare   8.0    -9E+0   -> 1
ddcom348 compare   8.0    -90E-1  -> 1
ddcom349 compare   8      -.9E+1  -> 1
ddcom350 compare   8      -90E-1  -> 1

-- and again, with sign changes -- ..
ddcom400 compare   -7.0    -7.0    -> 0
ddcom401 compare   -7.0    -7      -> 0
ddcom402 compare   -7      -7.0    -> 0
ddcom403 compare   -7E+0   -7.0    -> 0
ddcom404 compare   -70E-1  -7.0    -> 0
ddcom405 compare   -.7E+1  -7      -> 0
ddcom406 compare   -70E-1  -7      -> 0
ddcom407 compare   -7.0    -7E+0   -> 0
ddcom408 compare   -7.0    -70E-1  -> 0
ddcom409 compare   -7      -.7E+1  -> 0
ddcom410 compare   -7      -70E-1  -> 0

ddcom420 compare   -8.0    -7.0    -> -1
ddcom421 compare   -8.0    -7      -> -1
ddcom422 compare   -8      -7.0    -> -1
ddcom423 compare   -8E+0   -7.0    -> -1
ddcom424 compare   -80E-1  -7.0    -> -1
ddcom425 compare   -.8E+1  -7      -> -1
ddcom426 compare   -80E-1  -7      -> -1
ddcom427 compare   -8.0    -7E+0   -> -1
ddcom428 compare   -8.0    -70E-1  -> -1
ddcom429 compare   -8      -.7E+1  -> -1
ddcom430 compare   -8      -70E-1  -> -1

ddcom440 compare   -8.0    -9.0    -> 1
ddcom441 compare   -8.0    -9      -> 1
ddcom442 compare   -8      -9.0    -> 1
ddcom443 compare   -8E+0   -9.0    -> 1
ddcom444 compare   -80E-1  -9.0    -> 1
ddcom445 compare   -.8E+1  -9      -> 1
ddcom446 compare   -80E-1  -9      -> 1
ddcom447 compare   -8.0    -9E+0   -> 1
ddcom448 compare   -8.0    -90E-1  -> 1
ddcom449 compare   -8      -.9E+1  -> 1
ddcom450 compare   -8      -90E-1  -> 1

-- misalignment traps for little-endian
ddcom451 compare      1.0       0.1  -> 1
ddcom452 compare      0.1       1.0  -> -1
ddcom453 compare     10.0       0.1  -> 1
ddcom454 compare      0.1      10.0  -> -1
ddcom455 compare      100       1.0  -> 1
ddcom456 compare      1.0       100  -> -1
ddcom457 compare     1000      10.0  -> 1
ddcom458 compare     10.0      1000  -> -1
ddcom459 compare    10000     100.0  -> 1
ddcom460 compare    100.0     10000  -> -1
ddcom461 compare   100000    1000.0  -> 1
ddcom462 compare   1000.0    100000  -> -1
ddcom463 compare  1000000   10000.0  -> 1
ddcom464 compare  10000.0   1000000  -> -1

-- testcases that subtract to lots of zeros at boundaries [pgr]
ddcom473 compare 123.4560000000000E-89 123.456E-89 -> 0
ddcom474 compare 123.456000000000E+89 123.456E+89 -> 0
ddcom475 compare 123.45600000000E-89 123.456E-89 -> 0
ddcom476 compare 123.4560000000E+89 123.456E+89 -> 0
ddcom477 compare 123.456000000E-89 123.456E-89 -> 0
ddcom478 compare 123.45600000E+89 123.456E+89 -> 0
ddcom479 compare 123.4560000E-89 123.456E-89 -> 0
ddcom480 compare 123.456000E+89 123.456E+89 -> 0
ddcom481 compare 123.45600E-89 123.456E-89 -> 0
ddcom482 compare 123.4560E+89 123.456E+89 -> 0
ddcom483 compare 123.456E-89 123.456E-89 -> 0
ddcom487 compare 123.456E+89 123.4560000000000E+89 -> 0
ddcom488 compare 123.456E-89 123.456000000000E-89 -> 0
ddcom489 compare 123.456E+89 123.45600000000E+89 -> 0
ddcom490 compare 123.456E-89 123.4560000000E-89 -> 0
ddcom491 compare 123.456E+89 123.456000000E+89 -> 0
ddcom492 compare 123.456E-89 123.45600000E-89 -> 0
ddcom493 compare 123.456E+89 123.4560000E+89 -> 0
ddcom494 compare 123.456E-89 123.456000E-89 -> 0
ddcom495 compare 123.456E+89 123.45600E+89 -> 0
ddcom496 compare 123.456E-89 123.4560E-89 -> 0
ddcom497 compare 123.456E+89 123.456E+89 -> 0

-- wide-ranging, around precision; signs equal
ddcom500 compare    1     1E-15    -> 1
ddcom501 compare    1     1E-14    -> 1
ddcom502 compare    1     1E-13    -> 1
ddcom503 compare    1     1E-12    -> 1
ddcom504 compare    1     1E-11    -> 1
ddcom505 compare    1     1E-10    -> 1
ddcom506 compare    1     1E-9     -> 1
ddcom507 compare    1     1E-8     -> 1
ddcom508 compare    1     1E-7     -> 1
ddcom509 compare    1     1E-6     -> 1
ddcom510 compare    1     1E-5     -> 1
ddcom511 compare    1     1E-4     -> 1
ddcom512 compare    1     1E-3     -> 1
ddcom513 compare    1     1E-2     -> 1
ddcom514 compare    1     1E-1     -> 1
ddcom515 compare    1     1E-0     -> 0
ddcom516 compare    1     1E+1     -> -1
ddcom517 compare    1     1E+2     -> -1
ddcom518 compare    1     1E+3     -> -1
ddcom519 compare    1     1E+4     -> -1
ddcom521 compare    1     1E+5     -> -1
ddcom522 compare    1     1E+6     -> -1
ddcom523 compare    1     1E+7     -> -1
ddcom524 compare    1     1E+8     -> -1
ddcom525 compare    1     1E+9     -> -1
ddcom526 compare    1     1E+10    -> -1
ddcom527 compare    1     1E+11    -> -1
ddcom528 compare    1     1E+12    -> -1
ddcom529 compare    1     1E+13    -> -1
ddcom530 compare    1     1E+14    -> -1
ddcom531 compare    1     1E+15    -> -1
-- LR swap
ddcom540 compare    1E-15  1       -> -1
ddcom541 compare    1E-14  1       -> -1
ddcom542 compare    1E-13  1       -> -1
ddcom543 compare    1E-12  1       -> -1
ddcom544 compare    1E-11  1       -> -1
ddcom545 compare    1E-10  1       -> -1
ddcom546 compare    1E-9   1       -> -1
ddcom547 compare    1E-8   1       -> -1
ddcom548 compare    1E-7   1       -> -1
ddcom549 compare    1E-6   1       -> -1
ddcom550 compare    1E-5   1       -> -1
ddcom551 compare    1E-4   1       -> -1
ddcom552 compare    1E-3   1       -> -1
ddcom553 compare    1E-2   1       -> -1
ddcom554 compare    1E-1   1       -> -1
ddcom555 compare    1E-0   1       ->  0
ddcom556 compare    1E+1   1       ->  1
ddcom557 compare    1E+2   1       ->  1
ddcom558 compare    1E+3   1       ->  1
ddcom559 compare    1E+4   1       ->  1
ddcom561 compare    1E+5   1       ->  1
ddcom562 compare    1E+6   1       ->  1
ddcom563 compare    1E+7   1       ->  1
ddcom564 compare    1E+8   1       ->  1
ddcom565 compare    1E+9   1       ->  1
ddcom566 compare    1E+10  1       ->  1
ddcom567 compare    1E+11  1       ->  1
ddcom568 compare    1E+12  1       ->  1
ddcom569 compare    1E+13  1       ->  1
ddcom570 compare    1E+14  1       ->  1
ddcom571 compare    1E+15  1       ->  1
-- similar with a useful coefficient, one side only
ddcom580 compare  0.000000987654321     1E-15    -> 1
ddcom581 compare  0.000000987654321     1E-14    -> 1
ddcom582 compare  0.000000987654321     1E-13    -> 1
ddcom583 compare  0.000000987654321     1E-12    -> 1
ddcom584 compare  0.000000987654321     1E-11    -> 1
ddcom585 compare  0.000000987654321     1E-10    -> 1
ddcom586 compare  0.000000987654321     1E-9     -> 1
ddcom587 compare  0.000000987654321     1E-8     -> 1
ddcom588 compare  0.000000987654321     1E-7     -> 1
ddcom589 compare  0.000000987654321     1E-6     -> -1
ddcom590 compare  0.000000987654321     1E-5     -> -1
ddcom591 compare  0.000000987654321     1E-4     -> -1
ddcom592 compare  0.000000987654321     1E-3     -> -1
ddcom593 compare  0.000000987654321     1E-2     -> -1
ddcom594 compare  0.000000987654321     1E-1     -> -1
ddcom595 compare  0.000000987654321     1E-0     -> -1
ddcom596 compare  0.000000987654321     1E+1     -> -1
ddcom597 compare  0.000000987654321     1E+2     -> -1
ddcom598 compare  0.000000987654321     1E+3     -> -1
ddcom599 compare  0.000000987654321     1E+4     -> -1

-- check some unit-y traps
ddcom600 compare   12            12.2345 -> -1
ddcom601 compare   12.0          12.2345 -> -1
ddcom602 compare   12.00         12.2345 -> -1
ddcom603 compare   12.000        12.2345 -> -1
ddcom604 compare   12.0000       12.2345 -> -1
ddcom605 compare   12.00000      12.2345 -> -1
ddcom606 compare   12.000000     12.2345 -> -1
ddcom607 compare   12.0000000    12.2345 -> -1
ddcom608 compare   12.00000000   12.2345 -> -1
ddcom609 compare   12.000000000  12.2345 -> -1
ddcom610 compare   12.1234 12            ->  1
ddcom611 compare   12.1234 12.0          ->  1
ddcom612 compare   12.1234 12.00         ->  1
ddcom613 compare   12.1234 12.000        ->  1
ddcom614 compare   12.1234 12.0000       ->  1
ddcom615 compare   12.1234 12.00000      ->  1
ddcom616 compare   12.1234 12.000000     ->  1
ddcom617 compare   12.1234 12.0000000    ->  1
ddcom618 compare   12.1234 12.00000000   ->  1
ddcom619 compare   12.1234 12.000000000  ->  1
ddcom620 compare  -12           -12.2345 ->  1
ddcom621 compare  -12.0         -12.2345 ->  1
ddcom622 compare  -12.00        -12.2345 ->  1
ddcom623 compare  -12.000       -12.2345 ->  1
ddcom624 compare  -12.0000      -12.2345 ->  1
ddcom625 compare  -12.00000     -12.2345 ->  1
ddcom626 compare  -12.000000    -12.2345 ->  1
ddcom627 compare  -12.0000000   -12.2345 ->  1
ddcom628 compare  -12.00000000  -12.2345 ->  1
ddcom629 compare  -12.000000000 -12.2345 ->  1
ddcom630 compare  -12.1234 -12           -> -1
ddcom631 compare  -12.1234 -12.0         -> -1
ddcom632 compare  -12.1234 -12.00        -> -1
ddcom633 compare  -12.1234 -12.000       -> -1
ddcom634 compare  -12.1234 -12.0000      -> -1
ddcom635 compare  -12.1234 -12.00000     -> -1
ddcom636 compare  -12.1234 -12.000000    -> -1
ddcom637 compare  -12.1234 -12.0000000   -> -1
ddcom638 compare  -12.1234 -12.00000000  -> -1
ddcom639 compare  -12.1234 -12.000000000 -> -1

-- extended zeros
ddcom640 compare   0     0   -> 0
ddcom641 compare   0    -0   -> 0
ddcom642 compare   0    -0.0 -> 0
ddcom643 compare   0     0.0 -> 0
ddcom644 compare  -0     0   -> 0
ddcom645 compare  -0    -0   -> 0
ddcom646 compare  -0    -0.0 -> 0
ddcom647 compare  -0     0.0 -> 0
ddcom648 compare   0.0   0   -> 0
ddcom649 compare   0.0  -0   -> 0
ddcom650 compare   0.0  -0.0 -> 0
ddcom651 compare   0.0   0.0 -> 0
ddcom652 compare  -0.0   0   -> 0
ddcom653 compare  -0.0  -0   -> 0
ddcom654 compare  -0.0  -0.0 -> 0
ddcom655 compare  -0.0   0.0 -> 0

ddcom656 compare  -0E1   0.0 -> 0
ddcom657 compare  -0E2   0.0 -> 0
ddcom658 compare   0E1   0.0 -> 0
ddcom659 compare   0E2   0.0 -> 0
ddcom660 compare  -0E1   0   -> 0
ddcom661 compare  -0E2   0   -> 0
ddcom662 compare   0E1   0   -> 0
ddcom663 compare   0E2   0   -> 0
ddcom664 compare  -0E1  -0E1 -> 0
ddcom665 compare  -0E2  -0E1 -> 0
ddcom666 compare   0E1  -0E1 -> 0
ddcom667 compare   0E2  -0E1 -> 0
ddcom668 compare  -0E1  -0E2 -> 0
ddcom669 compare  -0E2  -0E2 -> 0
ddcom670 compare   0E1  -0E2 -> 0
ddcom671 compare   0E2  -0E2 -> 0
ddcom672 compare  -0E1   0E1 -> 0
ddcom673 compare  -0E2   0E1 -> 0
ddcom674 compare   0E1   0E1 -> 0
ddcom675 compare   0E2   0E1 -> 0
ddcom676 compare  -0E1   0E2 -> 0
ddcom677 compare  -0E2   0E2 -> 0
ddcom678 compare   0E1   0E2 -> 0
ddcom679 compare   0E2   0E2 -> 0

-- trailing zeros; unit-y
ddcom680 compare   12    12           -> 0
ddcom681 compare   12    12.0         -> 0
ddcom682 compare   12    12.00        -> 0
ddcom683 compare   12    12.000       -> 0
ddcom684 compare   12    12.0000      -> 0
ddcom685 compare   12    12.00000     -> 0
ddcom686 compare   12    12.000000    -> 0
ddcom687 compare   12    12.0000000   -> 0
ddcom688 compare   12    12.00000000  -> 0
ddcom689 compare   12    12.000000000 -> 0
ddcom690 compare   12              12 -> 0
ddcom691 compare   12.0            12 -> 0
ddcom692 compare   12.00           12 -> 0
ddcom693 compare   12.000          12 -> 0
ddcom694 compare   12.0000         12 -> 0
ddcom695 compare   12.00000        12 -> 0
ddcom696 compare   12.000000       12 -> 0
ddcom697 compare   12.0000000      12 -> 0
ddcom698 compare   12.00000000     12 -> 0
ddcom699 compare   12.000000000    12 -> 0

-- first, second, & last digit
ddcom700 compare   1234567890123456 1234567890123455 -> 1
ddcom701 compare   1234567890123456 1234567890123456 -> 0
ddcom702 compare   1234567890123456 1234567890123457 -> -1
ddcom703 compare   1234567890123456 0234567890123456 -> 1
ddcom704 compare   1234567890123456 1234567890123456 -> 0
ddcom705 compare   1234567890123456 2234567890123456 -> -1
ddcom706 compare   1134567890123456 1034567890123456 -> 1
ddcom707 compare   1134567890123456 1134567890123456 -> 0
ddcom708 compare   1134567890123456 1234567890123456 -> -1

-- miscellaneous
ddcom721 compare 12345678000 1 -> 1
ddcom722 compare 1 12345678000 -> -1
ddcom723 compare 1234567800  1 -> 1
ddcom724 compare 1 1234567800  -> -1
ddcom725 compare 1234567890  1 -> 1
ddcom726 compare 1 1234567890  -> -1
ddcom727 compare 1234567891  1 -> 1
ddcom728 compare 1 1234567891  -> -1
ddcom729 compare 12345678901 1 -> 1
ddcom730 compare 1 12345678901 -> -1
ddcom731 compare 1234567896  1 -> 1
ddcom732 compare 1 1234567896  -> -1

-- residue cases at lower precision
ddcom740 compare  1  0.9999999  -> 1
ddcom741 compare  1  0.999999   -> 1
ddcom742 compare  1  0.99999    -> 1
ddcom743 compare  1  1.0000     -> 0
ddcom744 compare  1  1.00001    -> -1
ddcom745 compare  1  1.000001   -> -1
ddcom746 compare  1  1.0000001  -> -1
ddcom750 compare  0.9999999  1  -> -1
ddcom751 compare  0.999999   1  -> -1
ddcom752 compare  0.99999    1  -> -1
ddcom753 compare  1.0000     1  -> 0
ddcom754 compare  1.00001    1  -> 1
ddcom755 compare  1.000001   1  -> 1
ddcom756 compare  1.0000001  1  -> 1

-- Specials
ddcom780 compare  Inf  -Inf   ->  1
ddcom781 compare  Inf  -1000  ->  1
ddcom782 compare  Inf  -1     ->  1
ddcom783 compare  Inf  -0     ->  1
ddcom784 compare  Inf   0     ->  1
ddcom785 compare  Inf   1     ->  1
ddcom786 compare  Inf   1000  ->  1
ddcom787 compare  Inf   Inf   ->  0
ddcom788 compare -1000  Inf   -> -1
ddcom789 compare -Inf   Inf   -> -1
ddcom790 compare -1     Inf   -> -1
ddcom791 compare -0     Inf   -> -1
ddcom792 compare  0     Inf   -> -1
ddcom793 compare  1     Inf   -> -1
ddcom794 compare  1000  Inf   -> -1
ddcom795 compare  Inf   Inf   ->  0

ddcom800 compare -Inf  -Inf   ->  0
ddcom801 compare -Inf  -1000  -> -1
ddcom802 compare -Inf  -1     -> -1
ddcom803 compare -Inf  -0     -> -1
ddcom804 compare -Inf   0     -> -1
ddcom805 compare -Inf   1     -> -1
ddcom806 compare -Inf   1000  -> -1
ddcom807 compare -Inf   Inf   -> -1
ddcom808 compare -Inf  -Inf   ->  0
ddcom809 compare -1000 -Inf   ->  1
ddcom810 compare -1    -Inf   ->  1
ddcom811 compare -0    -Inf   ->  1
ddcom812 compare  0    -Inf   ->  1
ddcom813 compare  1    -Inf   ->  1
ddcom814 compare  1000 -Inf   ->  1
ddcom815 compare  Inf  -Inf   ->  1

ddcom821 compare  NaN -Inf    ->  NaN
ddcom822 compare  NaN -1000   ->  NaN
ddcom823 compare  NaN -1      ->  NaN
ddcom824 compare  NaN -0      ->  NaN
ddcom825 compare  NaN  0      ->  NaN
ddcom826 compare  NaN  1      ->  NaN
ddcom827 compare  NaN  1000   ->  NaN
ddcom828 compare  NaN  Inf    ->  NaN
ddcom829 compare  NaN  NaN    ->  NaN
ddcom830 compare -Inf  NaN    ->  NaN
ddcom831 compare -1000 NaN    ->  NaN
ddcom832 compare -1    NaN    ->  NaN
ddcom833 compare -0    NaN    ->  NaN
ddcom834 compare  0    NaN    ->  NaN
ddcom835 compare  1    NaN    ->  NaN
ddcom836 compare  1000 NaN    ->  NaN
ddcom837 compare  Inf  NaN    ->  NaN
ddcom838 compare -NaN -NaN    -> -NaN
ddcom839 compare +NaN -NaN    ->  NaN
ddcom840 compare -NaN +NaN    -> -NaN

ddcom841 compare  sNaN -Inf   ->  NaN  Invalid_operation
ddcom842 compare  sNaN -1000  ->  NaN  Invalid_operation
ddcom843 compare  sNaN -1     ->  NaN  Invalid_operation
ddcom844 compare  sNaN -0     ->  NaN  Invalid_operation
ddcom845 compare  sNaN  0     ->  NaN  Invalid_operation
ddcom846 compare  sNaN  1     ->  NaN  Invalid_operation
ddcom847 compare  sNaN  1000  ->  NaN  Invalid_operation
ddcom848 compare  sNaN  NaN   ->  NaN  Invalid_operation
ddcom849 compare  sNaN sNaN   ->  NaN  Invalid_operation
ddcom850 compare  NaN  sNaN   ->  NaN  Invalid_operation
ddcom851 compare -Inf  sNaN   ->  NaN  Invalid_operation
ddcom852 compare -1000 sNaN   ->  NaN  Invalid_operation
ddcom853 compare -1    sNaN   ->  NaN  Invalid_operation
ddcom854 compare -0    sNaN   ->  NaN  Invalid_operation
ddcom855 compare  0    sNaN   ->  NaN  Invalid_operation
ddcom856 compare  1    sNaN   ->  NaN  Invalid_operation
ddcom857 compare  1000 sNaN   ->  NaN  Invalid_operation
ddcom858 compare  Inf  sNaN   ->  NaN  Invalid_operation
ddcom859 compare  NaN  sNaN   ->  NaN  Invalid_operation

-- propagating NaNs
ddcom860 compare  NaN9 -Inf   ->  NaN9
ddcom861 compare  NaN8  999   ->  NaN8
ddcom862 compare  NaN77 Inf   ->  NaN77
ddcom863 compare -NaN67 NaN5  -> -NaN67
ddcom864 compare -Inf  -NaN4  -> -NaN4
ddcom865 compare -999  -NaN33 -> -NaN33
ddcom866 compare  Inf   NaN2  ->  NaN2
ddcom867 compare -NaN41 -NaN42 -> -NaN41
ddcom868 compare +NaN41 -NaN42 ->  NaN41
ddcom869 compare -NaN41 +NaN42 -> -NaN41
ddcom870 compare +NaN41 +NaN42 ->  NaN41

ddcom871 compare -sNaN99 -Inf    -> -NaN99 Invalid_operation
ddcom872 compare  sNaN98 -11     ->  NaN98 Invalid_operation
ddcom873 compare  sNaN97  NaN    ->  NaN97 Invalid_operation
ddcom874 compare  sNaN16 sNaN94  ->  NaN16 Invalid_operation
ddcom875 compare  NaN85  sNaN83  ->  NaN83 Invalid_operation
ddcom876 compare -Inf    sNaN92  ->  NaN92 Invalid_operation
ddcom877 compare  088    sNaN81  ->  NaN81 Invalid_operation
ddcom878 compare  Inf    sNaN90  ->  NaN90 Invalid_operation
ddcom879 compare  NaN   -sNaN89  -> -NaN89 Invalid_operation

-- wide range
ddcom880 compare +1.23456789012345E-0 9E+384 -> -1
ddcom881 compare 9E+384 +1.23456789012345E-0 ->  1
ddcom882 compare +0.100 9E-383               ->  1
ddcom883 compare 9E-383 +0.100               -> -1
ddcom885 compare -1.23456789012345E-0 9E+384 -> -1
ddcom886 compare 9E+384 -1.23456789012345E-0 ->  1
ddcom887 compare -0.100 9E-383               -> -1
ddcom888 compare 9E-383 -0.100               ->  1

-- spread zeros
ddcom900 compare   0E-383  0       ->  0
ddcom901 compare   0E-383 -0       ->  0
ddcom902 compare  -0E-383  0       ->  0
ddcom903 compare  -0E-383 -0       ->  0
ddcom904 compare   0E-383  0E+384  ->  0
ddcom905 compare   0E-383 -0E+384  ->  0
ddcom906 compare  -0E-383  0E+384  ->  0
ddcom907 compare  -0E-383 -0E+384  ->  0
ddcom908 compare   0       0E+384  ->  0
ddcom909 compare   0      -0E+384  ->  0
ddcom910 compare  -0       0E+384  ->  0
ddcom911 compare  -0      -0E+384  ->  0
ddcom930 compare   0E+384  0       ->  0
ddcom931 compare   0E+384 -0       ->  0
ddcom932 compare  -0E+384  0       ->  0
ddcom933 compare  -0E+384 -0       ->  0
ddcom934 compare   0E+384  0E-383  ->  0
ddcom935 compare   0E+384 -0E-383  ->  0
ddcom936 compare  -0E+384  0E-383  ->  0
ddcom937 compare  -0E+384 -0E-383  ->  0
ddcom938 compare   0       0E-383  ->  0
ddcom939 compare   0      -0E-383  ->  0
ddcom940 compare  -0       0E-383  ->  0
ddcom941 compare  -0      -0E-383  ->  0

-- signs
ddcom961 compare  1e+77  1e+11 ->  1
ddcom962 compare  1e+77 -1e+11 ->  1
ddcom963 compare -1e+77  1e+11 -> -1
ddcom964 compare -1e+77 -1e+11 -> -1
ddcom965 compare  1e-77  1e-11 -> -1
ddcom966 compare  1e-77 -1e-11 ->  1
ddcom967 compare -1e-77  1e-11 -> -1
ddcom968 compare -1e-77 -1e-11 ->  1

-- full alignment range, both ways
ddcomp1001 compare 1 1.000000000000000  -> 0
ddcomp1002 compare 1 1.00000000000000   -> 0
ddcomp1003 compare 1 1.0000000000000    -> 0
ddcomp1004 compare 1 1.000000000000     -> 0
ddcomp1005 compare 1 1.00000000000      -> 0
ddcomp1006 compare 1 1.0000000000       -> 0
ddcomp1007 compare 1 1.000000000        -> 0
ddcomp1008 compare 1 1.00000000         -> 0
ddcomp1009 compare 1 1.0000000          -> 0
ddcomp1010 compare 1 1.000000           -> 0
ddcomp1011 compare 1 1.00000            -> 0
ddcomp1012 compare 1 1.0000             -> 0
ddcomp1013 compare 1 1.000              -> 0
ddcomp1014 compare 1 1.00               -> 0
ddcomp1015 compare 1 1.0                -> 0
ddcomp1021 compare 1.000000000000000  1 -> 0
ddcomp1022 compare 1.00000000000000   1 -> 0
ddcomp1023 compare 1.0000000000000    1 -> 0
ddcomp1024 compare 1.000000000000     1 -> 0
ddcomp1025 compare 1.00000000000      1 -> 0
ddcomp1026 compare 1.0000000000       1 -> 0
ddcomp1027 compare 1.000000000        1 -> 0
ddcomp1028 compare 1.00000000         1 -> 0
ddcomp1029 compare 1.0000000          1 -> 0
ddcomp1030 compare 1.000000           1 -> 0
ddcomp1031 compare 1.00000            1 -> 0
ddcomp1032 compare 1.0000             1 -> 0
ddcomp1033 compare 1.000              1 -> 0
ddcomp1034 compare 1.00               1 -> 0
ddcomp1035 compare 1.0                1 -> 0

-- check MSD always detected non-zero
ddcomp1040 compare 0 0.000000000000000  -> 0
ddcomp1041 compare 0 1.000000000000000  -> -1
ddcomp1042 compare 0 2.000000000000000  -> -1
ddcomp1043 compare 0 3.000000000000000  -> -1
ddcomp1044 compare 0 4.000000000000000  -> -1
ddcomp1045 compare 0 5.000000000000000  -> -1
ddcomp1046 compare 0 6.000000000000000  -> -1
ddcomp1047 compare 0 7.000000000000000  -> -1
ddcomp1048 compare 0 8.000000000000000  -> -1
ddcomp1049 compare 0 9.000000000000000  -> -1
ddcomp1050 compare 0.000000000000000  0 -> 0
ddcomp1051 compare 1.000000000000000  0 -> 1
ddcomp1052 compare 2.000000000000000  0 -> 1
ddcomp1053 compare 3.000000000000000  0 -> 1
ddcomp1054 compare 4.000000000000000  0 -> 1
ddcomp1055 compare 5.000000000000000  0 -> 1
ddcomp1056 compare 6.000000000000000  0 -> 1
ddcomp1057 compare 7.000000000000000  0 -> 1
ddcomp1058 compare 8.000000000000000  0 -> 1
ddcomp1059 compare 9.000000000000000  0 -> 1

-- Null tests
ddcom9990 compare 10  # -> NaN Invalid_operation
ddcom9991 compare  # 10 -> NaN Invalid_operation