summaryrefslogtreecommitdiffstats
path: root/Lib/test/decimaltestdata/comparetotmag.decTest
blob: e87c9f2dbf24b479cf8b6c2a31627f7227fae04d (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
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
------------------------------------------------------------------------
-- comparetotmag.decTest -- decimal comparison, abs. total ordering   --
-- 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 it cannot be assumed that add/subtract tests cover paths
-- for this operation adequately, here, because the code might be
-- quite different (comparison cannot overflow or underflow, so
-- actual subtractions are not necessary). Similarly, comparetotal
-- will have some radically different paths than compare.

extended:    1
precision:   16
rounding:    half_up
maxExponent: 384
minExponent: -383

-- sanity checks
ctmx001 comparetotmag  -2  -2   ->   0
ctmx002 comparetotmag  -2  -1   ->   1
ctmx003 comparetotmag  -2   0   ->   1
ctmx004 comparetotmag  -2   1   ->   1
ctmx005 comparetotmag  -2   2   ->   0
ctmx006 comparetotmag  -1  -2   ->  -1
ctmx007 comparetotmag  -1  -1   ->   0
ctmx008 comparetotmag  -1   0   ->   1
ctmx009 comparetotmag  -1   1   ->   0
ctmx010 comparetotmag  -1   2   ->  -1
ctmx011 comparetotmag   0  -2   ->  -1
ctmx012 comparetotmag   0  -1   ->  -1
ctmx013 comparetotmag   0   0   ->   0
ctmx014 comparetotmag   0   1   ->  -1
ctmx015 comparetotmag   0   2   ->  -1
ctmx016 comparetotmag   1  -2   ->  -1
ctmx017 comparetotmag   1  -1   ->   0
ctmx018 comparetotmag   1   0   ->   1
ctmx019 comparetotmag   1   1   ->   0
ctmx020 comparetotmag   1   2   ->  -1
ctmx021 comparetotmag   2  -2   ->   0
ctmx022 comparetotmag   2  -1   ->   1
ctmx023 comparetotmag   2   0   ->   1
ctmx025 comparetotmag   2   1   ->   1
ctmx026 comparetotmag   2   2   ->   0

ctmx031 comparetotmag  -20  -20   ->   0
ctmx032 comparetotmag  -20  -10   ->   1
ctmx033 comparetotmag  -20   00   ->   1
ctmx034 comparetotmag  -20   10   ->   1
ctmx035 comparetotmag  -20   20   ->   0
ctmx036 comparetotmag  -10  -20   ->  -1
ctmx037 comparetotmag  -10  -10   ->   0
ctmx038 comparetotmag  -10   00   ->   1
ctmx039 comparetotmag  -10   10   ->   0
ctmx040 comparetotmag  -10   20   ->  -1
ctmx041 comparetotmag   00  -20   ->  -1
ctmx042 comparetotmag   00  -10   ->  -1
ctmx043 comparetotmag   00   00   ->   0
ctmx044 comparetotmag   00   10   ->  -1
ctmx045 comparetotmag   00   20   ->  -1
ctmx046 comparetotmag   10  -20   ->  -1
ctmx047 comparetotmag   10  -10   ->   0
ctmx048 comparetotmag   10   00   ->   1
ctmx049 comparetotmag   10   10   ->   0
ctmx050 comparetotmag   10   20   ->  -1
ctmx051 comparetotmag   20  -20   ->   0
ctmx052 comparetotmag   20  -10   ->   1
ctmx053 comparetotmag   20   00   ->   1
ctmx055 comparetotmag   20   10   ->   1
ctmx056 comparetotmag   20   20   ->   0

ctmx061 comparetotmag  -2.0  -2.0   ->   0
ctmx062 comparetotmag  -2.0  -1.0   ->   1
ctmx063 comparetotmag  -2.0   0.0   ->   1
ctmx064 comparetotmag  -2.0   1.0   ->   1
ctmx065 comparetotmag  -2.0   2.0   ->   0
ctmx066 comparetotmag  -1.0  -2.0   ->  -1
ctmx067 comparetotmag  -1.0  -1.0   ->   0
ctmx068 comparetotmag  -1.0   0.0   ->   1
ctmx069 comparetotmag  -1.0   1.0   ->   0
ctmx070 comparetotmag  -1.0   2.0   ->  -1
ctmx071 comparetotmag   0.0  -2.0   ->  -1
ctmx072 comparetotmag   0.0  -1.0   ->  -1
ctmx073 comparetotmag   0.0   0.0   ->   0
ctmx074 comparetotmag   0.0   1.0   ->  -1
ctmx075 comparetotmag   0.0   2.0   ->  -1
ctmx076 comparetotmag   1.0  -2.0   ->  -1
ctmx077 comparetotmag   1.0  -1.0   ->   0
ctmx078 comparetotmag   1.0   0.0   ->   1
ctmx079 comparetotmag   1.0   1.0   ->   0
ctmx080 comparetotmag   1.0   2.0   ->  -1
ctmx081 comparetotmag   2.0  -2.0   ->   0
ctmx082 comparetotmag   2.0  -1.0   ->   1
ctmx083 comparetotmag   2.0   0.0   ->   1
ctmx085 comparetotmag   2.0   1.0   ->   1
ctmx086 comparetotmag   2.0   2.0   ->   0

-- now some cases which might overflow if subtract were used
maxexponent: 999999999
minexponent: -999999999
ctmx090 comparetotmag  9.99999999E+999999999 9.99999999E+999999999   ->   0
ctmx091 comparetotmag -9.99999999E+999999999 9.99999999E+999999999   ->   0
ctmx092 comparetotmag  9.99999999E+999999999 -9.99999999E+999999999  ->   0
ctmx093 comparetotmag -9.99999999E+999999999 -9.99999999E+999999999  ->   0

-- some differing length/exponent cases
-- in this first group, compare would compare all equal
ctmx100 comparetotmag   7.0    7.0     ->   0
ctmx101 comparetotmag   7.0    7       ->  -1
ctmx102 comparetotmag   7      7.0     ->   1
ctmx103 comparetotmag   7E+0   7.0     ->   1
ctmx104 comparetotmag   70E-1  7.0     ->   0
ctmx105 comparetotmag   0.7E+1 7       ->   0
ctmx106 comparetotmag   70E-1  7       ->  -1
ctmx107 comparetotmag   7.0    7E+0    ->  -1
ctmx108 comparetotmag   7.0    70E-1   ->   0
ctmx109 comparetotmag   7      0.7E+1  ->   0
ctmx110 comparetotmag   7      70E-1   ->   1

ctmx120 comparetotmag   8.0    7.0     ->   1
ctmx121 comparetotmag   8.0    7       ->   1
ctmx122 comparetotmag   8      7.0     ->   1
ctmx123 comparetotmag   8E+0   7.0     ->   1
ctmx124 comparetotmag   80E-1  7.0     ->   1
ctmx125 comparetotmag   0.8E+1 7       ->   1
ctmx126 comparetotmag   80E-1  7       ->   1
ctmx127 comparetotmag   8.0    7E+0    ->   1
ctmx128 comparetotmag   8.0    70E-1   ->   1
ctmx129 comparetotmag   8      0.7E+1   ->   1
ctmx130 comparetotmag   8      70E-1   ->   1

ctmx140 comparetotmag   8.0    9.0     ->  -1
ctmx141 comparetotmag   8.0    9       ->  -1
ctmx142 comparetotmag   8      9.0     ->  -1
ctmx143 comparetotmag   8E+0   9.0     ->  -1
ctmx144 comparetotmag   80E-1  9.0     ->  -1
ctmx145 comparetotmag   0.8E+1 9       ->  -1
ctmx146 comparetotmag   80E-1  9       ->  -1
ctmx147 comparetotmag   8.0    9E+0    ->  -1
ctmx148 comparetotmag   8.0    90E-1   ->  -1
ctmx149 comparetotmag   8      0.9E+1  ->  -1
ctmx150 comparetotmag   8      90E-1   ->  -1

-- and again, with sign changes -+ ..
ctmx200 comparetotmag  -7.0    7.0     ->   0
ctmx201 comparetotmag  -7.0    7       ->  -1
ctmx202 comparetotmag  -7      7.0     ->   1
ctmx203 comparetotmag  -7E+0   7.0     ->   1
ctmx204 comparetotmag  -70E-1  7.0     ->   0
ctmx205 comparetotmag  -0.7E+1 7       ->   0
ctmx206 comparetotmag  -70E-1  7       ->  -1
ctmx207 comparetotmag  -7.0    7E+0    ->  -1
ctmx208 comparetotmag  -7.0    70E-1   ->   0
ctmx209 comparetotmag  -7      0.7E+1  ->   0
ctmx210 comparetotmag  -7      70E-1   ->   1

ctmx220 comparetotmag  -8.0    7.0     ->   1
ctmx221 comparetotmag  -8.0    7       ->   1
ctmx222 comparetotmag  -8      7.0     ->   1
ctmx223 comparetotmag  -8E+0   7.0     ->   1
ctmx224 comparetotmag  -80E-1  7.0     ->   1
ctmx225 comparetotmag  -0.8E+1 7       ->   1
ctmx226 comparetotmag  -80E-1  7       ->   1
ctmx227 comparetotmag  -8.0    7E+0    ->   1
ctmx228 comparetotmag  -8.0    70E-1   ->   1
ctmx229 comparetotmag  -8      0.7E+1  ->   1
ctmx230 comparetotmag  -8      70E-1   ->   1

ctmx240 comparetotmag  -8.0    9.0     ->  -1
ctmx241 comparetotmag  -8.0    9       ->  -1
ctmx242 comparetotmag  -8      9.0     ->  -1
ctmx243 comparetotmag  -8E+0   9.0     ->  -1
ctmx244 comparetotmag  -80E-1  9.0     ->  -1
ctmx245 comparetotmag  -0.8E+1 9       ->  -1
ctmx246 comparetotmag  -80E-1  9       ->  -1
ctmx247 comparetotmag  -8.0    9E+0    ->  -1
ctmx248 comparetotmag  -8.0    90E-1   ->  -1
ctmx249 comparetotmag  -8      0.9E+1  ->  -1
ctmx250 comparetotmag  -8      90E-1   ->  -1

-- and again, with sign changes +- ..
ctmx300 comparetotmag   7.0    -7.0     ->   0
ctmx301 comparetotmag   7.0    -7       ->  -1
ctmx302 comparetotmag   7      -7.0     ->   1
ctmx303 comparetotmag   7E+0   -7.0     ->   1
ctmx304 comparetotmag   70E-1  -7.0     ->   0
ctmx305 comparetotmag   .7E+1  -7       ->   0
ctmx306 comparetotmag   70E-1  -7       ->  -1
ctmx307 comparetotmag   7.0    -7E+0    ->  -1
ctmx308 comparetotmag   7.0    -70E-1   ->   0
ctmx309 comparetotmag   7      -.7E+1   ->   0
ctmx310 comparetotmag   7      -70E-1   ->   1

ctmx320 comparetotmag   8.0    -7.0     ->   1
ctmx321 comparetotmag   8.0    -7       ->   1
ctmx322 comparetotmag   8      -7.0     ->   1
ctmx323 comparetotmag   8E+0   -7.0     ->   1
ctmx324 comparetotmag   80E-1  -7.0     ->   1
ctmx325 comparetotmag   .8E+1  -7       ->   1
ctmx326 comparetotmag   80E-1  -7       ->   1
ctmx327 comparetotmag   8.0    -7E+0    ->   1
ctmx328 comparetotmag   8.0    -70E-1   ->   1
ctmx329 comparetotmag   8      -.7E+1   ->   1
ctmx330 comparetotmag   8      -70E-1   ->   1

ctmx340 comparetotmag   8.0    -9.0     ->  -1
ctmx341 comparetotmag   8.0    -9       ->  -1
ctmx342 comparetotmag   8      -9.0     ->  -1
ctmx343 comparetotmag   8E+0   -9.0     ->  -1
ctmx344 comparetotmag   80E-1  -9.0     ->  -1
ctmx345 comparetotmag   .8E+1  -9       ->  -1
ctmx346 comparetotmag   80E-1  -9       ->  -1
ctmx347 comparetotmag   8.0    -9E+0    ->  -1
ctmx348 comparetotmag   8.0    -90E-1   ->  -1
ctmx349 comparetotmag   8      -.9E+1   ->  -1
ctmx350 comparetotmag   8      -90E-1   ->  -1

-- and again, with sign changes -- ..
ctmx400 comparetotmag   -7.0    -7.0     ->   0
ctmx401 comparetotmag   -7.0    -7       ->  -1
ctmx402 comparetotmag   -7      -7.0     ->   1
ctmx403 comparetotmag   -7E+0   -7.0     ->   1
ctmx404 comparetotmag   -70E-1  -7.0     ->   0
ctmx405 comparetotmag   -.7E+1  -7       ->   0
ctmx406 comparetotmag   -70E-1  -7       ->  -1
ctmx407 comparetotmag   -7.0    -7E+0    ->  -1
ctmx408 comparetotmag   -7.0    -70E-1   ->   0
ctmx409 comparetotmag   -7      -.7E+1   ->   0
ctmx410 comparetotmag   -7      -70E-1   ->   1

ctmx420 comparetotmag   -8.0    -7.0     ->   1
ctmx421 comparetotmag   -8.0    -7       ->   1
ctmx422 comparetotmag   -8      -7.0     ->   1
ctmx423 comparetotmag   -8E+0   -7.0     ->   1
ctmx424 comparetotmag   -80E-1  -7.0     ->   1
ctmx425 comparetotmag   -.8E+1  -7       ->   1
ctmx426 comparetotmag   -80E-1  -7       ->   1
ctmx427 comparetotmag   -8.0    -7E+0    ->   1
ctmx428 comparetotmag   -8.0    -70E-1   ->   1
ctmx429 comparetotmag   -8      -.7E+1   ->   1
ctmx430 comparetotmag   -8      -70E-1   ->   1

ctmx440 comparetotmag   -8.0    -9.0     ->  -1
ctmx441 comparetotmag   -8.0    -9       ->  -1
ctmx442 comparetotmag   -8      -9.0     ->  -1
ctmx443 comparetotmag   -8E+0   -9.0     ->  -1
ctmx444 comparetotmag   -80E-1  -9.0     ->  -1
ctmx445 comparetotmag   -.8E+1  -9       ->  -1
ctmx446 comparetotmag   -80E-1  -9       ->  -1
ctmx447 comparetotmag   -8.0    -9E+0    ->  -1
ctmx448 comparetotmag   -8.0    -90E-1   ->  -1
ctmx449 comparetotmag   -8      -.9E+1   ->  -1
ctmx450 comparetotmag   -8      -90E-1   ->  -1


-- testcases that subtract to lots of zeros at boundaries [pgr]
precision: 40
ctmx470 comparetotmag 123.4560000000000000E789 123.456E789  ->  -1
ctmx471 comparetotmag 123.456000000000000E-89 123.456E-89  ->  -1
ctmx472 comparetotmag 123.45600000000000E789 123.456E789  ->  -1
ctmx473 comparetotmag 123.4560000000000E-89 123.456E-89  ->  -1
ctmx474 comparetotmag 123.456000000000E789 123.456E789  ->  -1
ctmx475 comparetotmag 123.45600000000E-89 123.456E-89  ->  -1
ctmx476 comparetotmag 123.4560000000E789 123.456E789  ->  -1
ctmx477 comparetotmag 123.456000000E-89 123.456E-89  ->  -1
ctmx478 comparetotmag 123.45600000E789 123.456E789  ->  -1
ctmx479 comparetotmag 123.4560000E-89 123.456E-89  ->  -1
ctmx480 comparetotmag 123.456000E789 123.456E789  ->  -1
ctmx481 comparetotmag 123.45600E-89 123.456E-89  ->  -1
ctmx482 comparetotmag 123.4560E789 123.456E789  ->  -1
ctmx483 comparetotmag 123.456E-89 123.456E-89  ->   0
ctmx484 comparetotmag 123.456E-89 123.4560000000000000E-89  ->   1
ctmx485 comparetotmag 123.456E789 123.456000000000000E789  ->   1
ctmx486 comparetotmag 123.456E-89 123.45600000000000E-89  ->   1
ctmx487 comparetotmag 123.456E789 123.4560000000000E789  ->   1
ctmx488 comparetotmag 123.456E-89 123.456000000000E-89  ->   1
ctmx489 comparetotmag 123.456E789 123.45600000000E789  ->   1
ctmx490 comparetotmag 123.456E-89 123.4560000000E-89  ->   1
ctmx491 comparetotmag 123.456E789 123.456000000E789  ->   1
ctmx492 comparetotmag 123.456E-89 123.45600000E-89  ->   1
ctmx493 comparetotmag 123.456E789 123.4560000E789  ->   1
ctmx494 comparetotmag 123.456E-89 123.456000E-89  ->   1
ctmx495 comparetotmag 123.456E789 123.45600E789  ->   1
ctmx496 comparetotmag 123.456E-89 123.4560E-89  ->   1
ctmx497 comparetotmag 123.456E789 123.456E789  ->   0

-- wide-ranging, around precision; signs equal
precision: 9
ctmx500 comparetotmag    1     1E-15     ->   1
ctmx501 comparetotmag    1     1E-14     ->   1
ctmx502 comparetotmag    1     1E-13     ->   1
ctmx503 comparetotmag    1     1E-12     ->   1
ctmx504 comparetotmag    1     1E-11     ->   1
ctmx505 comparetotmag    1     1E-10     ->   1
ctmx506 comparetotmag    1     1E-9      ->   1
ctmx507 comparetotmag    1     1E-8      ->   1
ctmx508 comparetotmag    1     1E-7      ->   1
ctmx509 comparetotmag    1     1E-6      ->   1
ctmx510 comparetotmag    1     1E-5      ->   1
ctmx511 comparetotmag    1     1E-4      ->   1
ctmx512 comparetotmag    1     1E-3      ->   1
ctmx513 comparetotmag    1     1E-2      ->   1
ctmx514 comparetotmag    1     1E-1      ->   1
ctmx515 comparetotmag    1     1E-0      ->   0
ctmx516 comparetotmag    1     1E+1      ->  -1
ctmx517 comparetotmag    1     1E+2      ->  -1
ctmx518 comparetotmag    1     1E+3      ->  -1
ctmx519 comparetotmag    1     1E+4      ->  -1
ctmx521 comparetotmag    1     1E+5      ->  -1
ctmx522 comparetotmag    1     1E+6      ->  -1
ctmx523 comparetotmag    1     1E+7      ->  -1
ctmx524 comparetotmag    1     1E+8      ->  -1
ctmx525 comparetotmag    1     1E+9      ->  -1
ctmx526 comparetotmag    1     1E+10     ->  -1
ctmx527 comparetotmag    1     1E+11     ->  -1
ctmx528 comparetotmag    1     1E+12     ->  -1
ctmx529 comparetotmag    1     1E+13     ->  -1
ctmx530 comparetotmag    1     1E+14     ->  -1
ctmx531 comparetotmag    1     1E+15     ->  -1
-- LR swap
ctmx540 comparetotmag    1E-15  1        ->  -1
ctmx541 comparetotmag    1E-14  1        ->  -1
ctmx542 comparetotmag    1E-13  1        ->  -1
ctmx543 comparetotmag    1E-12  1        ->  -1
ctmx544 comparetotmag    1E-11  1        ->  -1
ctmx545 comparetotmag    1E-10  1        ->  -1
ctmx546 comparetotmag    1E-9   1        ->  -1
ctmx547 comparetotmag    1E-8   1        ->  -1
ctmx548 comparetotmag    1E-7   1        ->  -1
ctmx549 comparetotmag    1E-6   1        ->  -1
ctmx550 comparetotmag    1E-5   1        ->  -1
ctmx551 comparetotmag    1E-4   1        ->  -1
ctmx552 comparetotmag    1E-3   1        ->  -1
ctmx553 comparetotmag    1E-2   1        ->  -1
ctmx554 comparetotmag    1E-1   1        ->  -1
ctmx555 comparetotmag    1E-0   1        ->   0
ctmx556 comparetotmag    1E+1   1        ->   1
ctmx557 comparetotmag    1E+2   1        ->   1
ctmx558 comparetotmag    1E+3   1        ->   1
ctmx559 comparetotmag    1E+4   1        ->   1
ctmx561 comparetotmag    1E+5   1        ->   1
ctmx562 comparetotmag    1E+6   1        ->   1
ctmx563 comparetotmag    1E+7   1        ->   1
ctmx564 comparetotmag    1E+8   1        ->   1
ctmx565 comparetotmag    1E+9   1        ->   1
ctmx566 comparetotmag    1E+10  1        ->   1
ctmx567 comparetotmag    1E+11  1        ->   1
ctmx568 comparetotmag    1E+12  1        ->   1
ctmx569 comparetotmag    1E+13  1        ->   1
ctmx570 comparetotmag    1E+14  1        ->   1
ctmx571 comparetotmag    1E+15  1        ->   1
-- similar with an useful coefficient, one side only
ctmx580 comparetotmag  0.000000987654321     1E-15     ->   1
ctmx581 comparetotmag  0.000000987654321     1E-14     ->   1
ctmx582 comparetotmag  0.000000987654321     1E-13     ->   1
ctmx583 comparetotmag  0.000000987654321     1E-12     ->   1
ctmx584 comparetotmag  0.000000987654321     1E-11     ->   1
ctmx585 comparetotmag  0.000000987654321     1E-10     ->   1
ctmx586 comparetotmag  0.000000987654321     1E-9      ->   1
ctmx587 comparetotmag  0.000000987654321     1E-8      ->   1
ctmx588 comparetotmag  0.000000987654321     1E-7      ->   1
ctmx589 comparetotmag  0.000000987654321     1E-6      ->  -1
ctmx590 comparetotmag  0.000000987654321     1E-5      ->  -1
ctmx591 comparetotmag  0.000000987654321     1E-4      ->  -1
ctmx592 comparetotmag  0.000000987654321     1E-3      ->  -1
ctmx593 comparetotmag  0.000000987654321     1E-2      ->  -1
ctmx594 comparetotmag  0.000000987654321     1E-1      ->  -1
ctmx595 comparetotmag  0.000000987654321     1E-0      ->  -1
ctmx596 comparetotmag  0.000000987654321     1E+1      ->  -1
ctmx597 comparetotmag  0.000000987654321     1E+2      ->  -1
ctmx598 comparetotmag  0.000000987654321     1E+3      ->  -1
ctmx599 comparetotmag  0.000000987654321     1E+4      ->  -1

-- check some unit-y traps
precision: 20
ctmx600 comparetotmag   12            12.2345  ->  -1
ctmx601 comparetotmag   12.0          12.2345  ->  -1
ctmx602 comparetotmag   12.00         12.2345  ->  -1
ctmx603 comparetotmag   12.000        12.2345  ->  -1
ctmx604 comparetotmag   12.0000       12.2345  ->  -1
ctmx605 comparetotmag   12.00000      12.2345  ->  -1
ctmx606 comparetotmag   12.000000     12.2345  ->  -1
ctmx607 comparetotmag   12.0000000    12.2345  ->  -1
ctmx608 comparetotmag   12.00000000   12.2345  ->  -1
ctmx609 comparetotmag   12.000000000  12.2345  ->  -1
ctmx610 comparetotmag   12.1234 12             ->   1
ctmx611 comparetotmag   12.1234 12.0           ->   1
ctmx612 comparetotmag   12.1234 12.00          ->   1
ctmx613 comparetotmag   12.1234 12.000         ->   1
ctmx614 comparetotmag   12.1234 12.0000        ->   1
ctmx615 comparetotmag   12.1234 12.00000       ->   1
ctmx616 comparetotmag   12.1234 12.000000      ->   1
ctmx617 comparetotmag   12.1234 12.0000000     ->   1
ctmx618 comparetotmag   12.1234 12.00000000    ->   1
ctmx619 comparetotmag   12.1234 12.000000000   ->   1
ctmx620 comparetotmag  -12           -12.2345  ->  -1
ctmx621 comparetotmag  -12.0         -12.2345  ->  -1
ctmx622 comparetotmag  -12.00        -12.2345  ->  -1
ctmx623 comparetotmag  -12.000       -12.2345  ->  -1
ctmx624 comparetotmag  -12.0000      -12.2345  ->  -1
ctmx625 comparetotmag  -12.00000     -12.2345  ->  -1
ctmx626 comparetotmag  -12.000000    -12.2345  ->  -1
ctmx627 comparetotmag  -12.0000000   -12.2345  ->  -1
ctmx628 comparetotmag  -12.00000000  -12.2345  ->  -1
ctmx629 comparetotmag  -12.000000000 -12.2345  ->  -1
ctmx630 comparetotmag  -12.1234 -12            ->   1
ctmx631 comparetotmag  -12.1234 -12.0          ->   1
ctmx632 comparetotmag  -12.1234 -12.00         ->   1
ctmx633 comparetotmag  -12.1234 -12.000        ->   1
ctmx634 comparetotmag  -12.1234 -12.0000       ->   1
ctmx635 comparetotmag  -12.1234 -12.00000      ->   1
ctmx636 comparetotmag  -12.1234 -12.000000     ->   1
ctmx637 comparetotmag  -12.1234 -12.0000000    ->   1
ctmx638 comparetotmag  -12.1234 -12.00000000   ->   1
ctmx639 comparetotmag  -12.1234 -12.000000000  ->   1
precision: 9

-- extended zeros
ctmx640 comparetotmag   0     0    ->   0
ctmx641 comparetotmag   0    -0    ->   0
ctmx642 comparetotmag   0    -0.0  ->   1
ctmx643 comparetotmag   0     0.0  ->   1
ctmx644 comparetotmag  -0     0    ->   0
ctmx645 comparetotmag  -0    -0    ->   0
ctmx646 comparetotmag  -0    -0.0  ->   1
ctmx647 comparetotmag  -0     0.0  ->   1
ctmx648 comparetotmag   0.0   0    ->  -1
ctmx649 comparetotmag   0.0  -0    ->  -1
ctmx650 comparetotmag   0.0  -0.0  ->   0
ctmx651 comparetotmag   0.0   0.0  ->   0
ctmx652 comparetotmag  -0.0   0    ->  -1
ctmx653 comparetotmag  -0.0  -0    ->  -1
ctmx654 comparetotmag  -0.0  -0.0  ->   0
ctmx655 comparetotmag  -0.0   0.0  ->   0

ctmx656 comparetotmag  -0E1   0.0  ->   1
ctmx657 comparetotmag  -0E2   0.0  ->   1
ctmx658 comparetotmag   0E1   0.0  ->   1
ctmx659 comparetotmag   0E2   0.0  ->   1
ctmx660 comparetotmag  -0E1   0    ->   1
ctmx661 comparetotmag  -0E2   0    ->   1
ctmx662 comparetotmag   0E1   0    ->   1
ctmx663 comparetotmag   0E2   0    ->   1
ctmx664 comparetotmag  -0E1  -0E1  ->   0
ctmx665 comparetotmag  -0E2  -0E1  ->   1
ctmx666 comparetotmag   0E1  -0E1  ->   0
ctmx667 comparetotmag   0E2  -0E1  ->   1
ctmx668 comparetotmag  -0E1  -0E2  ->  -1
ctmx669 comparetotmag  -0E2  -0E2  ->   0
ctmx670 comparetotmag   0E1  -0E2  ->  -1
ctmx671 comparetotmag   0E2  -0E2  ->   0
ctmx672 comparetotmag  -0E1   0E1  ->   0
ctmx673 comparetotmag  -0E2   0E1  ->   1
ctmx674 comparetotmag   0E1   0E1  ->   0
ctmx675 comparetotmag   0E2   0E1  ->   1
ctmx676 comparetotmag  -0E1   0E2  ->  -1
ctmx677 comparetotmag  -0E2   0E2  ->   0
ctmx678 comparetotmag   0E1   0E2  ->  -1
ctmx679 comparetotmag   0E2   0E2  ->   0

-- trailing zeros; unit-y
precision: 20
ctmx680 comparetotmag   12    12            ->   0
ctmx681 comparetotmag   12    12.0          ->   1
ctmx682 comparetotmag   12    12.00         ->   1
ctmx683 comparetotmag   12    12.000        ->   1
ctmx684 comparetotmag   12    12.0000       ->   1
ctmx685 comparetotmag   12    12.00000      ->   1
ctmx686 comparetotmag   12    12.000000     ->   1
ctmx687 comparetotmag   12    12.0000000    ->   1
ctmx688 comparetotmag   12    12.00000000   ->   1
ctmx689 comparetotmag   12    12.000000000  ->   1
ctmx690 comparetotmag   12              12  ->   0
ctmx691 comparetotmag   12.0            12  ->  -1
ctmx692 comparetotmag   12.00           12  ->  -1
ctmx693 comparetotmag   12.000          12  ->  -1
ctmx694 comparetotmag   12.0000         12  ->  -1
ctmx695 comparetotmag   12.00000        12  ->  -1
ctmx696 comparetotmag   12.000000       12  ->  -1
ctmx697 comparetotmag   12.0000000      12  ->  -1
ctmx698 comparetotmag   12.00000000     12  ->  -1
ctmx699 comparetotmag   12.000000000    12  ->  -1

-- long operand checks
maxexponent: 999
minexponent: -999
precision: 9
ctmx701 comparetotmag 12345678000  1  ->   1
ctmx702 comparetotmag 1 12345678000   ->  -1
ctmx703 comparetotmag 1234567800   1  ->   1
ctmx704 comparetotmag 1 1234567800    ->  -1
ctmx705 comparetotmag 1234567890   1  ->   1
ctmx706 comparetotmag 1 1234567890    ->  -1
ctmx707 comparetotmag 1234567891   1  ->   1
ctmx708 comparetotmag 1 1234567891    ->  -1
ctmx709 comparetotmag 12345678901  1  ->   1
ctmx710 comparetotmag 1 12345678901   ->  -1
ctmx711 comparetotmag 1234567896   1  ->   1
ctmx712 comparetotmag 1 1234567896    ->  -1
ctmx713 comparetotmag -1234567891  1  ->   1
ctmx714 comparetotmag 1 -1234567891   ->  -1
ctmx715 comparetotmag -12345678901 1  ->   1
ctmx716 comparetotmag 1 -12345678901  ->  -1
ctmx717 comparetotmag -1234567896  1  ->   1
ctmx718 comparetotmag 1 -1234567896   ->  -1

precision: 15
-- same with plenty of precision
ctmx721 comparetotmag 12345678000 1  ->   1
ctmx722 comparetotmag 1 12345678000  ->  -1
ctmx723 comparetotmag 1234567800  1  ->   1
ctmx724 comparetotmag 1 1234567800   ->  -1
ctmx725 comparetotmag 1234567890  1  ->   1
ctmx726 comparetotmag 1 1234567890   ->  -1
ctmx727 comparetotmag 1234567891  1  ->   1
ctmx728 comparetotmag 1 1234567891   ->  -1
ctmx729 comparetotmag 12345678901 1  ->   1
ctmx730 comparetotmag 1 12345678901  ->  -1
ctmx731 comparetotmag 1234567896  1  ->   1
ctmx732 comparetotmag 1 1234567896   ->  -1

-- residue cases
precision: 5
ctmx740 comparetotmag  1  0.9999999   ->   1
ctmx741 comparetotmag  1  0.999999    ->   1
ctmx742 comparetotmag  1  0.99999     ->   1
ctmx743 comparetotmag  1  1.0000      ->   1
ctmx744 comparetotmag  1  1.00001     ->  -1
ctmx745 comparetotmag  1  1.000001    ->  -1
ctmx746 comparetotmag  1  1.0000001   ->  -1
ctmx750 comparetotmag  0.9999999  1   ->  -1
ctmx751 comparetotmag  0.999999   1   ->  -1
ctmx752 comparetotmag  0.99999    1   ->  -1
ctmx753 comparetotmag  1.0000     1   ->  -1
ctmx754 comparetotmag  1.00001    1   ->   1
ctmx755 comparetotmag  1.000001   1   ->   1
ctmx756 comparetotmag  1.0000001  1   ->   1

-- a selection of longies
ctmx760 comparetotmag -36852134.84194296250843579428931 -5830629.8347085025808756560357940  ->   1
ctmx761 comparetotmag -36852134.84194296250843579428931 -36852134.84194296250843579428931   ->   0
ctmx762 comparetotmag -36852134.94194296250843579428931 -36852134.84194296250843579428931   ->   1
ctmx763 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931   ->  -1
-- precisions above or below the difference should have no effect
precision:   11
ctmx764 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931   ->  -1
precision:   10
ctmx765 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931   ->  -1
precision:    9
ctmx766 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931   ->  -1
precision:    8
ctmx767 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931   ->  -1
precision:    7
ctmx768 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931   ->  -1
precision:    6
ctmx769 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931   ->  -1
precision:    5
ctmx770 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931   ->  -1
precision:    4
ctmx771 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931   ->  -1
precision:    3
ctmx772 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931   ->  -1
precision:    2
ctmx773 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931   ->  -1
precision:    1
ctmx774 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931   ->  -1

-- Specials
precision:   9
ctmx780 comparetotmag  Inf  -Inf   ->  0
ctmx781 comparetotmag  Inf  -1000  ->  1
ctmx782 comparetotmag  Inf  -1     ->  1
ctmx783 comparetotmag  Inf  -0     ->  1
ctmx784 comparetotmag  Inf   0     ->  1
ctmx785 comparetotmag  Inf   1     ->  1
ctmx786 comparetotmag  Inf   1000  ->  1
ctmx787 comparetotmag  Inf   Inf   ->  0
ctmx788 comparetotmag -1000  Inf   -> -1
ctmx789 comparetotmag -Inf   Inf   ->  0
ctmx790 comparetotmag -1     Inf   -> -1
ctmx791 comparetotmag -0     Inf   -> -1
ctmx792 comparetotmag  0     Inf   -> -1
ctmx793 comparetotmag  1     Inf   -> -1
ctmx794 comparetotmag  1000  Inf   -> -1
ctmx795 comparetotmag  Inf   Inf   ->  0

ctmx800 comparetotmag -Inf  -Inf   ->  0
ctmx801 comparetotmag -Inf  -1000  ->  1
ctmx802 comparetotmag -Inf  -1     ->  1
ctmx803 comparetotmag -Inf  -0     ->  1
ctmx804 comparetotmag -Inf   0     ->  1
ctmx805 comparetotmag -Inf   1     ->  1
ctmx806 comparetotmag -Inf   1000  ->  1
ctmx807 comparetotmag -Inf   Inf   ->  0
ctmx808 comparetotmag -Inf  -Inf   ->  0
ctmx809 comparetotmag -1000 -Inf   -> -1
ctmx810 comparetotmag -1    -Inf   -> -1
ctmx811 comparetotmag -0    -Inf   -> -1
ctmx812 comparetotmag  0    -Inf   -> -1
ctmx813 comparetotmag  1    -Inf   -> -1
ctmx814 comparetotmag  1000 -Inf   -> -1
ctmx815 comparetotmag  Inf  -Inf   ->  0

ctmx821 comparetotmag  NaN -Inf    ->  1
ctmx822 comparetotmag  NaN -1000   ->  1
ctmx823 comparetotmag  NaN -1      ->  1
ctmx824 comparetotmag  NaN -0      ->  1
ctmx825 comparetotmag  NaN  0      ->  1
ctmx826 comparetotmag  NaN  1      ->  1
ctmx827 comparetotmag  NaN  1000   ->  1
ctmx828 comparetotmag  NaN  Inf    ->  1
ctmx829 comparetotmag  NaN  NaN    ->  0
ctmx830 comparetotmag -Inf  NaN    ->  -1
ctmx831 comparetotmag -1000 NaN    ->  -1
ctmx832 comparetotmag -1    NaN    ->  -1
ctmx833 comparetotmag -0    NaN    ->  -1
ctmx834 comparetotmag  0    NaN    ->  -1
ctmx835 comparetotmag  1    NaN    ->  -1
ctmx836 comparetotmag  1000 NaN    ->  -1
ctmx837 comparetotmag  Inf  NaN    ->  -1
ctmx838 comparetotmag -NaN -NaN    ->  0
ctmx839 comparetotmag +NaN -NaN    ->  0
ctmx840 comparetotmag -NaN +NaN    ->  0

ctmx841 comparetotmag  sNaN -sNaN  ->  0
ctmx842 comparetotmag  sNaN -NaN   ->  -1
ctmx843 comparetotmag  sNaN -Inf   ->  1
ctmx844 comparetotmag  sNaN -1000  ->  1
ctmx845 comparetotmag  sNaN -1     ->  1
ctmx846 comparetotmag  sNaN -0     ->  1
ctmx847 comparetotmag  sNaN  0     ->  1
ctmx848 comparetotmag  sNaN  1     ->  1
ctmx849 comparetotmag  sNaN  1000  ->  1
ctmx850 comparetotmag  sNaN  NaN   ->  -1
ctmx851 comparetotmag  sNaN sNaN   ->  0

ctmx852 comparetotmag -sNaN sNaN   ->  0
ctmx853 comparetotmag -NaN  sNaN   ->  1
ctmx854 comparetotmag -Inf  sNaN   ->  -1
ctmx855 comparetotmag -1000 sNaN   ->  -1
ctmx856 comparetotmag -1    sNaN   ->  -1
ctmx857 comparetotmag -0    sNaN   ->  -1
ctmx858 comparetotmag  0    sNaN   ->  -1
ctmx859 comparetotmag  1    sNaN   ->  -1
ctmx860 comparetotmag  1000 sNaN   ->  -1
ctmx861 comparetotmag  Inf  sNaN   ->  -1
ctmx862 comparetotmag  NaN  sNaN   ->  1
ctmx863 comparetotmag  sNaN sNaN   ->  0

ctmx871 comparetotmag  -sNaN -sNaN  ->  0
ctmx872 comparetotmag  -sNaN -NaN   ->  -1
ctmx873 comparetotmag  -sNaN -Inf   ->  1
ctmx874 comparetotmag  -sNaN -1000  ->  1
ctmx875 comparetotmag  -sNaN -1     ->  1
ctmx876 comparetotmag  -sNaN -0     ->  1
ctmx877 comparetotmag  -sNaN  0     ->  1
ctmx878 comparetotmag  -sNaN  1     ->  1
ctmx879 comparetotmag  -sNaN  1000  ->  1
ctmx880 comparetotmag  -sNaN  NaN   ->  -1
ctmx881 comparetotmag  -sNaN sNaN   ->  0

ctmx882 comparetotmag -sNaN -sNaN   ->  0
ctmx883 comparetotmag -NaN  -sNaN   ->  1
ctmx884 comparetotmag -Inf  -sNaN   ->  -1
ctmx885 comparetotmag -1000 -sNaN   ->  -1
ctmx886 comparetotmag -1    -sNaN   ->  -1
ctmx887 comparetotmag -0    -sNaN   ->  -1
ctmx888 comparetotmag  0    -sNaN   ->  -1
ctmx889 comparetotmag  1    -sNaN   ->  -1
ctmx890 comparetotmag  1000 -sNaN   ->  -1
ctmx891 comparetotmag  Inf  -sNaN   ->  -1
ctmx892 comparetotmag  NaN  -sNaN   ->  1
ctmx893 comparetotmag  sNaN -sNaN   ->  0

-- NaNs with payload
ctmx960 comparetotmag  NaN9 -Inf   ->  1
ctmx961 comparetotmag  NaN8  999   ->  1
ctmx962 comparetotmag  NaN77 Inf   ->  1
ctmx963 comparetotmag -NaN67 NaN5  ->  1
ctmx964 comparetotmag -Inf  -NaN4  ->  -1
ctmx965 comparetotmag -999  -NaN33 ->  -1
ctmx966 comparetotmag  Inf   NaN2  ->  -1

ctmx970 comparetotmag -NaN41 -NaN42 -> -1
ctmx971 comparetotmag +NaN41 -NaN42 -> -1
ctmx972 comparetotmag -NaN41 +NaN42 -> -1
ctmx973 comparetotmag +NaN41 +NaN42 -> -1
ctmx974 comparetotmag -NaN42 -NaN01 ->  1
ctmx975 comparetotmag +NaN42 -NaN01 ->  1
ctmx976 comparetotmag -NaN42 +NaN01 ->  1
ctmx977 comparetotmag +NaN42 +NaN01 ->  1

ctmx980 comparetotmag -sNaN771 -sNaN772 -> -1
ctmx981 comparetotmag +sNaN771 -sNaN772 -> -1
ctmx982 comparetotmag -sNaN771 +sNaN772 -> -1
ctmx983 comparetotmag +sNaN771 +sNaN772 -> -1
ctmx984 comparetotmag -sNaN772 -sNaN771 ->  1
ctmx985 comparetotmag +sNaN772 -sNaN771 ->  1
ctmx986 comparetotmag -sNaN772 +sNaN771 ->  1
ctmx987 comparetotmag +sNaN772 +sNaN771 ->  1

ctmx991 comparetotmag -sNaN99 -Inf    ->  1
ctmx992 comparetotmag  sNaN98 -11     ->  1
ctmx993 comparetotmag  sNaN97  NaN    -> -1
ctmx994 comparetotmag  sNaN16 sNaN94  -> -1
ctmx995 comparetotmag  NaN85  sNaN83  ->  1
ctmx996 comparetotmag -Inf    sNaN92  -> -1
ctmx997 comparetotmag  088    sNaN81  -> -1
ctmx998 comparetotmag  Inf    sNaN90  -> -1
ctmx999 comparetotmag  NaN   -sNaN89  ->  1

-- overflow and underflow tests .. subnormal results now allowed
maxExponent: 999999999
minexponent: -999999999
ctmx1080 comparetotmag +1.23456789012345E-0 9E+999999999  ->  -1
ctmx1081 comparetotmag 9E+999999999 +1.23456789012345E-0  ->   1
ctmx1082 comparetotmag +0.100 9E-999999999                ->   1
ctmx1083 comparetotmag 9E-999999999 +0.100                ->  -1
ctmx1085 comparetotmag -1.23456789012345E-0 9E+999999999  ->  -1
ctmx1086 comparetotmag 9E+999999999 -1.23456789012345E-0  ->   1
ctmx1087 comparetotmag -0.100 9E-999999999                ->   1
ctmx1088 comparetotmag 9E-999999999 -0.100                ->  -1

ctmx1089 comparetotmag 1e-599999999 1e-400000001    ->  -1
ctmx1090 comparetotmag 1e-599999999 1e-400000000    ->  -1
ctmx1091 comparetotmag 1e-600000000 1e-400000000    ->  -1
ctmx1092 comparetotmag 9e-999999998 0.01            ->  -1
ctmx1093 comparetotmag 9e-999999998 0.1             ->  -1
ctmx1094 comparetotmag 0.01 9e-999999998            ->   1
ctmx1095 comparetotmag 1e599999999 1e400000001      ->   1
ctmx1096 comparetotmag 1e599999999 1e400000000      ->   1
ctmx1097 comparetotmag 1e600000000 1e400000000      ->   1
ctmx1098 comparetotmag 9e999999998 100              ->   1
ctmx1099 comparetotmag 9e999999998 10               ->   1
ctmx1100 comparetotmag 100  9e999999998             ->  -1
-- signs
ctmx1101 comparetotmag  1e+777777777  1e+411111111  ->   1
ctmx1102 comparetotmag  1e+777777777 -1e+411111111  ->   1
ctmx1103 comparetotmag -1e+777777777  1e+411111111  ->   1
ctmx1104 comparetotmag -1e+777777777 -1e+411111111  ->   1
ctmx1105 comparetotmag  1e-777777777  1e-411111111  ->  -1
ctmx1106 comparetotmag  1e-777777777 -1e-411111111  ->  -1
ctmx1107 comparetotmag -1e-777777777  1e-411111111  ->  -1
ctmx1108 comparetotmag -1e-777777777 -1e-411111111  ->  -1

-- spread zeros
ctmx1110 comparetotmag   0E-383  0        ->  -1
ctmx1111 comparetotmag   0E-383 -0        ->  -1
ctmx1112 comparetotmag  -0E-383  0        ->  -1
ctmx1113 comparetotmag  -0E-383 -0        ->  -1
ctmx1114 comparetotmag   0E-383  0E+384   ->  -1
ctmx1115 comparetotmag   0E-383 -0E+384   ->  -1
ctmx1116 comparetotmag  -0E-383  0E+384   ->  -1
ctmx1117 comparetotmag  -0E-383 -0E+384   ->  -1
ctmx1118 comparetotmag   0       0E+384   ->  -1
ctmx1119 comparetotmag   0      -0E+384   ->  -1
ctmx1120 comparetotmag  -0       0E+384   ->  -1
ctmx1121 comparetotmag  -0      -0E+384   ->  -1

ctmx1130 comparetotmag   0E+384  0        ->   1
ctmx1131 comparetotmag   0E+384 -0        ->   1
ctmx1132 comparetotmag  -0E+384  0        ->   1
ctmx1133 comparetotmag  -0E+384 -0        ->   1
ctmx1134 comparetotmag   0E+384  0E-383   ->   1
ctmx1135 comparetotmag   0E+384 -0E-383   ->   1
ctmx1136 comparetotmag  -0E+384  0E-383   ->   1
ctmx1137 comparetotmag  -0E+384 -0E-383   ->   1
ctmx1138 comparetotmag   0       0E-383   ->   1
ctmx1139 comparetotmag   0      -0E-383   ->   1
ctmx1140 comparetotmag  -0       0E-383   ->   1
ctmx1141 comparetotmag  -0      -0E-383   ->   1

-- Null tests
ctmx9990 comparetotmag 10  # -> NaN Invalid_operation
ctmx9991 comparetotmag  # 10 -> NaN Invalid_operation