+++ /dev/null
-------------------------------------------------------------------------\r
--- comparetotmag.decTest -- decimal comparison, abs. total ordering --\r
--- Copyright (c) IBM Corporation, 1981, 2008. All rights reserved. --\r
-------------------------------------------------------------------------\r
--- Please see the document "General Decimal Arithmetic Testcases" --\r
--- at http://www2.hursley.ibm.com/decimal for the description of --\r
--- these testcases. --\r
--- --\r
--- These testcases are experimental ('beta' versions), and they --\r
--- may contain errors. They are offered on an as-is basis. In --\r
--- particular, achieving the same results as the tests here is not --\r
--- a guarantee that an implementation complies with any Standard --\r
--- or specification. The tests are not exhaustive. --\r
--- --\r
--- Please send comments, suggestions, and corrections to the author: --\r
--- Mike Cowlishaw, IBM Fellow --\r
--- IBM UK, PO Box 31, Birmingham Road, Warwick CV34 5JL, UK --\r
--- mfc@uk.ibm.com --\r
-------------------------------------------------------------------------\r
-version: 2.59\r
-\r
--- Note that it cannot be assumed that add/subtract tests cover paths\r
--- for this operation adequately, here, because the code might be\r
--- quite different (comparison cannot overflow or underflow, so\r
--- actual subtractions are not necessary). Similarly, comparetotal\r
--- will have some radically different paths than compare.\r
-\r
-extended: 1\r
-precision: 16\r
-rounding: half_up\r
-maxExponent: 384\r
-minExponent: -383\r
-\r
--- sanity checks\r
-ctmx001 comparetotmag -2 -2 -> 0\r
-ctmx002 comparetotmag -2 -1 -> 1\r
-ctmx003 comparetotmag -2 0 -> 1\r
-ctmx004 comparetotmag -2 1 -> 1\r
-ctmx005 comparetotmag -2 2 -> 0\r
-ctmx006 comparetotmag -1 -2 -> -1\r
-ctmx007 comparetotmag -1 -1 -> 0\r
-ctmx008 comparetotmag -1 0 -> 1\r
-ctmx009 comparetotmag -1 1 -> 0\r
-ctmx010 comparetotmag -1 2 -> -1\r
-ctmx011 comparetotmag 0 -2 -> -1\r
-ctmx012 comparetotmag 0 -1 -> -1\r
-ctmx013 comparetotmag 0 0 -> 0\r
-ctmx014 comparetotmag 0 1 -> -1\r
-ctmx015 comparetotmag 0 2 -> -1\r
-ctmx016 comparetotmag 1 -2 -> -1\r
-ctmx017 comparetotmag 1 -1 -> 0\r
-ctmx018 comparetotmag 1 0 -> 1\r
-ctmx019 comparetotmag 1 1 -> 0\r
-ctmx020 comparetotmag 1 2 -> -1\r
-ctmx021 comparetotmag 2 -2 -> 0\r
-ctmx022 comparetotmag 2 -1 -> 1\r
-ctmx023 comparetotmag 2 0 -> 1\r
-ctmx025 comparetotmag 2 1 -> 1\r
-ctmx026 comparetotmag 2 2 -> 0\r
-\r
-ctmx031 comparetotmag -20 -20 -> 0\r
-ctmx032 comparetotmag -20 -10 -> 1\r
-ctmx033 comparetotmag -20 00 -> 1\r
-ctmx034 comparetotmag -20 10 -> 1\r
-ctmx035 comparetotmag -20 20 -> 0\r
-ctmx036 comparetotmag -10 -20 -> -1\r
-ctmx037 comparetotmag -10 -10 -> 0\r
-ctmx038 comparetotmag -10 00 -> 1\r
-ctmx039 comparetotmag -10 10 -> 0\r
-ctmx040 comparetotmag -10 20 -> -1\r
-ctmx041 comparetotmag 00 -20 -> -1\r
-ctmx042 comparetotmag 00 -10 -> -1\r
-ctmx043 comparetotmag 00 00 -> 0\r
-ctmx044 comparetotmag 00 10 -> -1\r
-ctmx045 comparetotmag 00 20 -> -1\r
-ctmx046 comparetotmag 10 -20 -> -1\r
-ctmx047 comparetotmag 10 -10 -> 0\r
-ctmx048 comparetotmag 10 00 -> 1\r
-ctmx049 comparetotmag 10 10 -> 0\r
-ctmx050 comparetotmag 10 20 -> -1\r
-ctmx051 comparetotmag 20 -20 -> 0\r
-ctmx052 comparetotmag 20 -10 -> 1\r
-ctmx053 comparetotmag 20 00 -> 1\r
-ctmx055 comparetotmag 20 10 -> 1\r
-ctmx056 comparetotmag 20 20 -> 0\r
-\r
-ctmx061 comparetotmag -2.0 -2.0 -> 0\r
-ctmx062 comparetotmag -2.0 -1.0 -> 1\r
-ctmx063 comparetotmag -2.0 0.0 -> 1\r
-ctmx064 comparetotmag -2.0 1.0 -> 1\r
-ctmx065 comparetotmag -2.0 2.0 -> 0\r
-ctmx066 comparetotmag -1.0 -2.0 -> -1\r
-ctmx067 comparetotmag -1.0 -1.0 -> 0\r
-ctmx068 comparetotmag -1.0 0.0 -> 1\r
-ctmx069 comparetotmag -1.0 1.0 -> 0\r
-ctmx070 comparetotmag -1.0 2.0 -> -1\r
-ctmx071 comparetotmag 0.0 -2.0 -> -1\r
-ctmx072 comparetotmag 0.0 -1.0 -> -1\r
-ctmx073 comparetotmag 0.0 0.0 -> 0\r
-ctmx074 comparetotmag 0.0 1.0 -> -1\r
-ctmx075 comparetotmag 0.0 2.0 -> -1\r
-ctmx076 comparetotmag 1.0 -2.0 -> -1\r
-ctmx077 comparetotmag 1.0 -1.0 -> 0\r
-ctmx078 comparetotmag 1.0 0.0 -> 1\r
-ctmx079 comparetotmag 1.0 1.0 -> 0\r
-ctmx080 comparetotmag 1.0 2.0 -> -1\r
-ctmx081 comparetotmag 2.0 -2.0 -> 0\r
-ctmx082 comparetotmag 2.0 -1.0 -> 1\r
-ctmx083 comparetotmag 2.0 0.0 -> 1\r
-ctmx085 comparetotmag 2.0 1.0 -> 1\r
-ctmx086 comparetotmag 2.0 2.0 -> 0\r
-\r
--- now some cases which might overflow if subtract were used\r
-maxexponent: 999999999\r
-minexponent: -999999999\r
-ctmx090 comparetotmag 9.99999999E+999999999 9.99999999E+999999999 -> 0\r
-ctmx091 comparetotmag -9.99999999E+999999999 9.99999999E+999999999 -> 0\r
-ctmx092 comparetotmag 9.99999999E+999999999 -9.99999999E+999999999 -> 0\r
-ctmx093 comparetotmag -9.99999999E+999999999 -9.99999999E+999999999 -> 0\r
-\r
--- some differing length/exponent cases\r
--- in this first group, compare would compare all equal\r
-ctmx100 comparetotmag 7.0 7.0 -> 0\r
-ctmx101 comparetotmag 7.0 7 -> -1\r
-ctmx102 comparetotmag 7 7.0 -> 1\r
-ctmx103 comparetotmag 7E+0 7.0 -> 1\r
-ctmx104 comparetotmag 70E-1 7.0 -> 0\r
-ctmx105 comparetotmag 0.7E+1 7 -> 0\r
-ctmx106 comparetotmag 70E-1 7 -> -1\r
-ctmx107 comparetotmag 7.0 7E+0 -> -1\r
-ctmx108 comparetotmag 7.0 70E-1 -> 0\r
-ctmx109 comparetotmag 7 0.7E+1 -> 0\r
-ctmx110 comparetotmag 7 70E-1 -> 1\r
-\r
-ctmx120 comparetotmag 8.0 7.0 -> 1\r
-ctmx121 comparetotmag 8.0 7 -> 1\r
-ctmx122 comparetotmag 8 7.0 -> 1\r
-ctmx123 comparetotmag 8E+0 7.0 -> 1\r
-ctmx124 comparetotmag 80E-1 7.0 -> 1\r
-ctmx125 comparetotmag 0.8E+1 7 -> 1\r
-ctmx126 comparetotmag 80E-1 7 -> 1\r
-ctmx127 comparetotmag 8.0 7E+0 -> 1\r
-ctmx128 comparetotmag 8.0 70E-1 -> 1\r
-ctmx129 comparetotmag 8 0.7E+1 -> 1\r
-ctmx130 comparetotmag 8 70E-1 -> 1\r
-\r
-ctmx140 comparetotmag 8.0 9.0 -> -1\r
-ctmx141 comparetotmag 8.0 9 -> -1\r
-ctmx142 comparetotmag 8 9.0 -> -1\r
-ctmx143 comparetotmag 8E+0 9.0 -> -1\r
-ctmx144 comparetotmag 80E-1 9.0 -> -1\r
-ctmx145 comparetotmag 0.8E+1 9 -> -1\r
-ctmx146 comparetotmag 80E-1 9 -> -1\r
-ctmx147 comparetotmag 8.0 9E+0 -> -1\r
-ctmx148 comparetotmag 8.0 90E-1 -> -1\r
-ctmx149 comparetotmag 8 0.9E+1 -> -1\r
-ctmx150 comparetotmag 8 90E-1 -> -1\r
-\r
--- and again, with sign changes -+ ..\r
-ctmx200 comparetotmag -7.0 7.0 -> 0\r
-ctmx201 comparetotmag -7.0 7 -> -1\r
-ctmx202 comparetotmag -7 7.0 -> 1\r
-ctmx203 comparetotmag -7E+0 7.0 -> 1\r
-ctmx204 comparetotmag -70E-1 7.0 -> 0\r
-ctmx205 comparetotmag -0.7E+1 7 -> 0\r
-ctmx206 comparetotmag -70E-1 7 -> -1\r
-ctmx207 comparetotmag -7.0 7E+0 -> -1\r
-ctmx208 comparetotmag -7.0 70E-1 -> 0\r
-ctmx209 comparetotmag -7 0.7E+1 -> 0\r
-ctmx210 comparetotmag -7 70E-1 -> 1\r
-\r
-ctmx220 comparetotmag -8.0 7.0 -> 1\r
-ctmx221 comparetotmag -8.0 7 -> 1\r
-ctmx222 comparetotmag -8 7.0 -> 1\r
-ctmx223 comparetotmag -8E+0 7.0 -> 1\r
-ctmx224 comparetotmag -80E-1 7.0 -> 1\r
-ctmx225 comparetotmag -0.8E+1 7 -> 1\r
-ctmx226 comparetotmag -80E-1 7 -> 1\r
-ctmx227 comparetotmag -8.0 7E+0 -> 1\r
-ctmx228 comparetotmag -8.0 70E-1 -> 1\r
-ctmx229 comparetotmag -8 0.7E+1 -> 1\r
-ctmx230 comparetotmag -8 70E-1 -> 1\r
-\r
-ctmx240 comparetotmag -8.0 9.0 -> -1\r
-ctmx241 comparetotmag -8.0 9 -> -1\r
-ctmx242 comparetotmag -8 9.0 -> -1\r
-ctmx243 comparetotmag -8E+0 9.0 -> -1\r
-ctmx244 comparetotmag -80E-1 9.0 -> -1\r
-ctmx245 comparetotmag -0.8E+1 9 -> -1\r
-ctmx246 comparetotmag -80E-1 9 -> -1\r
-ctmx247 comparetotmag -8.0 9E+0 -> -1\r
-ctmx248 comparetotmag -8.0 90E-1 -> -1\r
-ctmx249 comparetotmag -8 0.9E+1 -> -1\r
-ctmx250 comparetotmag -8 90E-1 -> -1\r
-\r
--- and again, with sign changes +- ..\r
-ctmx300 comparetotmag 7.0 -7.0 -> 0\r
-ctmx301 comparetotmag 7.0 -7 -> -1\r
-ctmx302 comparetotmag 7 -7.0 -> 1\r
-ctmx303 comparetotmag 7E+0 -7.0 -> 1\r
-ctmx304 comparetotmag 70E-1 -7.0 -> 0\r
-ctmx305 comparetotmag .7E+1 -7 -> 0\r
-ctmx306 comparetotmag 70E-1 -7 -> -1\r
-ctmx307 comparetotmag 7.0 -7E+0 -> -1\r
-ctmx308 comparetotmag 7.0 -70E-1 -> 0\r
-ctmx309 comparetotmag 7 -.7E+1 -> 0\r
-ctmx310 comparetotmag 7 -70E-1 -> 1\r
-\r
-ctmx320 comparetotmag 8.0 -7.0 -> 1\r
-ctmx321 comparetotmag 8.0 -7 -> 1\r
-ctmx322 comparetotmag 8 -7.0 -> 1\r
-ctmx323 comparetotmag 8E+0 -7.0 -> 1\r
-ctmx324 comparetotmag 80E-1 -7.0 -> 1\r
-ctmx325 comparetotmag .8E+1 -7 -> 1\r
-ctmx326 comparetotmag 80E-1 -7 -> 1\r
-ctmx327 comparetotmag 8.0 -7E+0 -> 1\r
-ctmx328 comparetotmag 8.0 -70E-1 -> 1\r
-ctmx329 comparetotmag 8 -.7E+1 -> 1\r
-ctmx330 comparetotmag 8 -70E-1 -> 1\r
-\r
-ctmx340 comparetotmag 8.0 -9.0 -> -1\r
-ctmx341 comparetotmag 8.0 -9 -> -1\r
-ctmx342 comparetotmag 8 -9.0 -> -1\r
-ctmx343 comparetotmag 8E+0 -9.0 -> -1\r
-ctmx344 comparetotmag 80E-1 -9.0 -> -1\r
-ctmx345 comparetotmag .8E+1 -9 -> -1\r
-ctmx346 comparetotmag 80E-1 -9 -> -1\r
-ctmx347 comparetotmag 8.0 -9E+0 -> -1\r
-ctmx348 comparetotmag 8.0 -90E-1 -> -1\r
-ctmx349 comparetotmag 8 -.9E+1 -> -1\r
-ctmx350 comparetotmag 8 -90E-1 -> -1\r
-\r
--- and again, with sign changes -- ..\r
-ctmx400 comparetotmag -7.0 -7.0 -> 0\r
-ctmx401 comparetotmag -7.0 -7 -> -1\r
-ctmx402 comparetotmag -7 -7.0 -> 1\r
-ctmx403 comparetotmag -7E+0 -7.0 -> 1\r
-ctmx404 comparetotmag -70E-1 -7.0 -> 0\r
-ctmx405 comparetotmag -.7E+1 -7 -> 0\r
-ctmx406 comparetotmag -70E-1 -7 -> -1\r
-ctmx407 comparetotmag -7.0 -7E+0 -> -1\r
-ctmx408 comparetotmag -7.0 -70E-1 -> 0\r
-ctmx409 comparetotmag -7 -.7E+1 -> 0\r
-ctmx410 comparetotmag -7 -70E-1 -> 1\r
-\r
-ctmx420 comparetotmag -8.0 -7.0 -> 1\r
-ctmx421 comparetotmag -8.0 -7 -> 1\r
-ctmx422 comparetotmag -8 -7.0 -> 1\r
-ctmx423 comparetotmag -8E+0 -7.0 -> 1\r
-ctmx424 comparetotmag -80E-1 -7.0 -> 1\r
-ctmx425 comparetotmag -.8E+1 -7 -> 1\r
-ctmx426 comparetotmag -80E-1 -7 -> 1\r
-ctmx427 comparetotmag -8.0 -7E+0 -> 1\r
-ctmx428 comparetotmag -8.0 -70E-1 -> 1\r
-ctmx429 comparetotmag -8 -.7E+1 -> 1\r
-ctmx430 comparetotmag -8 -70E-1 -> 1\r
-\r
-ctmx440 comparetotmag -8.0 -9.0 -> -1\r
-ctmx441 comparetotmag -8.0 -9 -> -1\r
-ctmx442 comparetotmag -8 -9.0 -> -1\r
-ctmx443 comparetotmag -8E+0 -9.0 -> -1\r
-ctmx444 comparetotmag -80E-1 -9.0 -> -1\r
-ctmx445 comparetotmag -.8E+1 -9 -> -1\r
-ctmx446 comparetotmag -80E-1 -9 -> -1\r
-ctmx447 comparetotmag -8.0 -9E+0 -> -1\r
-ctmx448 comparetotmag -8.0 -90E-1 -> -1\r
-ctmx449 comparetotmag -8 -.9E+1 -> -1\r
-ctmx450 comparetotmag -8 -90E-1 -> -1\r
-\r
-\r
--- testcases that subtract to lots of zeros at boundaries [pgr]\r
-precision: 40\r
-ctmx470 comparetotmag 123.4560000000000000E789 123.456E789 -> -1\r
-ctmx471 comparetotmag 123.456000000000000E-89 123.456E-89 -> -1\r
-ctmx472 comparetotmag 123.45600000000000E789 123.456E789 -> -1\r
-ctmx473 comparetotmag 123.4560000000000E-89 123.456E-89 -> -1\r
-ctmx474 comparetotmag 123.456000000000E789 123.456E789 -> -1\r
-ctmx475 comparetotmag 123.45600000000E-89 123.456E-89 -> -1\r
-ctmx476 comparetotmag 123.4560000000E789 123.456E789 -> -1\r
-ctmx477 comparetotmag 123.456000000E-89 123.456E-89 -> -1\r
-ctmx478 comparetotmag 123.45600000E789 123.456E789 -> -1\r
-ctmx479 comparetotmag 123.4560000E-89 123.456E-89 -> -1\r
-ctmx480 comparetotmag 123.456000E789 123.456E789 -> -1\r
-ctmx481 comparetotmag 123.45600E-89 123.456E-89 -> -1\r
-ctmx482 comparetotmag 123.4560E789 123.456E789 -> -1\r
-ctmx483 comparetotmag 123.456E-89 123.456E-89 -> 0\r
-ctmx484 comparetotmag 123.456E-89 123.4560000000000000E-89 -> 1\r
-ctmx485 comparetotmag 123.456E789 123.456000000000000E789 -> 1\r
-ctmx486 comparetotmag 123.456E-89 123.45600000000000E-89 -> 1\r
-ctmx487 comparetotmag 123.456E789 123.4560000000000E789 -> 1\r
-ctmx488 comparetotmag 123.456E-89 123.456000000000E-89 -> 1\r
-ctmx489 comparetotmag 123.456E789 123.45600000000E789 -> 1\r
-ctmx490 comparetotmag 123.456E-89 123.4560000000E-89 -> 1\r
-ctmx491 comparetotmag 123.456E789 123.456000000E789 -> 1\r
-ctmx492 comparetotmag 123.456E-89 123.45600000E-89 -> 1\r
-ctmx493 comparetotmag 123.456E789 123.4560000E789 -> 1\r
-ctmx494 comparetotmag 123.456E-89 123.456000E-89 -> 1\r
-ctmx495 comparetotmag 123.456E789 123.45600E789 -> 1\r
-ctmx496 comparetotmag 123.456E-89 123.4560E-89 -> 1\r
-ctmx497 comparetotmag 123.456E789 123.456E789 -> 0\r
-\r
--- wide-ranging, around precision; signs equal\r
-precision: 9\r
-ctmx500 comparetotmag 1 1E-15 -> 1\r
-ctmx501 comparetotmag 1 1E-14 -> 1\r
-ctmx502 comparetotmag 1 1E-13 -> 1\r
-ctmx503 comparetotmag 1 1E-12 -> 1\r
-ctmx504 comparetotmag 1 1E-11 -> 1\r
-ctmx505 comparetotmag 1 1E-10 -> 1\r
-ctmx506 comparetotmag 1 1E-9 -> 1\r
-ctmx507 comparetotmag 1 1E-8 -> 1\r
-ctmx508 comparetotmag 1 1E-7 -> 1\r
-ctmx509 comparetotmag 1 1E-6 -> 1\r
-ctmx510 comparetotmag 1 1E-5 -> 1\r
-ctmx511 comparetotmag 1 1E-4 -> 1\r
-ctmx512 comparetotmag 1 1E-3 -> 1\r
-ctmx513 comparetotmag 1 1E-2 -> 1\r
-ctmx514 comparetotmag 1 1E-1 -> 1\r
-ctmx515 comparetotmag 1 1E-0 -> 0\r
-ctmx516 comparetotmag 1 1E+1 -> -1\r
-ctmx517 comparetotmag 1 1E+2 -> -1\r
-ctmx518 comparetotmag 1 1E+3 -> -1\r
-ctmx519 comparetotmag 1 1E+4 -> -1\r
-ctmx521 comparetotmag 1 1E+5 -> -1\r
-ctmx522 comparetotmag 1 1E+6 -> -1\r
-ctmx523 comparetotmag 1 1E+7 -> -1\r
-ctmx524 comparetotmag 1 1E+8 -> -1\r
-ctmx525 comparetotmag 1 1E+9 -> -1\r
-ctmx526 comparetotmag 1 1E+10 -> -1\r
-ctmx527 comparetotmag 1 1E+11 -> -1\r
-ctmx528 comparetotmag 1 1E+12 -> -1\r
-ctmx529 comparetotmag 1 1E+13 -> -1\r
-ctmx530 comparetotmag 1 1E+14 -> -1\r
-ctmx531 comparetotmag 1 1E+15 -> -1\r
--- LR swap\r
-ctmx540 comparetotmag 1E-15 1 -> -1\r
-ctmx541 comparetotmag 1E-14 1 -> -1\r
-ctmx542 comparetotmag 1E-13 1 -> -1\r
-ctmx543 comparetotmag 1E-12 1 -> -1\r
-ctmx544 comparetotmag 1E-11 1 -> -1\r
-ctmx545 comparetotmag 1E-10 1 -> -1\r
-ctmx546 comparetotmag 1E-9 1 -> -1\r
-ctmx547 comparetotmag 1E-8 1 -> -1\r
-ctmx548 comparetotmag 1E-7 1 -> -1\r
-ctmx549 comparetotmag 1E-6 1 -> -1\r
-ctmx550 comparetotmag 1E-5 1 -> -1\r
-ctmx551 comparetotmag 1E-4 1 -> -1\r
-ctmx552 comparetotmag 1E-3 1 -> -1\r
-ctmx553 comparetotmag 1E-2 1 -> -1\r
-ctmx554 comparetotmag 1E-1 1 -> -1\r
-ctmx555 comparetotmag 1E-0 1 -> 0\r
-ctmx556 comparetotmag 1E+1 1 -> 1\r
-ctmx557 comparetotmag 1E+2 1 -> 1\r
-ctmx558 comparetotmag 1E+3 1 -> 1\r
-ctmx559 comparetotmag 1E+4 1 -> 1\r
-ctmx561 comparetotmag 1E+5 1 -> 1\r
-ctmx562 comparetotmag 1E+6 1 -> 1\r
-ctmx563 comparetotmag 1E+7 1 -> 1\r
-ctmx564 comparetotmag 1E+8 1 -> 1\r
-ctmx565 comparetotmag 1E+9 1 -> 1\r
-ctmx566 comparetotmag 1E+10 1 -> 1\r
-ctmx567 comparetotmag 1E+11 1 -> 1\r
-ctmx568 comparetotmag 1E+12 1 -> 1\r
-ctmx569 comparetotmag 1E+13 1 -> 1\r
-ctmx570 comparetotmag 1E+14 1 -> 1\r
-ctmx571 comparetotmag 1E+15 1 -> 1\r
--- similar with an useful coefficient, one side only\r
-ctmx580 comparetotmag 0.000000987654321 1E-15 -> 1\r
-ctmx581 comparetotmag 0.000000987654321 1E-14 -> 1\r
-ctmx582 comparetotmag 0.000000987654321 1E-13 -> 1\r
-ctmx583 comparetotmag 0.000000987654321 1E-12 -> 1\r
-ctmx584 comparetotmag 0.000000987654321 1E-11 -> 1\r
-ctmx585 comparetotmag 0.000000987654321 1E-10 -> 1\r
-ctmx586 comparetotmag 0.000000987654321 1E-9 -> 1\r
-ctmx587 comparetotmag 0.000000987654321 1E-8 -> 1\r
-ctmx588 comparetotmag 0.000000987654321 1E-7 -> 1\r
-ctmx589 comparetotmag 0.000000987654321 1E-6 -> -1\r
-ctmx590 comparetotmag 0.000000987654321 1E-5 -> -1\r
-ctmx591 comparetotmag 0.000000987654321 1E-4 -> -1\r
-ctmx592 comparetotmag 0.000000987654321 1E-3 -> -1\r
-ctmx593 comparetotmag 0.000000987654321 1E-2 -> -1\r
-ctmx594 comparetotmag 0.000000987654321 1E-1 -> -1\r
-ctmx595 comparetotmag 0.000000987654321 1E-0 -> -1\r
-ctmx596 comparetotmag 0.000000987654321 1E+1 -> -1\r
-ctmx597 comparetotmag 0.000000987654321 1E+2 -> -1\r
-ctmx598 comparetotmag 0.000000987654321 1E+3 -> -1\r
-ctmx599 comparetotmag 0.000000987654321 1E+4 -> -1\r
-\r
--- check some unit-y traps\r
-precision: 20\r
-ctmx600 comparetotmag 12 12.2345 -> -1\r
-ctmx601 comparetotmag 12.0 12.2345 -> -1\r
-ctmx602 comparetotmag 12.00 12.2345 -> -1\r
-ctmx603 comparetotmag 12.000 12.2345 -> -1\r
-ctmx604 comparetotmag 12.0000 12.2345 -> -1\r
-ctmx605 comparetotmag 12.00000 12.2345 -> -1\r
-ctmx606 comparetotmag 12.000000 12.2345 -> -1\r
-ctmx607 comparetotmag 12.0000000 12.2345 -> -1\r
-ctmx608 comparetotmag 12.00000000 12.2345 -> -1\r
-ctmx609 comparetotmag 12.000000000 12.2345 -> -1\r
-ctmx610 comparetotmag 12.1234 12 -> 1\r
-ctmx611 comparetotmag 12.1234 12.0 -> 1\r
-ctmx612 comparetotmag 12.1234 12.00 -> 1\r
-ctmx613 comparetotmag 12.1234 12.000 -> 1\r
-ctmx614 comparetotmag 12.1234 12.0000 -> 1\r
-ctmx615 comparetotmag 12.1234 12.00000 -> 1\r
-ctmx616 comparetotmag 12.1234 12.000000 -> 1\r
-ctmx617 comparetotmag 12.1234 12.0000000 -> 1\r
-ctmx618 comparetotmag 12.1234 12.00000000 -> 1\r
-ctmx619 comparetotmag 12.1234 12.000000000 -> 1\r
-ctmx620 comparetotmag -12 -12.2345 -> -1\r
-ctmx621 comparetotmag -12.0 -12.2345 -> -1\r
-ctmx622 comparetotmag -12.00 -12.2345 -> -1\r
-ctmx623 comparetotmag -12.000 -12.2345 -> -1\r
-ctmx624 comparetotmag -12.0000 -12.2345 -> -1\r
-ctmx625 comparetotmag -12.00000 -12.2345 -> -1\r
-ctmx626 comparetotmag -12.000000 -12.2345 -> -1\r
-ctmx627 comparetotmag -12.0000000 -12.2345 -> -1\r
-ctmx628 comparetotmag -12.00000000 -12.2345 -> -1\r
-ctmx629 comparetotmag -12.000000000 -12.2345 -> -1\r
-ctmx630 comparetotmag -12.1234 -12 -> 1\r
-ctmx631 comparetotmag -12.1234 -12.0 -> 1\r
-ctmx632 comparetotmag -12.1234 -12.00 -> 1\r
-ctmx633 comparetotmag -12.1234 -12.000 -> 1\r
-ctmx634 comparetotmag -12.1234 -12.0000 -> 1\r
-ctmx635 comparetotmag -12.1234 -12.00000 -> 1\r
-ctmx636 comparetotmag -12.1234 -12.000000 -> 1\r
-ctmx637 comparetotmag -12.1234 -12.0000000 -> 1\r
-ctmx638 comparetotmag -12.1234 -12.00000000 -> 1\r
-ctmx639 comparetotmag -12.1234 -12.000000000 -> 1\r
-precision: 9\r
-\r
--- extended zeros\r
-ctmx640 comparetotmag 0 0 -> 0\r
-ctmx641 comparetotmag 0 -0 -> 0\r
-ctmx642 comparetotmag 0 -0.0 -> 1\r
-ctmx643 comparetotmag 0 0.0 -> 1\r
-ctmx644 comparetotmag -0 0 -> 0\r
-ctmx645 comparetotmag -0 -0 -> 0\r
-ctmx646 comparetotmag -0 -0.0 -> 1\r
-ctmx647 comparetotmag -0 0.0 -> 1\r
-ctmx648 comparetotmag 0.0 0 -> -1\r
-ctmx649 comparetotmag 0.0 -0 -> -1\r
-ctmx650 comparetotmag 0.0 -0.0 -> 0\r
-ctmx651 comparetotmag 0.0 0.0 -> 0\r
-ctmx652 comparetotmag -0.0 0 -> -1\r
-ctmx653 comparetotmag -0.0 -0 -> -1\r
-ctmx654 comparetotmag -0.0 -0.0 -> 0\r
-ctmx655 comparetotmag -0.0 0.0 -> 0\r
-\r
-ctmx656 comparetotmag -0E1 0.0 -> 1\r
-ctmx657 comparetotmag -0E2 0.0 -> 1\r
-ctmx658 comparetotmag 0E1 0.0 -> 1\r
-ctmx659 comparetotmag 0E2 0.0 -> 1\r
-ctmx660 comparetotmag -0E1 0 -> 1\r
-ctmx661 comparetotmag -0E2 0 -> 1\r
-ctmx662 comparetotmag 0E1 0 -> 1\r
-ctmx663 comparetotmag 0E2 0 -> 1\r
-ctmx664 comparetotmag -0E1 -0E1 -> 0\r
-ctmx665 comparetotmag -0E2 -0E1 -> 1\r
-ctmx666 comparetotmag 0E1 -0E1 -> 0\r
-ctmx667 comparetotmag 0E2 -0E1 -> 1\r
-ctmx668 comparetotmag -0E1 -0E2 -> -1\r
-ctmx669 comparetotmag -0E2 -0E2 -> 0\r
-ctmx670 comparetotmag 0E1 -0E2 -> -1\r
-ctmx671 comparetotmag 0E2 -0E2 -> 0\r
-ctmx672 comparetotmag -0E1 0E1 -> 0\r
-ctmx673 comparetotmag -0E2 0E1 -> 1\r
-ctmx674 comparetotmag 0E1 0E1 -> 0\r
-ctmx675 comparetotmag 0E2 0E1 -> 1\r
-ctmx676 comparetotmag -0E1 0E2 -> -1\r
-ctmx677 comparetotmag -0E2 0E2 -> 0\r
-ctmx678 comparetotmag 0E1 0E2 -> -1\r
-ctmx679 comparetotmag 0E2 0E2 -> 0\r
-\r
--- trailing zeros; unit-y\r
-precision: 20\r
-ctmx680 comparetotmag 12 12 -> 0\r
-ctmx681 comparetotmag 12 12.0 -> 1\r
-ctmx682 comparetotmag 12 12.00 -> 1\r
-ctmx683 comparetotmag 12 12.000 -> 1\r
-ctmx684 comparetotmag 12 12.0000 -> 1\r
-ctmx685 comparetotmag 12 12.00000 -> 1\r
-ctmx686 comparetotmag 12 12.000000 -> 1\r
-ctmx687 comparetotmag 12 12.0000000 -> 1\r
-ctmx688 comparetotmag 12 12.00000000 -> 1\r
-ctmx689 comparetotmag 12 12.000000000 -> 1\r
-ctmx690 comparetotmag 12 12 -> 0\r
-ctmx691 comparetotmag 12.0 12 -> -1\r
-ctmx692 comparetotmag 12.00 12 -> -1\r
-ctmx693 comparetotmag 12.000 12 -> -1\r
-ctmx694 comparetotmag 12.0000 12 -> -1\r
-ctmx695 comparetotmag 12.00000 12 -> -1\r
-ctmx696 comparetotmag 12.000000 12 -> -1\r
-ctmx697 comparetotmag 12.0000000 12 -> -1\r
-ctmx698 comparetotmag 12.00000000 12 -> -1\r
-ctmx699 comparetotmag 12.000000000 12 -> -1\r
-\r
--- long operand checks\r
-maxexponent: 999\r
-minexponent: -999\r
-precision: 9\r
-ctmx701 comparetotmag 12345678000 1 -> 1\r
-ctmx702 comparetotmag 1 12345678000 -> -1\r
-ctmx703 comparetotmag 1234567800 1 -> 1\r
-ctmx704 comparetotmag 1 1234567800 -> -1\r
-ctmx705 comparetotmag 1234567890 1 -> 1\r
-ctmx706 comparetotmag 1 1234567890 -> -1\r
-ctmx707 comparetotmag 1234567891 1 -> 1\r
-ctmx708 comparetotmag 1 1234567891 -> -1\r
-ctmx709 comparetotmag 12345678901 1 -> 1\r
-ctmx710 comparetotmag 1 12345678901 -> -1\r
-ctmx711 comparetotmag 1234567896 1 -> 1\r
-ctmx712 comparetotmag 1 1234567896 -> -1\r
-ctmx713 comparetotmag -1234567891 1 -> 1\r
-ctmx714 comparetotmag 1 -1234567891 -> -1\r
-ctmx715 comparetotmag -12345678901 1 -> 1\r
-ctmx716 comparetotmag 1 -12345678901 -> -1\r
-ctmx717 comparetotmag -1234567896 1 -> 1\r
-ctmx718 comparetotmag 1 -1234567896 -> -1\r
-\r
-precision: 15\r
--- same with plenty of precision\r
-ctmx721 comparetotmag 12345678000 1 -> 1\r
-ctmx722 comparetotmag 1 12345678000 -> -1\r
-ctmx723 comparetotmag 1234567800 1 -> 1\r
-ctmx724 comparetotmag 1 1234567800 -> -1\r
-ctmx725 comparetotmag 1234567890 1 -> 1\r
-ctmx726 comparetotmag 1 1234567890 -> -1\r
-ctmx727 comparetotmag 1234567891 1 -> 1\r
-ctmx728 comparetotmag 1 1234567891 -> -1\r
-ctmx729 comparetotmag 12345678901 1 -> 1\r
-ctmx730 comparetotmag 1 12345678901 -> -1\r
-ctmx731 comparetotmag 1234567896 1 -> 1\r
-ctmx732 comparetotmag 1 1234567896 -> -1\r
-\r
--- residue cases\r
-precision: 5\r
-ctmx740 comparetotmag 1 0.9999999 -> 1\r
-ctmx741 comparetotmag 1 0.999999 -> 1\r
-ctmx742 comparetotmag 1 0.99999 -> 1\r
-ctmx743 comparetotmag 1 1.0000 -> 1\r
-ctmx744 comparetotmag 1 1.00001 -> -1\r
-ctmx745 comparetotmag 1 1.000001 -> -1\r
-ctmx746 comparetotmag 1 1.0000001 -> -1\r
-ctmx750 comparetotmag 0.9999999 1 -> -1\r
-ctmx751 comparetotmag 0.999999 1 -> -1\r
-ctmx752 comparetotmag 0.99999 1 -> -1\r
-ctmx753 comparetotmag 1.0000 1 -> -1\r
-ctmx754 comparetotmag 1.00001 1 -> 1\r
-ctmx755 comparetotmag 1.000001 1 -> 1\r
-ctmx756 comparetotmag 1.0000001 1 -> 1\r
-\r
--- a selection of longies\r
-ctmx760 comparetotmag -36852134.84194296250843579428931 -5830629.8347085025808756560357940 -> 1\r
-ctmx761 comparetotmag -36852134.84194296250843579428931 -36852134.84194296250843579428931 -> 0\r
-ctmx762 comparetotmag -36852134.94194296250843579428931 -36852134.84194296250843579428931 -> 1\r
-ctmx763 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931 -> -1\r
--- precisions above or below the difference should have no effect\r
-precision: 11\r
-ctmx764 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931 -> -1\r
-precision: 10\r
-ctmx765 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931 -> -1\r
-precision: 9\r
-ctmx766 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931 -> -1\r
-precision: 8\r
-ctmx767 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931 -> -1\r
-precision: 7\r
-ctmx768 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931 -> -1\r
-precision: 6\r
-ctmx769 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931 -> -1\r
-precision: 5\r
-ctmx770 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931 -> -1\r
-precision: 4\r
-ctmx771 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931 -> -1\r
-precision: 3\r
-ctmx772 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931 -> -1\r
-precision: 2\r
-ctmx773 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931 -> -1\r
-precision: 1\r
-ctmx774 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931 -> -1\r
-\r
--- Specials\r
-precision: 9\r
-ctmx780 comparetotmag Inf -Inf -> 0\r
-ctmx781 comparetotmag Inf -1000 -> 1\r
-ctmx782 comparetotmag Inf -1 -> 1\r
-ctmx783 comparetotmag Inf -0 -> 1\r
-ctmx784 comparetotmag Inf 0 -> 1\r
-ctmx785 comparetotmag Inf 1 -> 1\r
-ctmx786 comparetotmag Inf 1000 -> 1\r
-ctmx787 comparetotmag Inf Inf -> 0\r
-ctmx788 comparetotmag -1000 Inf -> -1\r
-ctmx789 comparetotmag -Inf Inf -> 0\r
-ctmx790 comparetotmag -1 Inf -> -1\r
-ctmx791 comparetotmag -0 Inf -> -1\r
-ctmx792 comparetotmag 0 Inf -> -1\r
-ctmx793 comparetotmag 1 Inf -> -1\r
-ctmx794 comparetotmag 1000 Inf -> -1\r
-ctmx795 comparetotmag Inf Inf -> 0\r
-\r
-ctmx800 comparetotmag -Inf -Inf -> 0\r
-ctmx801 comparetotmag -Inf -1000 -> 1\r
-ctmx802 comparetotmag -Inf -1 -> 1\r
-ctmx803 comparetotmag -Inf -0 -> 1\r
-ctmx804 comparetotmag -Inf 0 -> 1\r
-ctmx805 comparetotmag -Inf 1 -> 1\r
-ctmx806 comparetotmag -Inf 1000 -> 1\r
-ctmx807 comparetotmag -Inf Inf -> 0\r
-ctmx808 comparetotmag -Inf -Inf -> 0\r
-ctmx809 comparetotmag -1000 -Inf -> -1\r
-ctmx810 comparetotmag -1 -Inf -> -1\r
-ctmx811 comparetotmag -0 -Inf -> -1\r
-ctmx812 comparetotmag 0 -Inf -> -1\r
-ctmx813 comparetotmag 1 -Inf -> -1\r
-ctmx814 comparetotmag 1000 -Inf -> -1\r
-ctmx815 comparetotmag Inf -Inf -> 0\r
-\r
-ctmx821 comparetotmag NaN -Inf -> 1\r
-ctmx822 comparetotmag NaN -1000 -> 1\r
-ctmx823 comparetotmag NaN -1 -> 1\r
-ctmx824 comparetotmag NaN -0 -> 1\r
-ctmx825 comparetotmag NaN 0 -> 1\r
-ctmx826 comparetotmag NaN 1 -> 1\r
-ctmx827 comparetotmag NaN 1000 -> 1\r
-ctmx828 comparetotmag NaN Inf -> 1\r
-ctmx829 comparetotmag NaN NaN -> 0\r
-ctmx830 comparetotmag -Inf NaN -> -1\r
-ctmx831 comparetotmag -1000 NaN -> -1\r
-ctmx832 comparetotmag -1 NaN -> -1\r
-ctmx833 comparetotmag -0 NaN -> -1\r
-ctmx834 comparetotmag 0 NaN -> -1\r
-ctmx835 comparetotmag 1 NaN -> -1\r
-ctmx836 comparetotmag 1000 NaN -> -1\r
-ctmx837 comparetotmag Inf NaN -> -1\r
-ctmx838 comparetotmag -NaN -NaN -> 0\r
-ctmx839 comparetotmag +NaN -NaN -> 0\r
-ctmx840 comparetotmag -NaN +NaN -> 0\r
-\r
-ctmx841 comparetotmag sNaN -sNaN -> 0\r
-ctmx842 comparetotmag sNaN -NaN -> -1\r
-ctmx843 comparetotmag sNaN -Inf -> 1\r
-ctmx844 comparetotmag sNaN -1000 -> 1\r
-ctmx845 comparetotmag sNaN -1 -> 1\r
-ctmx846 comparetotmag sNaN -0 -> 1\r
-ctmx847 comparetotmag sNaN 0 -> 1\r
-ctmx848 comparetotmag sNaN 1 -> 1\r
-ctmx849 comparetotmag sNaN 1000 -> 1\r
-ctmx850 comparetotmag sNaN NaN -> -1\r
-ctmx851 comparetotmag sNaN sNaN -> 0\r
-\r
-ctmx852 comparetotmag -sNaN sNaN -> 0\r
-ctmx853 comparetotmag -NaN sNaN -> 1\r
-ctmx854 comparetotmag -Inf sNaN -> -1\r
-ctmx855 comparetotmag -1000 sNaN -> -1\r
-ctmx856 comparetotmag -1 sNaN -> -1\r
-ctmx857 comparetotmag -0 sNaN -> -1\r
-ctmx858 comparetotmag 0 sNaN -> -1\r
-ctmx859 comparetotmag 1 sNaN -> -1\r
-ctmx860 comparetotmag 1000 sNaN -> -1\r
-ctmx861 comparetotmag Inf sNaN -> -1\r
-ctmx862 comparetotmag NaN sNaN -> 1\r
-ctmx863 comparetotmag sNaN sNaN -> 0\r
-\r
-ctmx871 comparetotmag -sNaN -sNaN -> 0\r
-ctmx872 comparetotmag -sNaN -NaN -> -1\r
-ctmx873 comparetotmag -sNaN -Inf -> 1\r
-ctmx874 comparetotmag -sNaN -1000 -> 1\r
-ctmx875 comparetotmag -sNaN -1 -> 1\r
-ctmx876 comparetotmag -sNaN -0 -> 1\r
-ctmx877 comparetotmag -sNaN 0 -> 1\r
-ctmx878 comparetotmag -sNaN 1 -> 1\r
-ctmx879 comparetotmag -sNaN 1000 -> 1\r
-ctmx880 comparetotmag -sNaN NaN -> -1\r
-ctmx881 comparetotmag -sNaN sNaN -> 0\r
-\r
-ctmx882 comparetotmag -sNaN -sNaN -> 0\r
-ctmx883 comparetotmag -NaN -sNaN -> 1\r
-ctmx884 comparetotmag -Inf -sNaN -> -1\r
-ctmx885 comparetotmag -1000 -sNaN -> -1\r
-ctmx886 comparetotmag -1 -sNaN -> -1\r
-ctmx887 comparetotmag -0 -sNaN -> -1\r
-ctmx888 comparetotmag 0 -sNaN -> -1\r
-ctmx889 comparetotmag 1 -sNaN -> -1\r
-ctmx890 comparetotmag 1000 -sNaN -> -1\r
-ctmx891 comparetotmag Inf -sNaN -> -1\r
-ctmx892 comparetotmag NaN -sNaN -> 1\r
-ctmx893 comparetotmag sNaN -sNaN -> 0\r
-\r
--- NaNs with payload\r
-ctmx960 comparetotmag NaN9 -Inf -> 1\r
-ctmx961 comparetotmag NaN8 999 -> 1\r
-ctmx962 comparetotmag NaN77 Inf -> 1\r
-ctmx963 comparetotmag -NaN67 NaN5 -> 1\r
-ctmx964 comparetotmag -Inf -NaN4 -> -1\r
-ctmx965 comparetotmag -999 -NaN33 -> -1\r
-ctmx966 comparetotmag Inf NaN2 -> -1\r
-\r
-ctmx970 comparetotmag -NaN41 -NaN42 -> -1\r
-ctmx971 comparetotmag +NaN41 -NaN42 -> -1\r
-ctmx972 comparetotmag -NaN41 +NaN42 -> -1\r
-ctmx973 comparetotmag +NaN41 +NaN42 -> -1\r
-ctmx974 comparetotmag -NaN42 -NaN01 -> 1\r
-ctmx975 comparetotmag +NaN42 -NaN01 -> 1\r
-ctmx976 comparetotmag -NaN42 +NaN01 -> 1\r
-ctmx977 comparetotmag +NaN42 +NaN01 -> 1\r
-\r
-ctmx980 comparetotmag -sNaN771 -sNaN772 -> -1\r
-ctmx981 comparetotmag +sNaN771 -sNaN772 -> -1\r
-ctmx982 comparetotmag -sNaN771 +sNaN772 -> -1\r
-ctmx983 comparetotmag +sNaN771 +sNaN772 -> -1\r
-ctmx984 comparetotmag -sNaN772 -sNaN771 -> 1\r
-ctmx985 comparetotmag +sNaN772 -sNaN771 -> 1\r
-ctmx986 comparetotmag -sNaN772 +sNaN771 -> 1\r
-ctmx987 comparetotmag +sNaN772 +sNaN771 -> 1\r
-\r
-ctmx991 comparetotmag -sNaN99 -Inf -> 1\r
-ctmx992 comparetotmag sNaN98 -11 -> 1\r
-ctmx993 comparetotmag sNaN97 NaN -> -1\r
-ctmx994 comparetotmag sNaN16 sNaN94 -> -1\r
-ctmx995 comparetotmag NaN85 sNaN83 -> 1\r
-ctmx996 comparetotmag -Inf sNaN92 -> -1\r
-ctmx997 comparetotmag 088 sNaN81 -> -1\r
-ctmx998 comparetotmag Inf sNaN90 -> -1\r
-ctmx999 comparetotmag NaN -sNaN89 -> 1\r
-\r
--- overflow and underflow tests .. subnormal results now allowed\r
-maxExponent: 999999999\r
-minexponent: -999999999\r
-ctmx1080 comparetotmag +1.23456789012345E-0 9E+999999999 -> -1\r
-ctmx1081 comparetotmag 9E+999999999 +1.23456789012345E-0 -> 1\r
-ctmx1082 comparetotmag +0.100 9E-999999999 -> 1\r
-ctmx1083 comparetotmag 9E-999999999 +0.100 -> -1\r
-ctmx1085 comparetotmag -1.23456789012345E-0 9E+999999999 -> -1\r
-ctmx1086 comparetotmag 9E+999999999 -1.23456789012345E-0 -> 1\r
-ctmx1087 comparetotmag -0.100 9E-999999999 -> 1\r
-ctmx1088 comparetotmag 9E-999999999 -0.100 -> -1\r
-\r
-ctmx1089 comparetotmag 1e-599999999 1e-400000001 -> -1\r
-ctmx1090 comparetotmag 1e-599999999 1e-400000000 -> -1\r
-ctmx1091 comparetotmag 1e-600000000 1e-400000000 -> -1\r
-ctmx1092 comparetotmag 9e-999999998 0.01 -> -1\r
-ctmx1093 comparetotmag 9e-999999998 0.1 -> -1\r
-ctmx1094 comparetotmag 0.01 9e-999999998 -> 1\r
-ctmx1095 comparetotmag 1e599999999 1e400000001 -> 1\r
-ctmx1096 comparetotmag 1e599999999 1e400000000 -> 1\r
-ctmx1097 comparetotmag 1e600000000 1e400000000 -> 1\r
-ctmx1098 comparetotmag 9e999999998 100 -> 1\r
-ctmx1099 comparetotmag 9e999999998 10 -> 1\r
-ctmx1100 comparetotmag 100 9e999999998 -> -1\r
--- signs\r
-ctmx1101 comparetotmag 1e+777777777 1e+411111111 -> 1\r
-ctmx1102 comparetotmag 1e+777777777 -1e+411111111 -> 1\r
-ctmx1103 comparetotmag -1e+777777777 1e+411111111 -> 1\r
-ctmx1104 comparetotmag -1e+777777777 -1e+411111111 -> 1\r
-ctmx1105 comparetotmag 1e-777777777 1e-411111111 -> -1\r
-ctmx1106 comparetotmag 1e-777777777 -1e-411111111 -> -1\r
-ctmx1107 comparetotmag -1e-777777777 1e-411111111 -> -1\r
-ctmx1108 comparetotmag -1e-777777777 -1e-411111111 -> -1\r
-\r
--- spread zeros\r
-ctmx1110 comparetotmag 0E-383 0 -> -1\r
-ctmx1111 comparetotmag 0E-383 -0 -> -1\r
-ctmx1112 comparetotmag -0E-383 0 -> -1\r
-ctmx1113 comparetotmag -0E-383 -0 -> -1\r
-ctmx1114 comparetotmag 0E-383 0E+384 -> -1\r
-ctmx1115 comparetotmag 0E-383 -0E+384 -> -1\r
-ctmx1116 comparetotmag -0E-383 0E+384 -> -1\r
-ctmx1117 comparetotmag -0E-383 -0E+384 -> -1\r
-ctmx1118 comparetotmag 0 0E+384 -> -1\r
-ctmx1119 comparetotmag 0 -0E+384 -> -1\r
-ctmx1120 comparetotmag -0 0E+384 -> -1\r
-ctmx1121 comparetotmag -0 -0E+384 -> -1\r
-\r
-ctmx1130 comparetotmag 0E+384 0 -> 1\r
-ctmx1131 comparetotmag 0E+384 -0 -> 1\r
-ctmx1132 comparetotmag -0E+384 0 -> 1\r
-ctmx1133 comparetotmag -0E+384 -0 -> 1\r
-ctmx1134 comparetotmag 0E+384 0E-383 -> 1\r
-ctmx1135 comparetotmag 0E+384 -0E-383 -> 1\r
-ctmx1136 comparetotmag -0E+384 0E-383 -> 1\r
-ctmx1137 comparetotmag -0E+384 -0E-383 -> 1\r
-ctmx1138 comparetotmag 0 0E-383 -> 1\r
-ctmx1139 comparetotmag 0 -0E-383 -> 1\r
-ctmx1140 comparetotmag -0 0E-383 -> 1\r
-ctmx1141 comparetotmag -0 -0E-383 -> 1\r
-\r
--- Null tests\r
-ctmx9990 comparetotmag 10 # -> NaN Invalid_operation\r
-ctmx9991 comparetotmag # 10 -> NaN Invalid_operation\r