------------------------------------------------------------------------

-- 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.58

-- 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