Home | History | Annotate | Download | only in decimaltestdata
      1 ------------------------------------------------------------------------
      2 -- comparetotmag.decTest -- decimal comparison, abs. total ordering   --
      3 -- Copyright (c) IBM Corporation, 1981, 2008.  All rights reserved.   --
      4 ------------------------------------------------------------------------
      5 -- Please see the document "General Decimal Arithmetic Testcases"     --
      6 -- at http://www2.hursley.ibm.com/decimal for the description of      --
      7 -- these testcases.                                                   --
      8 --                                                                    --
      9 -- These testcases are experimental ('beta' versions), and they       --
     10 -- may contain errors.  They are offered on an as-is basis.  In       --
     11 -- particular, achieving the same results as the tests here is not    --
     12 -- a guarantee that an implementation complies with any Standard      --
     13 -- or specification.  The tests are not exhaustive.                   --
     14 --                                                                    --
     15 -- Please send comments, suggestions, and corrections to the author:  --
     16 --   Mike Cowlishaw, IBM Fellow                                       --
     17 --   IBM UK, PO Box 31, Birmingham Road, Warwick CV34 5JL, UK         --
     18 --   mfc (a] uk.ibm.com                                                   --
     19 ------------------------------------------------------------------------
     20 version: 2.59
     21 
     22 -- Note that it cannot be assumed that add/subtract tests cover paths
     23 -- for this operation adequately, here, because the code might be
     24 -- quite different (comparison cannot overflow or underflow, so
     25 -- actual subtractions are not necessary). Similarly, comparetotal
     26 -- will have some radically different paths than compare.
     27 
     28 extended:    1
     29 precision:   16
     30 rounding:    half_up
     31 maxExponent: 384
     32 minExponent: -383
     33 
     34 -- sanity checks
     35 ctmx001 comparetotmag  -2  -2   ->   0
     36 ctmx002 comparetotmag  -2  -1   ->   1
     37 ctmx003 comparetotmag  -2   0   ->   1
     38 ctmx004 comparetotmag  -2   1   ->   1
     39 ctmx005 comparetotmag  -2   2   ->   0
     40 ctmx006 comparetotmag  -1  -2   ->  -1
     41 ctmx007 comparetotmag  -1  -1   ->   0
     42 ctmx008 comparetotmag  -1   0   ->   1
     43 ctmx009 comparetotmag  -1   1   ->   0
     44 ctmx010 comparetotmag  -1   2   ->  -1
     45 ctmx011 comparetotmag   0  -2   ->  -1
     46 ctmx012 comparetotmag   0  -1   ->  -1
     47 ctmx013 comparetotmag   0   0   ->   0
     48 ctmx014 comparetotmag   0   1   ->  -1
     49 ctmx015 comparetotmag   0   2   ->  -1
     50 ctmx016 comparetotmag   1  -2   ->  -1
     51 ctmx017 comparetotmag   1  -1   ->   0
     52 ctmx018 comparetotmag   1   0   ->   1
     53 ctmx019 comparetotmag   1   1   ->   0
     54 ctmx020 comparetotmag   1   2   ->  -1
     55 ctmx021 comparetotmag   2  -2   ->   0
     56 ctmx022 comparetotmag   2  -1   ->   1
     57 ctmx023 comparetotmag   2   0   ->   1
     58 ctmx025 comparetotmag   2   1   ->   1
     59 ctmx026 comparetotmag   2   2   ->   0
     60 
     61 ctmx031 comparetotmag  -20  -20   ->   0
     62 ctmx032 comparetotmag  -20  -10   ->   1
     63 ctmx033 comparetotmag  -20   00   ->   1
     64 ctmx034 comparetotmag  -20   10   ->   1
     65 ctmx035 comparetotmag  -20   20   ->   0
     66 ctmx036 comparetotmag  -10  -20   ->  -1
     67 ctmx037 comparetotmag  -10  -10   ->   0
     68 ctmx038 comparetotmag  -10   00   ->   1
     69 ctmx039 comparetotmag  -10   10   ->   0
     70 ctmx040 comparetotmag  -10   20   ->  -1
     71 ctmx041 comparetotmag   00  -20   ->  -1
     72 ctmx042 comparetotmag   00  -10   ->  -1
     73 ctmx043 comparetotmag   00   00   ->   0
     74 ctmx044 comparetotmag   00   10   ->  -1
     75 ctmx045 comparetotmag   00   20   ->  -1
     76 ctmx046 comparetotmag   10  -20   ->  -1
     77 ctmx047 comparetotmag   10  -10   ->   0
     78 ctmx048 comparetotmag   10   00   ->   1
     79 ctmx049 comparetotmag   10   10   ->   0
     80 ctmx050 comparetotmag   10   20   ->  -1
     81 ctmx051 comparetotmag   20  -20   ->   0
     82 ctmx052 comparetotmag   20  -10   ->   1
     83 ctmx053 comparetotmag   20   00   ->   1
     84 ctmx055 comparetotmag   20   10   ->   1
     85 ctmx056 comparetotmag   20   20   ->   0
     86 
     87 ctmx061 comparetotmag  -2.0  -2.0   ->   0
     88 ctmx062 comparetotmag  -2.0  -1.0   ->   1
     89 ctmx063 comparetotmag  -2.0   0.0   ->   1
     90 ctmx064 comparetotmag  -2.0   1.0   ->   1
     91 ctmx065 comparetotmag  -2.0   2.0   ->   0
     92 ctmx066 comparetotmag  -1.0  -2.0   ->  -1
     93 ctmx067 comparetotmag  -1.0  -1.0   ->   0
     94 ctmx068 comparetotmag  -1.0   0.0   ->   1
     95 ctmx069 comparetotmag  -1.0   1.0   ->   0
     96 ctmx070 comparetotmag  -1.0   2.0   ->  -1
     97 ctmx071 comparetotmag   0.0  -2.0   ->  -1
     98 ctmx072 comparetotmag   0.0  -1.0   ->  -1
     99 ctmx073 comparetotmag   0.0   0.0   ->   0
    100 ctmx074 comparetotmag   0.0   1.0   ->  -1
    101 ctmx075 comparetotmag   0.0   2.0   ->  -1
    102 ctmx076 comparetotmag   1.0  -2.0   ->  -1
    103 ctmx077 comparetotmag   1.0  -1.0   ->   0
    104 ctmx078 comparetotmag   1.0   0.0   ->   1
    105 ctmx079 comparetotmag   1.0   1.0   ->   0
    106 ctmx080 comparetotmag   1.0   2.0   ->  -1
    107 ctmx081 comparetotmag   2.0  -2.0   ->   0
    108 ctmx082 comparetotmag   2.0  -1.0   ->   1
    109 ctmx083 comparetotmag   2.0   0.0   ->   1
    110 ctmx085 comparetotmag   2.0   1.0   ->   1
    111 ctmx086 comparetotmag   2.0   2.0   ->   0
    112 
    113 -- now some cases which might overflow if subtract were used
    114 maxexponent: 999999999
    115 minexponent: -999999999
    116 ctmx090 comparetotmag  9.99999999E+999999999 9.99999999E+999999999   ->   0
    117 ctmx091 comparetotmag -9.99999999E+999999999 9.99999999E+999999999   ->   0
    118 ctmx092 comparetotmag  9.99999999E+999999999 -9.99999999E+999999999  ->   0
    119 ctmx093 comparetotmag -9.99999999E+999999999 -9.99999999E+999999999  ->   0
    120 
    121 -- some differing length/exponent cases
    122 -- in this first group, compare would compare all equal
    123 ctmx100 comparetotmag   7.0    7.0     ->   0
    124 ctmx101 comparetotmag   7.0    7       ->  -1
    125 ctmx102 comparetotmag   7      7.0     ->   1
    126 ctmx103 comparetotmag   7E+0   7.0     ->   1
    127 ctmx104 comparetotmag   70E-1  7.0     ->   0
    128 ctmx105 comparetotmag   0.7E+1 7       ->   0
    129 ctmx106 comparetotmag   70E-1  7       ->  -1
    130 ctmx107 comparetotmag   7.0    7E+0    ->  -1
    131 ctmx108 comparetotmag   7.0    70E-1   ->   0
    132 ctmx109 comparetotmag   7      0.7E+1  ->   0
    133 ctmx110 comparetotmag   7      70E-1   ->   1
    134 
    135 ctmx120 comparetotmag   8.0    7.0     ->   1
    136 ctmx121 comparetotmag   8.0    7       ->   1
    137 ctmx122 comparetotmag   8      7.0     ->   1
    138 ctmx123 comparetotmag   8E+0   7.0     ->   1
    139 ctmx124 comparetotmag   80E-1  7.0     ->   1
    140 ctmx125 comparetotmag   0.8E+1 7       ->   1
    141 ctmx126 comparetotmag   80E-1  7       ->   1
    142 ctmx127 comparetotmag   8.0    7E+0    ->   1
    143 ctmx128 comparetotmag   8.0    70E-1   ->   1
    144 ctmx129 comparetotmag   8      0.7E+1   ->   1
    145 ctmx130 comparetotmag   8      70E-1   ->   1
    146 
    147 ctmx140 comparetotmag   8.0    9.0     ->  -1
    148 ctmx141 comparetotmag   8.0    9       ->  -1
    149 ctmx142 comparetotmag   8      9.0     ->  -1
    150 ctmx143 comparetotmag   8E+0   9.0     ->  -1
    151 ctmx144 comparetotmag   80E-1  9.0     ->  -1
    152 ctmx145 comparetotmag   0.8E+1 9       ->  -1
    153 ctmx146 comparetotmag   80E-1  9       ->  -1
    154 ctmx147 comparetotmag   8.0    9E+0    ->  -1
    155 ctmx148 comparetotmag   8.0    90E-1   ->  -1
    156 ctmx149 comparetotmag   8      0.9E+1  ->  -1
    157 ctmx150 comparetotmag   8      90E-1   ->  -1
    158 
    159 -- and again, with sign changes -+ ..
    160 ctmx200 comparetotmag  -7.0    7.0     ->   0
    161 ctmx201 comparetotmag  -7.0    7       ->  -1
    162 ctmx202 comparetotmag  -7      7.0     ->   1
    163 ctmx203 comparetotmag  -7E+0   7.0     ->   1
    164 ctmx204 comparetotmag  -70E-1  7.0     ->   0
    165 ctmx205 comparetotmag  -0.7E+1 7       ->   0
    166 ctmx206 comparetotmag  -70E-1  7       ->  -1
    167 ctmx207 comparetotmag  -7.0    7E+0    ->  -1
    168 ctmx208 comparetotmag  -7.0    70E-1   ->   0
    169 ctmx209 comparetotmag  -7      0.7E+1  ->   0
    170 ctmx210 comparetotmag  -7      70E-1   ->   1
    171 
    172 ctmx220 comparetotmag  -8.0    7.0     ->   1
    173 ctmx221 comparetotmag  -8.0    7       ->   1
    174 ctmx222 comparetotmag  -8      7.0     ->   1
    175 ctmx223 comparetotmag  -8E+0   7.0     ->   1
    176 ctmx224 comparetotmag  -80E-1  7.0     ->   1
    177 ctmx225 comparetotmag  -0.8E+1 7       ->   1
    178 ctmx226 comparetotmag  -80E-1  7       ->   1
    179 ctmx227 comparetotmag  -8.0    7E+0    ->   1
    180 ctmx228 comparetotmag  -8.0    70E-1   ->   1
    181 ctmx229 comparetotmag  -8      0.7E+1  ->   1
    182 ctmx230 comparetotmag  -8      70E-1   ->   1
    183 
    184 ctmx240 comparetotmag  -8.0    9.0     ->  -1
    185 ctmx241 comparetotmag  -8.0    9       ->  -1
    186 ctmx242 comparetotmag  -8      9.0     ->  -1
    187 ctmx243 comparetotmag  -8E+0   9.0     ->  -1
    188 ctmx244 comparetotmag  -80E-1  9.0     ->  -1
    189 ctmx245 comparetotmag  -0.8E+1 9       ->  -1
    190 ctmx246 comparetotmag  -80E-1  9       ->  -1
    191 ctmx247 comparetotmag  -8.0    9E+0    ->  -1
    192 ctmx248 comparetotmag  -8.0    90E-1   ->  -1
    193 ctmx249 comparetotmag  -8      0.9E+1  ->  -1
    194 ctmx250 comparetotmag  -8      90E-1   ->  -1
    195 
    196 -- and again, with sign changes +- ..
    197 ctmx300 comparetotmag   7.0    -7.0     ->   0
    198 ctmx301 comparetotmag   7.0    -7       ->  -1
    199 ctmx302 comparetotmag   7      -7.0     ->   1
    200 ctmx303 comparetotmag   7E+0   -7.0     ->   1
    201 ctmx304 comparetotmag   70E-1  -7.0     ->   0
    202 ctmx305 comparetotmag   .7E+1  -7       ->   0
    203 ctmx306 comparetotmag   70E-1  -7       ->  -1
    204 ctmx307 comparetotmag   7.0    -7E+0    ->  -1
    205 ctmx308 comparetotmag   7.0    -70E-1   ->   0
    206 ctmx309 comparetotmag   7      -.7E+1   ->   0
    207 ctmx310 comparetotmag   7      -70E-1   ->   1
    208 
    209 ctmx320 comparetotmag   8.0    -7.0     ->   1
    210 ctmx321 comparetotmag   8.0    -7       ->   1
    211 ctmx322 comparetotmag   8      -7.0     ->   1
    212 ctmx323 comparetotmag   8E+0   -7.0     ->   1
    213 ctmx324 comparetotmag   80E-1  -7.0     ->   1
    214 ctmx325 comparetotmag   .8E+1  -7       ->   1
    215 ctmx326 comparetotmag   80E-1  -7       ->   1
    216 ctmx327 comparetotmag   8.0    -7E+0    ->   1
    217 ctmx328 comparetotmag   8.0    -70E-1   ->   1
    218 ctmx329 comparetotmag   8      -.7E+1   ->   1
    219 ctmx330 comparetotmag   8      -70E-1   ->   1
    220 
    221 ctmx340 comparetotmag   8.0    -9.0     ->  -1
    222 ctmx341 comparetotmag   8.0    -9       ->  -1
    223 ctmx342 comparetotmag   8      -9.0     ->  -1
    224 ctmx343 comparetotmag   8E+0   -9.0     ->  -1
    225 ctmx344 comparetotmag   80E-1  -9.0     ->  -1
    226 ctmx345 comparetotmag   .8E+1  -9       ->  -1
    227 ctmx346 comparetotmag   80E-1  -9       ->  -1
    228 ctmx347 comparetotmag   8.0    -9E+0    ->  -1
    229 ctmx348 comparetotmag   8.0    -90E-1   ->  -1
    230 ctmx349 comparetotmag   8      -.9E+1   ->  -1
    231 ctmx350 comparetotmag   8      -90E-1   ->  -1
    232 
    233 -- and again, with sign changes -- ..
    234 ctmx400 comparetotmag   -7.0    -7.0     ->   0
    235 ctmx401 comparetotmag   -7.0    -7       ->  -1
    236 ctmx402 comparetotmag   -7      -7.0     ->   1
    237 ctmx403 comparetotmag   -7E+0   -7.0     ->   1
    238 ctmx404 comparetotmag   -70E-1  -7.0     ->   0
    239 ctmx405 comparetotmag   -.7E+1  -7       ->   0
    240 ctmx406 comparetotmag   -70E-1  -7       ->  -1
    241 ctmx407 comparetotmag   -7.0    -7E+0    ->  -1
    242 ctmx408 comparetotmag   -7.0    -70E-1   ->   0
    243 ctmx409 comparetotmag   -7      -.7E+1   ->   0
    244 ctmx410 comparetotmag   -7      -70E-1   ->   1
    245 
    246 ctmx420 comparetotmag   -8.0    -7.0     ->   1
    247 ctmx421 comparetotmag   -8.0    -7       ->   1
    248 ctmx422 comparetotmag   -8      -7.0     ->   1
    249 ctmx423 comparetotmag   -8E+0   -7.0     ->   1
    250 ctmx424 comparetotmag   -80E-1  -7.0     ->   1
    251 ctmx425 comparetotmag   -.8E+1  -7       ->   1
    252 ctmx426 comparetotmag   -80E-1  -7       ->   1
    253 ctmx427 comparetotmag   -8.0    -7E+0    ->   1
    254 ctmx428 comparetotmag   -8.0    -70E-1   ->   1
    255 ctmx429 comparetotmag   -8      -.7E+1   ->   1
    256 ctmx430 comparetotmag   -8      -70E-1   ->   1
    257 
    258 ctmx440 comparetotmag   -8.0    -9.0     ->  -1
    259 ctmx441 comparetotmag   -8.0    -9       ->  -1
    260 ctmx442 comparetotmag   -8      -9.0     ->  -1
    261 ctmx443 comparetotmag   -8E+0   -9.0     ->  -1
    262 ctmx444 comparetotmag   -80E-1  -9.0     ->  -1
    263 ctmx445 comparetotmag   -.8E+1  -9       ->  -1
    264 ctmx446 comparetotmag   -80E-1  -9       ->  -1
    265 ctmx447 comparetotmag   -8.0    -9E+0    ->  -1
    266 ctmx448 comparetotmag   -8.0    -90E-1   ->  -1
    267 ctmx449 comparetotmag   -8      -.9E+1   ->  -1
    268 ctmx450 comparetotmag   -8      -90E-1   ->  -1
    269 
    270 
    271 -- testcases that subtract to lots of zeros at boundaries [pgr]
    272 precision: 40
    273 ctmx470 comparetotmag 123.4560000000000000E789 123.456E789  ->  -1
    274 ctmx471 comparetotmag 123.456000000000000E-89 123.456E-89  ->  -1
    275 ctmx472 comparetotmag 123.45600000000000E789 123.456E789  ->  -1
    276 ctmx473 comparetotmag 123.4560000000000E-89 123.456E-89  ->  -1
    277 ctmx474 comparetotmag 123.456000000000E789 123.456E789  ->  -1
    278 ctmx475 comparetotmag 123.45600000000E-89 123.456E-89  ->  -1
    279 ctmx476 comparetotmag 123.4560000000E789 123.456E789  ->  -1
    280 ctmx477 comparetotmag 123.456000000E-89 123.456E-89  ->  -1
    281 ctmx478 comparetotmag 123.45600000E789 123.456E789  ->  -1
    282 ctmx479 comparetotmag 123.4560000E-89 123.456E-89  ->  -1
    283 ctmx480 comparetotmag 123.456000E789 123.456E789  ->  -1
    284 ctmx481 comparetotmag 123.45600E-89 123.456E-89  ->  -1
    285 ctmx482 comparetotmag 123.4560E789 123.456E789  ->  -1
    286 ctmx483 comparetotmag 123.456E-89 123.456E-89  ->   0
    287 ctmx484 comparetotmag 123.456E-89 123.4560000000000000E-89  ->   1
    288 ctmx485 comparetotmag 123.456E789 123.456000000000000E789  ->   1
    289 ctmx486 comparetotmag 123.456E-89 123.45600000000000E-89  ->   1
    290 ctmx487 comparetotmag 123.456E789 123.4560000000000E789  ->   1
    291 ctmx488 comparetotmag 123.456E-89 123.456000000000E-89  ->   1
    292 ctmx489 comparetotmag 123.456E789 123.45600000000E789  ->   1
    293 ctmx490 comparetotmag 123.456E-89 123.4560000000E-89  ->   1
    294 ctmx491 comparetotmag 123.456E789 123.456000000E789  ->   1
    295 ctmx492 comparetotmag 123.456E-89 123.45600000E-89  ->   1
    296 ctmx493 comparetotmag 123.456E789 123.4560000E789  ->   1
    297 ctmx494 comparetotmag 123.456E-89 123.456000E-89  ->   1
    298 ctmx495 comparetotmag 123.456E789 123.45600E789  ->   1
    299 ctmx496 comparetotmag 123.456E-89 123.4560E-89  ->   1
    300 ctmx497 comparetotmag 123.456E789 123.456E789  ->   0
    301 
    302 -- wide-ranging, around precision; signs equal
    303 precision: 9
    304 ctmx500 comparetotmag    1     1E-15     ->   1
    305 ctmx501 comparetotmag    1     1E-14     ->   1
    306 ctmx502 comparetotmag    1     1E-13     ->   1
    307 ctmx503 comparetotmag    1     1E-12     ->   1
    308 ctmx504 comparetotmag    1     1E-11     ->   1
    309 ctmx505 comparetotmag    1     1E-10     ->   1
    310 ctmx506 comparetotmag    1     1E-9      ->   1
    311 ctmx507 comparetotmag    1     1E-8      ->   1
    312 ctmx508 comparetotmag    1     1E-7      ->   1
    313 ctmx509 comparetotmag    1     1E-6      ->   1
    314 ctmx510 comparetotmag    1     1E-5      ->   1
    315 ctmx511 comparetotmag    1     1E-4      ->   1
    316 ctmx512 comparetotmag    1     1E-3      ->   1
    317 ctmx513 comparetotmag    1     1E-2      ->   1
    318 ctmx514 comparetotmag    1     1E-1      ->   1
    319 ctmx515 comparetotmag    1     1E-0      ->   0
    320 ctmx516 comparetotmag    1     1E+1      ->  -1
    321 ctmx517 comparetotmag    1     1E+2      ->  -1
    322 ctmx518 comparetotmag    1     1E+3      ->  -1
    323 ctmx519 comparetotmag    1     1E+4      ->  -1
    324 ctmx521 comparetotmag    1     1E+5      ->  -1
    325 ctmx522 comparetotmag    1     1E+6      ->  -1
    326 ctmx523 comparetotmag    1     1E+7      ->  -1
    327 ctmx524 comparetotmag    1     1E+8      ->  -1
    328 ctmx525 comparetotmag    1     1E+9      ->  -1
    329 ctmx526 comparetotmag    1     1E+10     ->  -1
    330 ctmx527 comparetotmag    1     1E+11     ->  -1
    331 ctmx528 comparetotmag    1     1E+12     ->  -1
    332 ctmx529 comparetotmag    1     1E+13     ->  -1
    333 ctmx530 comparetotmag    1     1E+14     ->  -1
    334 ctmx531 comparetotmag    1     1E+15     ->  -1
    335 -- LR swap
    336 ctmx540 comparetotmag    1E-15  1        ->  -1
    337 ctmx541 comparetotmag    1E-14  1        ->  -1
    338 ctmx542 comparetotmag    1E-13  1        ->  -1
    339 ctmx543 comparetotmag    1E-12  1        ->  -1
    340 ctmx544 comparetotmag    1E-11  1        ->  -1
    341 ctmx545 comparetotmag    1E-10  1        ->  -1
    342 ctmx546 comparetotmag    1E-9   1        ->  -1
    343 ctmx547 comparetotmag    1E-8   1        ->  -1
    344 ctmx548 comparetotmag    1E-7   1        ->  -1
    345 ctmx549 comparetotmag    1E-6   1        ->  -1
    346 ctmx550 comparetotmag    1E-5   1        ->  -1
    347 ctmx551 comparetotmag    1E-4   1        ->  -1
    348 ctmx552 comparetotmag    1E-3   1        ->  -1
    349 ctmx553 comparetotmag    1E-2   1        ->  -1
    350 ctmx554 comparetotmag    1E-1   1        ->  -1
    351 ctmx555 comparetotmag    1E-0   1        ->   0
    352 ctmx556 comparetotmag    1E+1   1        ->   1
    353 ctmx557 comparetotmag    1E+2   1        ->   1
    354 ctmx558 comparetotmag    1E+3   1        ->   1
    355 ctmx559 comparetotmag    1E+4   1        ->   1
    356 ctmx561 comparetotmag    1E+5   1        ->   1
    357 ctmx562 comparetotmag    1E+6   1        ->   1
    358 ctmx563 comparetotmag    1E+7   1        ->   1
    359 ctmx564 comparetotmag    1E+8   1        ->   1
    360 ctmx565 comparetotmag    1E+9   1        ->   1
    361 ctmx566 comparetotmag    1E+10  1        ->   1
    362 ctmx567 comparetotmag    1E+11  1        ->   1
    363 ctmx568 comparetotmag    1E+12  1        ->   1
    364 ctmx569 comparetotmag    1E+13  1        ->   1
    365 ctmx570 comparetotmag    1E+14  1        ->   1
    366 ctmx571 comparetotmag    1E+15  1        ->   1
    367 -- similar with an useful coefficient, one side only
    368 ctmx580 comparetotmag  0.000000987654321     1E-15     ->   1
    369 ctmx581 comparetotmag  0.000000987654321     1E-14     ->   1
    370 ctmx582 comparetotmag  0.000000987654321     1E-13     ->   1
    371 ctmx583 comparetotmag  0.000000987654321     1E-12     ->   1
    372 ctmx584 comparetotmag  0.000000987654321     1E-11     ->   1
    373 ctmx585 comparetotmag  0.000000987654321     1E-10     ->   1
    374 ctmx586 comparetotmag  0.000000987654321     1E-9      ->   1
    375 ctmx587 comparetotmag  0.000000987654321     1E-8      ->   1
    376 ctmx588 comparetotmag  0.000000987654321     1E-7      ->   1
    377 ctmx589 comparetotmag  0.000000987654321     1E-6      ->  -1
    378 ctmx590 comparetotmag  0.000000987654321     1E-5      ->  -1
    379 ctmx591 comparetotmag  0.000000987654321     1E-4      ->  -1
    380 ctmx592 comparetotmag  0.000000987654321     1E-3      ->  -1
    381 ctmx593 comparetotmag  0.000000987654321     1E-2      ->  -1
    382 ctmx594 comparetotmag  0.000000987654321     1E-1      ->  -1
    383 ctmx595 comparetotmag  0.000000987654321     1E-0      ->  -1
    384 ctmx596 comparetotmag  0.000000987654321     1E+1      ->  -1
    385 ctmx597 comparetotmag  0.000000987654321     1E+2      ->  -1
    386 ctmx598 comparetotmag  0.000000987654321     1E+3      ->  -1
    387 ctmx599 comparetotmag  0.000000987654321     1E+4      ->  -1
    388 
    389 -- check some unit-y traps
    390 precision: 20
    391 ctmx600 comparetotmag   12            12.2345  ->  -1
    392 ctmx601 comparetotmag   12.0          12.2345  ->  -1
    393 ctmx602 comparetotmag   12.00         12.2345  ->  -1
    394 ctmx603 comparetotmag   12.000        12.2345  ->  -1
    395 ctmx604 comparetotmag   12.0000       12.2345  ->  -1
    396 ctmx605 comparetotmag   12.00000      12.2345  ->  -1
    397 ctmx606 comparetotmag   12.000000     12.2345  ->  -1
    398 ctmx607 comparetotmag   12.0000000    12.2345  ->  -1
    399 ctmx608 comparetotmag   12.00000000   12.2345  ->  -1
    400 ctmx609 comparetotmag   12.000000000  12.2345  ->  -1
    401 ctmx610 comparetotmag   12.1234 12             ->   1
    402 ctmx611 comparetotmag   12.1234 12.0           ->   1
    403 ctmx612 comparetotmag   12.1234 12.00          ->   1
    404 ctmx613 comparetotmag   12.1234 12.000         ->   1
    405 ctmx614 comparetotmag   12.1234 12.0000        ->   1
    406 ctmx615 comparetotmag   12.1234 12.00000       ->   1
    407 ctmx616 comparetotmag   12.1234 12.000000      ->   1
    408 ctmx617 comparetotmag   12.1234 12.0000000     ->   1
    409 ctmx618 comparetotmag   12.1234 12.00000000    ->   1
    410 ctmx619 comparetotmag   12.1234 12.000000000   ->   1
    411 ctmx620 comparetotmag  -12           -12.2345  ->  -1
    412 ctmx621 comparetotmag  -12.0         -12.2345  ->  -1
    413 ctmx622 comparetotmag  -12.00        -12.2345  ->  -1
    414 ctmx623 comparetotmag  -12.000       -12.2345  ->  -1
    415 ctmx624 comparetotmag  -12.0000      -12.2345  ->  -1
    416 ctmx625 comparetotmag  -12.00000     -12.2345  ->  -1
    417 ctmx626 comparetotmag  -12.000000    -12.2345  ->  -1
    418 ctmx627 comparetotmag  -12.0000000   -12.2345  ->  -1
    419 ctmx628 comparetotmag  -12.00000000  -12.2345  ->  -1
    420 ctmx629 comparetotmag  -12.000000000 -12.2345  ->  -1
    421 ctmx630 comparetotmag  -12.1234 -12            ->   1
    422 ctmx631 comparetotmag  -12.1234 -12.0          ->   1
    423 ctmx632 comparetotmag  -12.1234 -12.00         ->   1
    424 ctmx633 comparetotmag  -12.1234 -12.000        ->   1
    425 ctmx634 comparetotmag  -12.1234 -12.0000       ->   1
    426 ctmx635 comparetotmag  -12.1234 -12.00000      ->   1
    427 ctmx636 comparetotmag  -12.1234 -12.000000     ->   1
    428 ctmx637 comparetotmag  -12.1234 -12.0000000    ->   1
    429 ctmx638 comparetotmag  -12.1234 -12.00000000   ->   1
    430 ctmx639 comparetotmag  -12.1234 -12.000000000  ->   1
    431 precision: 9
    432 
    433 -- extended zeros
    434 ctmx640 comparetotmag   0     0    ->   0
    435 ctmx641 comparetotmag   0    -0    ->   0
    436 ctmx642 comparetotmag   0    -0.0  ->   1
    437 ctmx643 comparetotmag   0     0.0  ->   1
    438 ctmx644 comparetotmag  -0     0    ->   0
    439 ctmx645 comparetotmag  -0    -0    ->   0
    440 ctmx646 comparetotmag  -0    -0.0  ->   1
    441 ctmx647 comparetotmag  -0     0.0  ->   1
    442 ctmx648 comparetotmag   0.0   0    ->  -1
    443 ctmx649 comparetotmag   0.0  -0    ->  -1
    444 ctmx650 comparetotmag   0.0  -0.0  ->   0
    445 ctmx651 comparetotmag   0.0   0.0  ->   0
    446 ctmx652 comparetotmag  -0.0   0    ->  -1
    447 ctmx653 comparetotmag  -0.0  -0    ->  -1
    448 ctmx654 comparetotmag  -0.0  -0.0  ->   0
    449 ctmx655 comparetotmag  -0.0   0.0  ->   0
    450 
    451 ctmx656 comparetotmag  -0E1   0.0  ->   1
    452 ctmx657 comparetotmag  -0E2   0.0  ->   1
    453 ctmx658 comparetotmag   0E1   0.0  ->   1
    454 ctmx659 comparetotmag   0E2   0.0  ->   1
    455 ctmx660 comparetotmag  -0E1   0    ->   1
    456 ctmx661 comparetotmag  -0E2   0    ->   1
    457 ctmx662 comparetotmag   0E1   0    ->   1
    458 ctmx663 comparetotmag   0E2   0    ->   1
    459 ctmx664 comparetotmag  -0E1  -0E1  ->   0
    460 ctmx665 comparetotmag  -0E2  -0E1  ->   1
    461 ctmx666 comparetotmag   0E1  -0E1  ->   0
    462 ctmx667 comparetotmag   0E2  -0E1  ->   1
    463 ctmx668 comparetotmag  -0E1  -0E2  ->  -1
    464 ctmx669 comparetotmag  -0E2  -0E2  ->   0
    465 ctmx670 comparetotmag   0E1  -0E2  ->  -1
    466 ctmx671 comparetotmag   0E2  -0E2  ->   0
    467 ctmx672 comparetotmag  -0E1   0E1  ->   0
    468 ctmx673 comparetotmag  -0E2   0E1  ->   1
    469 ctmx674 comparetotmag   0E1   0E1  ->   0
    470 ctmx675 comparetotmag   0E2   0E1  ->   1
    471 ctmx676 comparetotmag  -0E1   0E2  ->  -1
    472 ctmx677 comparetotmag  -0E2   0E2  ->   0
    473 ctmx678 comparetotmag   0E1   0E2  ->  -1
    474 ctmx679 comparetotmag   0E2   0E2  ->   0
    475 
    476 -- trailing zeros; unit-y
    477 precision: 20
    478 ctmx680 comparetotmag   12    12            ->   0
    479 ctmx681 comparetotmag   12    12.0          ->   1
    480 ctmx682 comparetotmag   12    12.00         ->   1
    481 ctmx683 comparetotmag   12    12.000        ->   1
    482 ctmx684 comparetotmag   12    12.0000       ->   1
    483 ctmx685 comparetotmag   12    12.00000      ->   1
    484 ctmx686 comparetotmag   12    12.000000     ->   1
    485 ctmx687 comparetotmag   12    12.0000000    ->   1
    486 ctmx688 comparetotmag   12    12.00000000   ->   1
    487 ctmx689 comparetotmag   12    12.000000000  ->   1
    488 ctmx690 comparetotmag   12              12  ->   0
    489 ctmx691 comparetotmag   12.0            12  ->  -1
    490 ctmx692 comparetotmag   12.00           12  ->  -1
    491 ctmx693 comparetotmag   12.000          12  ->  -1
    492 ctmx694 comparetotmag   12.0000         12  ->  -1
    493 ctmx695 comparetotmag   12.00000        12  ->  -1
    494 ctmx696 comparetotmag   12.000000       12  ->  -1
    495 ctmx697 comparetotmag   12.0000000      12  ->  -1
    496 ctmx698 comparetotmag   12.00000000     12  ->  -1
    497 ctmx699 comparetotmag   12.000000000    12  ->  -1
    498 
    499 -- long operand checks
    500 maxexponent: 999
    501 minexponent: -999
    502 precision: 9
    503 ctmx701 comparetotmag 12345678000  1  ->   1
    504 ctmx702 comparetotmag 1 12345678000   ->  -1
    505 ctmx703 comparetotmag 1234567800   1  ->   1
    506 ctmx704 comparetotmag 1 1234567800    ->  -1
    507 ctmx705 comparetotmag 1234567890   1  ->   1
    508 ctmx706 comparetotmag 1 1234567890    ->  -1
    509 ctmx707 comparetotmag 1234567891   1  ->   1
    510 ctmx708 comparetotmag 1 1234567891    ->  -1
    511 ctmx709 comparetotmag 12345678901  1  ->   1
    512 ctmx710 comparetotmag 1 12345678901   ->  -1
    513 ctmx711 comparetotmag 1234567896   1  ->   1
    514 ctmx712 comparetotmag 1 1234567896    ->  -1
    515 ctmx713 comparetotmag -1234567891  1  ->   1
    516 ctmx714 comparetotmag 1 -1234567891   ->  -1
    517 ctmx715 comparetotmag -12345678901 1  ->   1
    518 ctmx716 comparetotmag 1 -12345678901  ->  -1
    519 ctmx717 comparetotmag -1234567896  1  ->   1
    520 ctmx718 comparetotmag 1 -1234567896   ->  -1
    521 
    522 precision: 15
    523 -- same with plenty of precision
    524 ctmx721 comparetotmag 12345678000 1  ->   1
    525 ctmx722 comparetotmag 1 12345678000  ->  -1
    526 ctmx723 comparetotmag 1234567800  1  ->   1
    527 ctmx724 comparetotmag 1 1234567800   ->  -1
    528 ctmx725 comparetotmag 1234567890  1  ->   1
    529 ctmx726 comparetotmag 1 1234567890   ->  -1
    530 ctmx727 comparetotmag 1234567891  1  ->   1
    531 ctmx728 comparetotmag 1 1234567891   ->  -1
    532 ctmx729 comparetotmag 12345678901 1  ->   1
    533 ctmx730 comparetotmag 1 12345678901  ->  -1
    534 ctmx731 comparetotmag 1234567896  1  ->   1
    535 ctmx732 comparetotmag 1 1234567896   ->  -1
    536 
    537 -- residue cases
    538 precision: 5
    539 ctmx740 comparetotmag  1  0.9999999   ->   1
    540 ctmx741 comparetotmag  1  0.999999    ->   1
    541 ctmx742 comparetotmag  1  0.99999     ->   1
    542 ctmx743 comparetotmag  1  1.0000      ->   1
    543 ctmx744 comparetotmag  1  1.00001     ->  -1
    544 ctmx745 comparetotmag  1  1.000001    ->  -1
    545 ctmx746 comparetotmag  1  1.0000001   ->  -1
    546 ctmx750 comparetotmag  0.9999999  1   ->  -1
    547 ctmx751 comparetotmag  0.999999   1   ->  -1
    548 ctmx752 comparetotmag  0.99999    1   ->  -1
    549 ctmx753 comparetotmag  1.0000     1   ->  -1
    550 ctmx754 comparetotmag  1.00001    1   ->   1
    551 ctmx755 comparetotmag  1.000001   1   ->   1
    552 ctmx756 comparetotmag  1.0000001  1   ->   1
    553 
    554 -- a selection of longies
    555 ctmx760 comparetotmag -36852134.84194296250843579428931 -5830629.8347085025808756560357940  ->   1
    556 ctmx761 comparetotmag -36852134.84194296250843579428931 -36852134.84194296250843579428931   ->   0
    557 ctmx762 comparetotmag -36852134.94194296250843579428931 -36852134.84194296250843579428931   ->   1
    558 ctmx763 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931   ->  -1
    559 -- precisions above or below the difference should have no effect
    560 precision:   11
    561 ctmx764 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931   ->  -1
    562 precision:   10
    563 ctmx765 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931   ->  -1
    564 precision:    9
    565 ctmx766 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931   ->  -1
    566 precision:    8
    567 ctmx767 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931   ->  -1
    568 precision:    7
    569 ctmx768 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931   ->  -1
    570 precision:    6
    571 ctmx769 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931   ->  -1
    572 precision:    5
    573 ctmx770 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931   ->  -1
    574 precision:    4
    575 ctmx771 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931   ->  -1
    576 precision:    3
    577 ctmx772 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931   ->  -1
    578 precision:    2
    579 ctmx773 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931   ->  -1
    580 precision:    1
    581 ctmx774 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931   ->  -1
    582 
    583 -- Specials
    584 precision:   9
    585 ctmx780 comparetotmag  Inf  -Inf   ->  0
    586 ctmx781 comparetotmag  Inf  -1000  ->  1
    587 ctmx782 comparetotmag  Inf  -1     ->  1
    588 ctmx783 comparetotmag  Inf  -0     ->  1
    589 ctmx784 comparetotmag  Inf   0     ->  1
    590 ctmx785 comparetotmag  Inf   1     ->  1
    591 ctmx786 comparetotmag  Inf   1000  ->  1
    592 ctmx787 comparetotmag  Inf   Inf   ->  0
    593 ctmx788 comparetotmag -1000  Inf   -> -1
    594 ctmx789 comparetotmag -Inf   Inf   ->  0
    595 ctmx790 comparetotmag -1     Inf   -> -1
    596 ctmx791 comparetotmag -0     Inf   -> -1
    597 ctmx792 comparetotmag  0     Inf   -> -1
    598 ctmx793 comparetotmag  1     Inf   -> -1
    599 ctmx794 comparetotmag  1000  Inf   -> -1
    600 ctmx795 comparetotmag  Inf   Inf   ->  0
    601 
    602 ctmx800 comparetotmag -Inf  -Inf   ->  0
    603 ctmx801 comparetotmag -Inf  -1000  ->  1
    604 ctmx802 comparetotmag -Inf  -1     ->  1
    605 ctmx803 comparetotmag -Inf  -0     ->  1
    606 ctmx804 comparetotmag -Inf   0     ->  1
    607 ctmx805 comparetotmag -Inf   1     ->  1
    608 ctmx806 comparetotmag -Inf   1000  ->  1
    609 ctmx807 comparetotmag -Inf   Inf   ->  0
    610 ctmx808 comparetotmag -Inf  -Inf   ->  0
    611 ctmx809 comparetotmag -1000 -Inf   -> -1
    612 ctmx810 comparetotmag -1    -Inf   -> -1
    613 ctmx811 comparetotmag -0    -Inf   -> -1
    614 ctmx812 comparetotmag  0    -Inf   -> -1
    615 ctmx813 comparetotmag  1    -Inf   -> -1
    616 ctmx814 comparetotmag  1000 -Inf   -> -1
    617 ctmx815 comparetotmag  Inf  -Inf   ->  0
    618 
    619 ctmx821 comparetotmag  NaN -Inf    ->  1
    620 ctmx822 comparetotmag  NaN -1000   ->  1
    621 ctmx823 comparetotmag  NaN -1      ->  1
    622 ctmx824 comparetotmag  NaN -0      ->  1
    623 ctmx825 comparetotmag  NaN  0      ->  1
    624 ctmx826 comparetotmag  NaN  1      ->  1
    625 ctmx827 comparetotmag  NaN  1000   ->  1
    626 ctmx828 comparetotmag  NaN  Inf    ->  1
    627 ctmx829 comparetotmag  NaN  NaN    ->  0
    628 ctmx830 comparetotmag -Inf  NaN    ->  -1
    629 ctmx831 comparetotmag -1000 NaN    ->  -1
    630 ctmx832 comparetotmag -1    NaN    ->  -1
    631 ctmx833 comparetotmag -0    NaN    ->  -1
    632 ctmx834 comparetotmag  0    NaN    ->  -1
    633 ctmx835 comparetotmag  1    NaN    ->  -1
    634 ctmx836 comparetotmag  1000 NaN    ->  -1
    635 ctmx837 comparetotmag  Inf  NaN    ->  -1
    636 ctmx838 comparetotmag -NaN -NaN    ->  0
    637 ctmx839 comparetotmag +NaN -NaN    ->  0
    638 ctmx840 comparetotmag -NaN +NaN    ->  0
    639 
    640 ctmx841 comparetotmag  sNaN -sNaN  ->  0
    641 ctmx842 comparetotmag  sNaN -NaN   ->  -1
    642 ctmx843 comparetotmag  sNaN -Inf   ->  1
    643 ctmx844 comparetotmag  sNaN -1000  ->  1
    644 ctmx845 comparetotmag  sNaN -1     ->  1
    645 ctmx846 comparetotmag  sNaN -0     ->  1
    646 ctmx847 comparetotmag  sNaN  0     ->  1
    647 ctmx848 comparetotmag  sNaN  1     ->  1
    648 ctmx849 comparetotmag  sNaN  1000  ->  1
    649 ctmx850 comparetotmag  sNaN  NaN   ->  -1
    650 ctmx851 comparetotmag  sNaN sNaN   ->  0
    651 
    652 ctmx852 comparetotmag -sNaN sNaN   ->  0
    653 ctmx853 comparetotmag -NaN  sNaN   ->  1
    654 ctmx854 comparetotmag -Inf  sNaN   ->  -1
    655 ctmx855 comparetotmag -1000 sNaN   ->  -1
    656 ctmx856 comparetotmag -1    sNaN   ->  -1
    657 ctmx857 comparetotmag -0    sNaN   ->  -1
    658 ctmx858 comparetotmag  0    sNaN   ->  -1
    659 ctmx859 comparetotmag  1    sNaN   ->  -1
    660 ctmx860 comparetotmag  1000 sNaN   ->  -1
    661 ctmx861 comparetotmag  Inf  sNaN   ->  -1
    662 ctmx862 comparetotmag  NaN  sNaN   ->  1
    663 ctmx863 comparetotmag  sNaN sNaN   ->  0
    664 
    665 ctmx871 comparetotmag  -sNaN -sNaN  ->  0
    666 ctmx872 comparetotmag  -sNaN -NaN   ->  -1
    667 ctmx873 comparetotmag  -sNaN -Inf   ->  1
    668 ctmx874 comparetotmag  -sNaN -1000  ->  1
    669 ctmx875 comparetotmag  -sNaN -1     ->  1
    670 ctmx876 comparetotmag  -sNaN -0     ->  1
    671 ctmx877 comparetotmag  -sNaN  0     ->  1
    672 ctmx878 comparetotmag  -sNaN  1     ->  1
    673 ctmx879 comparetotmag  -sNaN  1000  ->  1
    674 ctmx880 comparetotmag  -sNaN  NaN   ->  -1
    675 ctmx881 comparetotmag  -sNaN sNaN   ->  0
    676 
    677 ctmx882 comparetotmag -sNaN -sNaN   ->  0
    678 ctmx883 comparetotmag -NaN  -sNaN   ->  1
    679 ctmx884 comparetotmag -Inf  -sNaN   ->  -1
    680 ctmx885 comparetotmag -1000 -sNaN   ->  -1
    681 ctmx886 comparetotmag -1    -sNaN   ->  -1
    682 ctmx887 comparetotmag -0    -sNaN   ->  -1
    683 ctmx888 comparetotmag  0    -sNaN   ->  -1
    684 ctmx889 comparetotmag  1    -sNaN   ->  -1
    685 ctmx890 comparetotmag  1000 -sNaN   ->  -1
    686 ctmx891 comparetotmag  Inf  -sNaN   ->  -1
    687 ctmx892 comparetotmag  NaN  -sNaN   ->  1
    688 ctmx893 comparetotmag  sNaN -sNaN   ->  0
    689 
    690 -- NaNs with payload
    691 ctmx960 comparetotmag  NaN9 -Inf   ->  1
    692 ctmx961 comparetotmag  NaN8  999   ->  1
    693 ctmx962 comparetotmag  NaN77 Inf   ->  1
    694 ctmx963 comparetotmag -NaN67 NaN5  ->  1
    695 ctmx964 comparetotmag -Inf  -NaN4  ->  -1
    696 ctmx965 comparetotmag -999  -NaN33 ->  -1
    697 ctmx966 comparetotmag  Inf   NaN2  ->  -1
    698 
    699 ctmx970 comparetotmag -NaN41 -NaN42 -> -1
    700 ctmx971 comparetotmag +NaN41 -NaN42 -> -1
    701 ctmx972 comparetotmag -NaN41 +NaN42 -> -1
    702 ctmx973 comparetotmag +NaN41 +NaN42 -> -1
    703 ctmx974 comparetotmag -NaN42 -NaN01 ->  1
    704 ctmx975 comparetotmag +NaN42 -NaN01 ->  1
    705 ctmx976 comparetotmag -NaN42 +NaN01 ->  1
    706 ctmx977 comparetotmag +NaN42 +NaN01 ->  1
    707 
    708 ctmx980 comparetotmag -sNaN771 -sNaN772 -> -1
    709 ctmx981 comparetotmag +sNaN771 -sNaN772 -> -1
    710 ctmx982 comparetotmag -sNaN771 +sNaN772 -> -1
    711 ctmx983 comparetotmag +sNaN771 +sNaN772 -> -1
    712 ctmx984 comparetotmag -sNaN772 -sNaN771 ->  1
    713 ctmx985 comparetotmag +sNaN772 -sNaN771 ->  1
    714 ctmx986 comparetotmag -sNaN772 +sNaN771 ->  1
    715 ctmx987 comparetotmag +sNaN772 +sNaN771 ->  1
    716 
    717 ctmx991 comparetotmag -sNaN99 -Inf    ->  1
    718 ctmx992 comparetotmag  sNaN98 -11     ->  1
    719 ctmx993 comparetotmag  sNaN97  NaN    -> -1
    720 ctmx994 comparetotmag  sNaN16 sNaN94  -> -1
    721 ctmx995 comparetotmag  NaN85  sNaN83  ->  1
    722 ctmx996 comparetotmag -Inf    sNaN92  -> -1
    723 ctmx997 comparetotmag  088    sNaN81  -> -1
    724 ctmx998 comparetotmag  Inf    sNaN90  -> -1
    725 ctmx999 comparetotmag  NaN   -sNaN89  ->  1
    726 
    727 -- overflow and underflow tests .. subnormal results now allowed
    728 maxExponent: 999999999
    729 minexponent: -999999999
    730 ctmx1080 comparetotmag +1.23456789012345E-0 9E+999999999  ->  -1
    731 ctmx1081 comparetotmag 9E+999999999 +1.23456789012345E-0  ->   1
    732 ctmx1082 comparetotmag +0.100 9E-999999999                ->   1
    733 ctmx1083 comparetotmag 9E-999999999 +0.100                ->  -1
    734 ctmx1085 comparetotmag -1.23456789012345E-0 9E+999999999  ->  -1
    735 ctmx1086 comparetotmag 9E+999999999 -1.23456789012345E-0  ->   1
    736 ctmx1087 comparetotmag -0.100 9E-999999999                ->   1
    737 ctmx1088 comparetotmag 9E-999999999 -0.100                ->  -1
    738 
    739 ctmx1089 comparetotmag 1e-599999999 1e-400000001    ->  -1
    740 ctmx1090 comparetotmag 1e-599999999 1e-400000000    ->  -1
    741 ctmx1091 comparetotmag 1e-600000000 1e-400000000    ->  -1
    742 ctmx1092 comparetotmag 9e-999999998 0.01            ->  -1
    743 ctmx1093 comparetotmag 9e-999999998 0.1             ->  -1
    744 ctmx1094 comparetotmag 0.01 9e-999999998            ->   1
    745 ctmx1095 comparetotmag 1e599999999 1e400000001      ->   1
    746 ctmx1096 comparetotmag 1e599999999 1e400000000      ->   1
    747 ctmx1097 comparetotmag 1e600000000 1e400000000      ->   1
    748 ctmx1098 comparetotmag 9e999999998 100              ->   1
    749 ctmx1099 comparetotmag 9e999999998 10               ->   1
    750 ctmx1100 comparetotmag 100  9e999999998             ->  -1
    751 -- signs
    752 ctmx1101 comparetotmag  1e+777777777  1e+411111111  ->   1
    753 ctmx1102 comparetotmag  1e+777777777 -1e+411111111  ->   1
    754 ctmx1103 comparetotmag -1e+777777777  1e+411111111  ->   1
    755 ctmx1104 comparetotmag -1e+777777777 -1e+411111111  ->   1
    756 ctmx1105 comparetotmag  1e-777777777  1e-411111111  ->  -1
    757 ctmx1106 comparetotmag  1e-777777777 -1e-411111111  ->  -1
    758 ctmx1107 comparetotmag -1e-777777777  1e-411111111  ->  -1
    759 ctmx1108 comparetotmag -1e-777777777 -1e-411111111  ->  -1
    760 
    761 -- spread zeros
    762 ctmx1110 comparetotmag   0E-383  0        ->  -1
    763 ctmx1111 comparetotmag   0E-383 -0        ->  -1
    764 ctmx1112 comparetotmag  -0E-383  0        ->  -1
    765 ctmx1113 comparetotmag  -0E-383 -0        ->  -1
    766 ctmx1114 comparetotmag   0E-383  0E+384   ->  -1
    767 ctmx1115 comparetotmag   0E-383 -0E+384   ->  -1
    768 ctmx1116 comparetotmag  -0E-383  0E+384   ->  -1
    769 ctmx1117 comparetotmag  -0E-383 -0E+384   ->  -1
    770 ctmx1118 comparetotmag   0       0E+384   ->  -1
    771 ctmx1119 comparetotmag   0      -0E+384   ->  -1
    772 ctmx1120 comparetotmag  -0       0E+384   ->  -1
    773 ctmx1121 comparetotmag  -0      -0E+384   ->  -1
    774 
    775 ctmx1130 comparetotmag   0E+384  0        ->   1
    776 ctmx1131 comparetotmag   0E+384 -0        ->   1
    777 ctmx1132 comparetotmag  -0E+384  0        ->   1
    778 ctmx1133 comparetotmag  -0E+384 -0        ->   1
    779 ctmx1134 comparetotmag   0E+384  0E-383   ->   1
    780 ctmx1135 comparetotmag   0E+384 -0E-383   ->   1
    781 ctmx1136 comparetotmag  -0E+384  0E-383   ->   1
    782 ctmx1137 comparetotmag  -0E+384 -0E-383   ->   1
    783 ctmx1138 comparetotmag   0       0E-383   ->   1
    784 ctmx1139 comparetotmag   0      -0E-383   ->   1
    785 ctmx1140 comparetotmag  -0       0E-383   ->   1
    786 ctmx1141 comparetotmag  -0      -0E-383   ->   1
    787 
    788 -- Null tests
    789 ctmx9990 comparetotmag 10  # -> NaN Invalid_operation
    790 ctmx9991 comparetotmag  # 10 -> NaN Invalid_operation
    791