diff options
Diffstat (limited to 'Lib/test/decimaltestdata/dqCompareTotalMag.decTest')
| -rw-r--r-- | Lib/test/decimaltestdata/dqCompareTotalMag.decTest | 1412 |
1 files changed, 706 insertions, 706 deletions
diff --git a/Lib/test/decimaltestdata/dqCompareTotalMag.decTest b/Lib/test/decimaltestdata/dqCompareTotalMag.decTest index 0b81bfbc24..48b3e086b1 100644 --- a/Lib/test/decimaltestdata/dqCompareTotalMag.decTest +++ b/Lib/test/decimaltestdata/dqCompareTotalMag.decTest @@ -1,706 +1,706 @@ ------------------------------------------------------------------------- --- dqCompareTotalMag.decTest -- decQuad comparison; abs. total order -- --- Copyright (c) IBM Corporation, 1981, 2008. All rights reserved. -- ------------------------------------------------------------------------- --- Please see the document "General Decimal Arithmetic Testcases" -- --- at http://www2.hursley.ibm.com/decimal for the description of -- --- these testcases. -- --- -- --- These testcases are experimental ('beta' versions), and they -- --- may contain errors. They are offered on an as-is basis. In -- --- particular, achieving the same results as the tests here is not -- --- a guarantee that an implementation complies with any Standard -- --- or specification. The tests are not exhaustive. -- --- -- --- Please send comments, suggestions, and corrections to the author: -- --- Mike Cowlishaw, IBM Fellow -- --- IBM UK, PO Box 31, Birmingham Road, Warwick CV34 5JL, UK -- --- mfc@uk.ibm.com -- ------------------------------------------------------------------------- -version: 2.59 - --- Note that we cannot assume add/subtract tests cover paths adequately, --- here, because the code might be quite different (comparison cannot --- overflow or underflow, so actual subtractions are not necessary). --- Similarly, comparetotal will have some radically different paths --- than compare. - --- All operands and results are decQuads. -extended: 1 -clamp: 1 -precision: 34 -maxExponent: 6144 -minExponent: -6143 -rounding: half_even - --- sanity checks -dqctm001 comparetotmag -2 -2 -> 0 -dqctm002 comparetotmag -2 -1 -> 1 -dqctm003 comparetotmag -2 0 -> 1 -dqctm004 comparetotmag -2 1 -> 1 -dqctm005 comparetotmag -2 2 -> 0 -dqctm006 comparetotmag -1 -2 -> -1 -dqctm007 comparetotmag -1 -1 -> 0 -dqctm008 comparetotmag -1 0 -> 1 -dqctm009 comparetotmag -1 1 -> 0 -dqctm010 comparetotmag -1 2 -> -1 -dqctm011 comparetotmag 0 -2 -> -1 -dqctm012 comparetotmag 0 -1 -> -1 -dqctm013 comparetotmag 0 0 -> 0 -dqctm014 comparetotmag 0 1 -> -1 -dqctm015 comparetotmag 0 2 -> -1 -dqctm016 comparetotmag 1 -2 -> -1 -dqctm017 comparetotmag 1 -1 -> 0 -dqctm018 comparetotmag 1 0 -> 1 -dqctm019 comparetotmag 1 1 -> 0 -dqctm020 comparetotmag 1 2 -> -1 -dqctm021 comparetotmag 2 -2 -> 0 -dqctm022 comparetotmag 2 -1 -> 1 -dqctm023 comparetotmag 2 0 -> 1 -dqctm025 comparetotmag 2 1 -> 1 -dqctm026 comparetotmag 2 2 -> 0 - -dqctm031 comparetotmag -20 -20 -> 0 -dqctm032 comparetotmag -20 -10 -> 1 -dqctm033 comparetotmag -20 00 -> 1 -dqctm034 comparetotmag -20 10 -> 1 -dqctm035 comparetotmag -20 20 -> 0 -dqctm036 comparetotmag -10 -20 -> -1 -dqctm037 comparetotmag -10 -10 -> 0 -dqctm038 comparetotmag -10 00 -> 1 -dqctm039 comparetotmag -10 10 -> 0 -dqctm040 comparetotmag -10 20 -> -1 -dqctm041 comparetotmag 00 -20 -> -1 -dqctm042 comparetotmag 00 -10 -> -1 -dqctm043 comparetotmag 00 00 -> 0 -dqctm044 comparetotmag 00 10 -> -1 -dqctm045 comparetotmag 00 20 -> -1 -dqctm046 comparetotmag 10 -20 -> -1 -dqctm047 comparetotmag 10 -10 -> 0 -dqctm048 comparetotmag 10 00 -> 1 -dqctm049 comparetotmag 10 10 -> 0 -dqctm050 comparetotmag 10 20 -> -1 -dqctm051 comparetotmag 20 -20 -> 0 -dqctm052 comparetotmag 20 -10 -> 1 -dqctm053 comparetotmag 20 00 -> 1 -dqctm055 comparetotmag 20 10 -> 1 -dqctm056 comparetotmag 20 20 -> 0 - -dqctm061 comparetotmag -2.0 -2.0 -> 0 -dqctm062 comparetotmag -2.0 -1.0 -> 1 -dqctm063 comparetotmag -2.0 0.0 -> 1 -dqctm064 comparetotmag -2.0 1.0 -> 1 -dqctm065 comparetotmag -2.0 2.0 -> 0 -dqctm066 comparetotmag -1.0 -2.0 -> -1 -dqctm067 comparetotmag -1.0 -1.0 -> 0 -dqctm068 comparetotmag -1.0 0.0 -> 1 -dqctm069 comparetotmag -1.0 1.0 -> 0 -dqctm070 comparetotmag -1.0 2.0 -> -1 -dqctm071 comparetotmag 0.0 -2.0 -> -1 -dqctm072 comparetotmag 0.0 -1.0 -> -1 -dqctm073 comparetotmag 0.0 0.0 -> 0 -dqctm074 comparetotmag 0.0 1.0 -> -1 -dqctm075 comparetotmag 0.0 2.0 -> -1 -dqctm076 comparetotmag 1.0 -2.0 -> -1 -dqctm077 comparetotmag 1.0 -1.0 -> 0 -dqctm078 comparetotmag 1.0 0.0 -> 1 -dqctm079 comparetotmag 1.0 1.0 -> 0 -dqctm080 comparetotmag 1.0 2.0 -> -1 -dqctm081 comparetotmag 2.0 -2.0 -> 0 -dqctm082 comparetotmag 2.0 -1.0 -> 1 -dqctm083 comparetotmag 2.0 0.0 -> 1 -dqctm085 comparetotmag 2.0 1.0 -> 1 -dqctm086 comparetotmag 2.0 2.0 -> 0 - --- now some cases which might overflow if subtract were used -dqctm090 comparetotmag 9.99999999999999999999999999999E+6144 9.99999999999999999999999999999E+6144 -> 0 -dqctm091 comparetotmag -9.99999999999999999999999999999E+6144 9.99999999999999999999999999999E+6144 -> 0 -dqctm092 comparetotmag 9.99999999999999999999999999999E+6144 -9.99999999999999999999999999999E+6144 -> 0 -dqctm093 comparetotmag -9.99999999999999999999999999999E+6144 -9.99999999999999999999999999999E+6144 -> 0 - --- some differing length/exponent cases --- in this first group, compare would compare all equal -dqctm100 comparetotmag 7.0 7.0 -> 0 -dqctm101 comparetotmag 7.0 7 -> -1 -dqctm102 comparetotmag 7 7.0 -> 1 -dqctm103 comparetotmag 7E+0 7.0 -> 1 -dqctm104 comparetotmag 70E-1 7.0 -> 0 -dqctm105 comparetotmag 0.7E+1 7 -> 0 -dqctm106 comparetotmag 70E-1 7 -> -1 -dqctm107 comparetotmag 7.0 7E+0 -> -1 -dqctm108 comparetotmag 7.0 70E-1 -> 0 -dqctm109 comparetotmag 7 0.7E+1 -> 0 -dqctm110 comparetotmag 7 70E-1 -> 1 - -dqctm120 comparetotmag 8.0 7.0 -> 1 -dqctm121 comparetotmag 8.0 7 -> 1 -dqctm122 comparetotmag 8 7.0 -> 1 -dqctm123 comparetotmag 8E+0 7.0 -> 1 -dqctm124 comparetotmag 80E-1 7.0 -> 1 -dqctm125 comparetotmag 0.8E+1 7 -> 1 -dqctm126 comparetotmag 80E-1 7 -> 1 -dqctm127 comparetotmag 8.0 7E+0 -> 1 -dqctm128 comparetotmag 8.0 70E-1 -> 1 -dqctm129 comparetotmag 8 0.7E+1 -> 1 -dqctm130 comparetotmag 8 70E-1 -> 1 - -dqctm140 comparetotmag 8.0 9.0 -> -1 -dqctm141 comparetotmag 8.0 9 -> -1 -dqctm142 comparetotmag 8 9.0 -> -1 -dqctm143 comparetotmag 8E+0 9.0 -> -1 -dqctm144 comparetotmag 80E-1 9.0 -> -1 -dqctm145 comparetotmag 0.8E+1 9 -> -1 -dqctm146 comparetotmag 80E-1 9 -> -1 -dqctm147 comparetotmag 8.0 9E+0 -> -1 -dqctm148 comparetotmag 8.0 90E-1 -> -1 -dqctm149 comparetotmag 8 0.9E+1 -> -1 -dqctm150 comparetotmag 8 90E-1 -> -1 - --- and again, with sign changes -+ .. -dqctm200 comparetotmag -7.0 7.0 -> 0 -dqctm201 comparetotmag -7.0 7 -> -1 -dqctm202 comparetotmag -7 7.0 -> 1 -dqctm203 comparetotmag -7E+0 7.0 -> 1 -dqctm204 comparetotmag -70E-1 7.0 -> 0 -dqctm205 comparetotmag -0.7E+1 7 -> 0 -dqctm206 comparetotmag -70E-1 7 -> -1 -dqctm207 comparetotmag -7.0 7E+0 -> -1 -dqctm208 comparetotmag -7.0 70E-1 -> 0 -dqctm209 comparetotmag -7 0.7E+1 -> 0 -dqctm210 comparetotmag -7 70E-1 -> 1 - -dqctm220 comparetotmag -8.0 7.0 -> 1 -dqctm221 comparetotmag -8.0 7 -> 1 -dqctm222 comparetotmag -8 7.0 -> 1 -dqctm223 comparetotmag -8E+0 7.0 -> 1 -dqctm224 comparetotmag -80E-1 7.0 -> 1 -dqctm225 comparetotmag -0.8E+1 7 -> 1 -dqctm226 comparetotmag -80E-1 7 -> 1 -dqctm227 comparetotmag -8.0 7E+0 -> 1 -dqctm228 comparetotmag -8.0 70E-1 -> 1 -dqctm229 comparetotmag -8 0.7E+1 -> 1 -dqctm230 comparetotmag -8 70E-1 -> 1 - -dqctm240 comparetotmag -8.0 9.0 -> -1 -dqctm241 comparetotmag -8.0 9 -> -1 -dqctm242 comparetotmag -8 9.0 -> -1 -dqctm243 comparetotmag -8E+0 9.0 -> -1 -dqctm244 comparetotmag -80E-1 9.0 -> -1 -dqctm245 comparetotmag -0.8E+1 9 -> -1 -dqctm246 comparetotmag -80E-1 9 -> -1 -dqctm247 comparetotmag -8.0 9E+0 -> -1 -dqctm248 comparetotmag -8.0 90E-1 -> -1 -dqctm249 comparetotmag -8 0.9E+1 -> -1 -dqctm250 comparetotmag -8 90E-1 -> -1 - --- and again, with sign changes +- .. -dqctm300 comparetotmag 7.0 -7.0 -> 0 -dqctm301 comparetotmag 7.0 -7 -> -1 -dqctm302 comparetotmag 7 -7.0 -> 1 -dqctm303 comparetotmag 7E+0 -7.0 -> 1 -dqctm304 comparetotmag 70E-1 -7.0 -> 0 -dqctm305 comparetotmag .7E+1 -7 -> 0 -dqctm306 comparetotmag 70E-1 -7 -> -1 -dqctm307 comparetotmag 7.0 -7E+0 -> -1 -dqctm308 comparetotmag 7.0 -70E-1 -> 0 -dqctm309 comparetotmag 7 -.7E+1 -> 0 -dqctm310 comparetotmag 7 -70E-1 -> 1 - -dqctm320 comparetotmag 8.0 -7.0 -> 1 -dqctm321 comparetotmag 8.0 -7 -> 1 -dqctm322 comparetotmag 8 -7.0 -> 1 -dqctm323 comparetotmag 8E+0 -7.0 -> 1 -dqctm324 comparetotmag 80E-1 -7.0 -> 1 -dqctm325 comparetotmag .8E+1 -7 -> 1 -dqctm326 comparetotmag 80E-1 -7 -> 1 -dqctm327 comparetotmag 8.0 -7E+0 -> 1 -dqctm328 comparetotmag 8.0 -70E-1 -> 1 -dqctm329 comparetotmag 8 -.7E+1 -> 1 -dqctm330 comparetotmag 8 -70E-1 -> 1 - -dqctm340 comparetotmag 8.0 -9.0 -> -1 -dqctm341 comparetotmag 8.0 -9 -> -1 -dqctm342 comparetotmag 8 -9.0 -> -1 -dqctm343 comparetotmag 8E+0 -9.0 -> -1 -dqctm344 comparetotmag 80E-1 -9.0 -> -1 -dqctm345 comparetotmag .8E+1 -9 -> -1 -dqctm346 comparetotmag 80E-1 -9 -> -1 -dqctm347 comparetotmag 8.0 -9E+0 -> -1 -dqctm348 comparetotmag 8.0 -90E-1 -> -1 -dqctm349 comparetotmag 8 -.9E+1 -> -1 -dqctm350 comparetotmag 8 -90E-1 -> -1 - --- and again, with sign changes -- .. -dqctm400 comparetotmag -7.0 -7.0 -> 0 -dqctm401 comparetotmag -7.0 -7 -> -1 -dqctm402 comparetotmag -7 -7.0 -> 1 -dqctm403 comparetotmag -7E+0 -7.0 -> 1 -dqctm404 comparetotmag -70E-1 -7.0 -> 0 -dqctm405 comparetotmag -.7E+1 -7 -> 0 -dqctm406 comparetotmag -70E-1 -7 -> -1 -dqctm407 comparetotmag -7.0 -7E+0 -> -1 -dqctm408 comparetotmag -7.0 -70E-1 -> 0 -dqctm409 comparetotmag -7 -.7E+1 -> 0 -dqctm410 comparetotmag -7 -70E-1 -> 1 - -dqctm420 comparetotmag -8.0 -7.0 -> 1 -dqctm421 comparetotmag -8.0 -7 -> 1 -dqctm422 comparetotmag -8 -7.0 -> 1 -dqctm423 comparetotmag -8E+0 -7.0 -> 1 -dqctm424 comparetotmag -80E-1 -7.0 -> 1 -dqctm425 comparetotmag -.8E+1 -7 -> 1 -dqctm426 comparetotmag -80E-1 -7 -> 1 -dqctm427 comparetotmag -8.0 -7E+0 -> 1 -dqctm428 comparetotmag -8.0 -70E-1 -> 1 -dqctm429 comparetotmag -8 -.7E+1 -> 1 -dqctm430 comparetotmag -8 -70E-1 -> 1 - -dqctm440 comparetotmag -8.0 -9.0 -> -1 -dqctm441 comparetotmag -8.0 -9 -> -1 -dqctm442 comparetotmag -8 -9.0 -> -1 -dqctm443 comparetotmag -8E+0 -9.0 -> -1 -dqctm444 comparetotmag -80E-1 -9.0 -> -1 -dqctm445 comparetotmag -.8E+1 -9 -> -1 -dqctm446 comparetotmag -80E-1 -9 -> -1 -dqctm447 comparetotmag -8.0 -9E+0 -> -1 -dqctm448 comparetotmag -8.0 -90E-1 -> -1 -dqctm449 comparetotmag -8 -.9E+1 -> -1 -dqctm450 comparetotmag -8 -90E-1 -> -1 - - --- testcases that subtract to lots of zeros at boundaries [pgr] -dqctm473 comparetotmag 123.4560000000000E-89 123.456E-89 -> -1 -dqctm474 comparetotmag 123.456000000000E+89 123.456E+89 -> -1 -dqctm475 comparetotmag 123.45600000000E-89 123.456E-89 -> -1 -dqctm476 comparetotmag 123.4560000000E+89 123.456E+89 -> -1 -dqctm477 comparetotmag 123.456000000E-89 123.456E-89 -> -1 -dqctm478 comparetotmag 123.45600000E+89 123.456E+89 -> -1 -dqctm479 comparetotmag 123.4560000E-89 123.456E-89 -> -1 -dqctm480 comparetotmag 123.456000E+89 123.456E+89 -> -1 -dqctm481 comparetotmag 123.45600E-89 123.456E-89 -> -1 -dqctm482 comparetotmag 123.4560E+89 123.456E+89 -> -1 -dqctm483 comparetotmag 123.456E-89 123.456E-89 -> 0 -dqctm487 comparetotmag 123.456E+89 123.4560000000000E+89 -> 1 -dqctm488 comparetotmag 123.456E-89 123.456000000000E-89 -> 1 -dqctm489 comparetotmag 123.456E+89 123.45600000000E+89 -> 1 -dqctm490 comparetotmag 123.456E-89 123.4560000000E-89 -> 1 -dqctm491 comparetotmag 123.456E+89 123.456000000E+89 -> 1 -dqctm492 comparetotmag 123.456E-89 123.45600000E-89 -> 1 -dqctm493 comparetotmag 123.456E+89 123.4560000E+89 -> 1 -dqctm494 comparetotmag 123.456E-89 123.456000E-89 -> 1 -dqctm495 comparetotmag 123.456E+89 123.45600E+89 -> 1 -dqctm496 comparetotmag 123.456E-89 123.4560E-89 -> 1 -dqctm497 comparetotmag 123.456E+89 123.456E+89 -> 0 - --- wide-ranging, around precision; signs equal -dqctm498 comparetotmag 1 1E-17 -> 1 -dqctm499 comparetotmag 1 1E-16 -> 1 -dqctm500 comparetotmag 1 1E-15 -> 1 -dqctm501 comparetotmag 1 1E-14 -> 1 -dqctm502 comparetotmag 1 1E-13 -> 1 -dqctm503 comparetotmag 1 1E-12 -> 1 -dqctm504 comparetotmag 1 1E-11 -> 1 -dqctm505 comparetotmag 1 1E-10 -> 1 -dqctm506 comparetotmag 1 1E-9 -> 1 -dqctm507 comparetotmag 1 1E-8 -> 1 -dqctm508 comparetotmag 1 1E-7 -> 1 -dqctm509 comparetotmag 1 1E-6 -> 1 -dqctm510 comparetotmag 1 1E-5 -> 1 -dqctm511 comparetotmag 1 1E-4 -> 1 -dqctm512 comparetotmag 1 1E-3 -> 1 -dqctm513 comparetotmag 1 1E-2 -> 1 -dqctm514 comparetotmag 1 1E-1 -> 1 -dqctm515 comparetotmag 1 1E-0 -> 0 -dqctm516 comparetotmag 1 1E+1 -> -1 -dqctm517 comparetotmag 1 1E+2 -> -1 -dqctm518 comparetotmag 1 1E+3 -> -1 -dqctm519 comparetotmag 1 1E+4 -> -1 -dqctm521 comparetotmag 1 1E+5 -> -1 -dqctm522 comparetotmag 1 1E+6 -> -1 -dqctm523 comparetotmag 1 1E+7 -> -1 -dqctm524 comparetotmag 1 1E+8 -> -1 -dqctm525 comparetotmag 1 1E+9 -> -1 -dqctm526 comparetotmag 1 1E+10 -> -1 -dqctm527 comparetotmag 1 1E+11 -> -1 -dqctm528 comparetotmag 1 1E+12 -> -1 -dqctm529 comparetotmag 1 1E+13 -> -1 -dqctm530 comparetotmag 1 1E+14 -> -1 -dqctm531 comparetotmag 1 1E+15 -> -1 -dqctm532 comparetotmag 1 1E+16 -> -1 -dqctm533 comparetotmag 1 1E+17 -> -1 --- LR swap -dqctm538 comparetotmag 1E-17 1 -> -1 -dqctm539 comparetotmag 1E-16 1 -> -1 -dqctm540 comparetotmag 1E-15 1 -> -1 -dqctm541 comparetotmag 1E-14 1 -> -1 -dqctm542 comparetotmag 1E-13 1 -> -1 -dqctm543 comparetotmag 1E-12 1 -> -1 -dqctm544 comparetotmag 1E-11 1 -> -1 -dqctm545 comparetotmag 1E-10 1 -> -1 -dqctm546 comparetotmag 1E-9 1 -> -1 -dqctm547 comparetotmag 1E-8 1 -> -1 -dqctm548 comparetotmag 1E-7 1 -> -1 -dqctm549 comparetotmag 1E-6 1 -> -1 -dqctm550 comparetotmag 1E-5 1 -> -1 -dqctm551 comparetotmag 1E-4 1 -> -1 -dqctm552 comparetotmag 1E-3 1 -> -1 -dqctm553 comparetotmag 1E-2 1 -> -1 -dqctm554 comparetotmag 1E-1 1 -> -1 -dqctm555 comparetotmag 1E-0 1 -> 0 -dqctm556 comparetotmag 1E+1 1 -> 1 -dqctm557 comparetotmag 1E+2 1 -> 1 -dqctm558 comparetotmag 1E+3 1 -> 1 -dqctm559 comparetotmag 1E+4 1 -> 1 -dqctm561 comparetotmag 1E+5 1 -> 1 -dqctm562 comparetotmag 1E+6 1 -> 1 -dqctm563 comparetotmag 1E+7 1 -> 1 -dqctm564 comparetotmag 1E+8 1 -> 1 -dqctm565 comparetotmag 1E+9 1 -> 1 -dqctm566 comparetotmag 1E+10 1 -> 1 -dqctm567 comparetotmag 1E+11 1 -> 1 -dqctm568 comparetotmag 1E+12 1 -> 1 -dqctm569 comparetotmag 1E+13 1 -> 1 -dqctm570 comparetotmag 1E+14 1 -> 1 -dqctm571 comparetotmag 1E+15 1 -> 1 -dqctm572 comparetotmag 1E+16 1 -> 1 -dqctm573 comparetotmag 1E+17 1 -> 1 --- similar with a useful coefficient, one side only -dqctm578 comparetotmag 0.000000987654321 1E-17 -> 1 -dqctm579 comparetotmag 0.000000987654321 1E-16 -> 1 -dqctm580 comparetotmag 0.000000987654321 1E-15 -> 1 -dqctm581 comparetotmag 0.000000987654321 1E-14 -> 1 -dqctm582 comparetotmag 0.000000987654321 1E-13 -> 1 -dqctm583 comparetotmag 0.000000987654321 1E-12 -> 1 -dqctm584 comparetotmag 0.000000987654321 1E-11 -> 1 -dqctm585 comparetotmag 0.000000987654321 1E-10 -> 1 -dqctm586 comparetotmag 0.000000987654321 1E-9 -> 1 -dqctm587 comparetotmag 0.000000987654321 1E-8 -> 1 -dqctm588 comparetotmag 0.000000987654321 1E-7 -> 1 -dqctm589 comparetotmag 0.000000987654321 1E-6 -> -1 -dqctm590 comparetotmag 0.000000987654321 1E-5 -> -1 -dqctm591 comparetotmag 0.000000987654321 1E-4 -> -1 -dqctm592 comparetotmag 0.000000987654321 1E-3 -> -1 -dqctm593 comparetotmag 0.000000987654321 1E-2 -> -1 -dqctm594 comparetotmag 0.000000987654321 1E-1 -> -1 -dqctm595 comparetotmag 0.000000987654321 1E-0 -> -1 -dqctm596 comparetotmag 0.000000987654321 1E+1 -> -1 -dqctm597 comparetotmag 0.000000987654321 1E+2 -> -1 -dqctm598 comparetotmag 0.000000987654321 1E+3 -> -1 -dqctm599 comparetotmag 0.000000987654321 1E+4 -> -1 - --- check some unit-y traps -dqctm600 comparetotmag 12 12.2345 -> -1 -dqctm601 comparetotmag 12.0 12.2345 -> -1 -dqctm602 comparetotmag 12.00 12.2345 -> -1 -dqctm603 comparetotmag 12.000 12.2345 -> -1 -dqctm604 comparetotmag 12.0000 12.2345 -> -1 -dqctm605 comparetotmag 12.00000 12.2345 -> -1 -dqctm606 comparetotmag 12.000000 12.2345 -> -1 -dqctm607 comparetotmag 12.0000000 12.2345 -> -1 -dqctm608 comparetotmag 12.00000000 12.2345 -> -1 -dqctm609 comparetotmag 12.000000000 12.2345 -> -1 -dqctm610 comparetotmag 12.1234 12 -> 1 -dqctm611 comparetotmag 12.1234 12.0 -> 1 -dqctm612 comparetotmag 12.1234 12.00 -> 1 -dqctm613 comparetotmag 12.1234 12.000 -> 1 -dqctm614 comparetotmag 12.1234 12.0000 -> 1 -dqctm615 comparetotmag 12.1234 12.00000 -> 1 -dqctm616 comparetotmag 12.1234 12.000000 -> 1 -dqctm617 comparetotmag 12.1234 12.0000000 -> 1 -dqctm618 comparetotmag 12.1234 12.00000000 -> 1 -dqctm619 comparetotmag 12.1234 12.000000000 -> 1 -dqctm620 comparetotmag -12 -12.2345 -> -1 -dqctm621 comparetotmag -12.0 -12.2345 -> -1 -dqctm622 comparetotmag -12.00 -12.2345 -> -1 -dqctm623 comparetotmag -12.000 -12.2345 -> -1 -dqctm624 comparetotmag -12.0000 -12.2345 -> -1 -dqctm625 comparetotmag -12.00000 -12.2345 -> -1 -dqctm626 comparetotmag -12.000000 -12.2345 -> -1 -dqctm627 comparetotmag -12.0000000 -12.2345 -> -1 -dqctm628 comparetotmag -12.00000000 -12.2345 -> -1 -dqctm629 comparetotmag -12.000000000 -12.2345 -> -1 -dqctm630 comparetotmag -12.1234 -12 -> 1 -dqctm631 comparetotmag -12.1234 -12.0 -> 1 -dqctm632 comparetotmag -12.1234 -12.00 -> 1 -dqctm633 comparetotmag -12.1234 -12.000 -> 1 -dqctm634 comparetotmag -12.1234 -12.0000 -> 1 -dqctm635 comparetotmag -12.1234 -12.00000 -> 1 -dqctm636 comparetotmag -12.1234 -12.000000 -> 1 -dqctm637 comparetotmag -12.1234 -12.0000000 -> 1 -dqctm638 comparetotmag -12.1234 -12.00000000 -> 1 -dqctm639 comparetotmag -12.1234 -12.000000000 -> 1 - --- extended zeros -dqctm640 comparetotmag 0 0 -> 0 -dqctm641 comparetotmag 0 -0 -> 0 -dqctm642 comparetotmag 0 -0.0 -> 1 -dqctm643 comparetotmag 0 0.0 -> 1 -dqctm644 comparetotmag -0 0 -> 0 -dqctm645 comparetotmag -0 -0 -> 0 -dqctm646 comparetotmag -0 -0.0 -> 1 -dqctm647 comparetotmag -0 0.0 -> 1 -dqctm648 comparetotmag 0.0 0 -> -1 -dqctm649 comparetotmag 0.0 -0 -> -1 -dqctm650 comparetotmag 0.0 -0.0 -> 0 -dqctm651 comparetotmag 0.0 0.0 -> 0 -dqctm652 comparetotmag -0.0 0 -> -1 -dqctm653 comparetotmag -0.0 -0 -> -1 -dqctm654 comparetotmag -0.0 -0.0 -> 0 -dqctm655 comparetotmag -0.0 0.0 -> 0 - -dqctm656 comparetotmag -0E1 0.0 -> 1 -dqctm657 comparetotmag -0E2 0.0 -> 1 -dqctm658 comparetotmag 0E1 0.0 -> 1 -dqctm659 comparetotmag 0E2 0.0 -> 1 -dqctm660 comparetotmag -0E1 0 -> 1 -dqctm661 comparetotmag -0E2 0 -> 1 -dqctm662 comparetotmag 0E1 0 -> 1 -dqctm663 comparetotmag 0E2 0 -> 1 -dqctm664 comparetotmag -0E1 -0E1 -> 0 -dqctm665 comparetotmag -0E2 -0E1 -> 1 -dqctm666 comparetotmag 0E1 -0E1 -> 0 -dqctm667 comparetotmag 0E2 -0E1 -> 1 -dqctm668 comparetotmag -0E1 -0E2 -> -1 -dqctm669 comparetotmag -0E2 -0E2 -> 0 -dqctm670 comparetotmag 0E1 -0E2 -> -1 -dqctm671 comparetotmag 0E2 -0E2 -> 0 -dqctm672 comparetotmag -0E1 0E1 -> 0 -dqctm673 comparetotmag -0E2 0E1 -> 1 -dqctm674 comparetotmag 0E1 0E1 -> 0 -dqctm675 comparetotmag 0E2 0E1 -> 1 -dqctm676 comparetotmag -0E1 0E2 -> -1 -dqctm677 comparetotmag -0E2 0E2 -> 0 -dqctm678 comparetotmag 0E1 0E2 -> -1 -dqctm679 comparetotmag 0E2 0E2 -> 0 - --- trailing zeros; unit-y -dqctm680 comparetotmag 12 12 -> 0 -dqctm681 comparetotmag 12 12.0 -> 1 -dqctm682 comparetotmag 12 12.00 -> 1 -dqctm683 comparetotmag 12 12.000 -> 1 -dqctm684 comparetotmag 12 12.0000 -> 1 -dqctm685 comparetotmag 12 12.00000 -> 1 -dqctm686 comparetotmag 12 12.000000 -> 1 -dqctm687 comparetotmag 12 12.0000000 -> 1 -dqctm688 comparetotmag 12 12.00000000 -> 1 -dqctm689 comparetotmag 12 12.000000000 -> 1 -dqctm690 comparetotmag 12 12 -> 0 -dqctm691 comparetotmag 12.0 12 -> -1 -dqctm692 comparetotmag 12.00 12 -> -1 -dqctm693 comparetotmag 12.000 12 -> -1 -dqctm694 comparetotmag 12.0000 12 -> -1 -dqctm695 comparetotmag 12.00000 12 -> -1 -dqctm696 comparetotmag 12.000000 12 -> -1 -dqctm697 comparetotmag 12.0000000 12 -> -1 -dqctm698 comparetotmag 12.00000000 12 -> -1 -dqctm699 comparetotmag 12.000000000 12 -> -1 - --- old long operand checks -dqctm701 comparetotmag 12345678000 1 -> 1 -dqctm702 comparetotmag 1 12345678000 -> -1 -dqctm703 comparetotmag 1234567800 1 -> 1 -dqctm704 comparetotmag 1 1234567800 -> -1 -dqctm705 comparetotmag 1234567890 1 -> 1 -dqctm706 comparetotmag 1 1234567890 -> -1 -dqctm707 comparetotmag 1234567891 1 -> 1 -dqctm708 comparetotmag 1 1234567891 -> -1 -dqctm709 comparetotmag 12345678901 1 -> 1 -dqctm710 comparetotmag 1 12345678901 -> -1 -dqctm711 comparetotmag 1234567896 1 -> 1 -dqctm712 comparetotmag 1 1234567896 -> -1 -dqctm713 comparetotmag -1234567891 1 -> 1 -dqctm714 comparetotmag 1 -1234567891 -> -1 -dqctm715 comparetotmag -12345678901 1 -> 1 -dqctm716 comparetotmag 1 -12345678901 -> -1 -dqctm717 comparetotmag -1234567896 1 -> 1 -dqctm718 comparetotmag 1 -1234567896 -> -1 - --- old residue cases -dqctm740 comparetotmag 1 0.9999999 -> 1 -dqctm741 comparetotmag 1 0.999999 -> 1 -dqctm742 comparetotmag 1 0.99999 -> 1 -dqctm743 comparetotmag 1 1.0000 -> 1 -dqctm744 comparetotmag 1 1.00001 -> -1 -dqctm745 comparetotmag 1 1.000001 -> -1 -dqctm746 comparetotmag 1 1.0000001 -> -1 -dqctm750 comparetotmag 0.9999999 1 -> -1 -dqctm751 comparetotmag 0.999999 1 -> -1 -dqctm752 comparetotmag 0.99999 1 -> -1 -dqctm753 comparetotmag 1.0000 1 -> -1 -dqctm754 comparetotmag 1.00001 1 -> 1 -dqctm755 comparetotmag 1.000001 1 -> 1 -dqctm756 comparetotmag 1.0000001 1 -> 1 - --- Specials -dqctm780 comparetotmag Inf -Inf -> 0 -dqctm781 comparetotmag Inf -1000 -> 1 -dqctm782 comparetotmag Inf -1 -> 1 -dqctm783 comparetotmag Inf -0 -> 1 -dqctm784 comparetotmag Inf 0 -> 1 -dqctm785 comparetotmag Inf 1 -> 1 -dqctm786 comparetotmag Inf 1000 -> 1 -dqctm787 comparetotmag Inf Inf -> 0 -dqctm788 comparetotmag -1000 Inf -> -1 -dqctm789 comparetotmag -Inf Inf -> 0 -dqctm790 comparetotmag -1 Inf -> -1 -dqctm791 comparetotmag -0 Inf -> -1 -dqctm792 comparetotmag 0 Inf -> -1 -dqctm793 comparetotmag 1 Inf -> -1 -dqctm794 comparetotmag 1000 Inf -> -1 -dqctm795 comparetotmag Inf Inf -> 0 - -dqctm800 comparetotmag -Inf -Inf -> 0 -dqctm801 comparetotmag -Inf -1000 -> 1 -dqctm802 comparetotmag -Inf -1 -> 1 -dqctm803 comparetotmag -Inf -0 -> 1 -dqctm804 comparetotmag -Inf 0 -> 1 -dqctm805 comparetotmag -Inf 1 -> 1 -dqctm806 comparetotmag -Inf 1000 -> 1 -dqctm807 comparetotmag -Inf Inf -> 0 -dqctm808 comparetotmag -Inf -Inf -> 0 -dqctm809 comparetotmag -1000 -Inf -> -1 -dqctm810 comparetotmag -1 -Inf -> -1 -dqctm811 comparetotmag -0 -Inf -> -1 -dqctm812 comparetotmag 0 -Inf -> -1 -dqctm813 comparetotmag 1 -Inf -> -1 -dqctm814 comparetotmag 1000 -Inf -> -1 -dqctm815 comparetotmag Inf -Inf -> 0 - -dqctm821 comparetotmag NaN -Inf -> 1 -dqctm822 comparetotmag NaN -1000 -> 1 -dqctm823 comparetotmag NaN -1 -> 1 -dqctm824 comparetotmag NaN -0 -> 1 -dqctm825 comparetotmag NaN 0 -> 1 -dqctm826 comparetotmag NaN 1 -> 1 -dqctm827 comparetotmag NaN 1000 -> 1 -dqctm828 comparetotmag NaN Inf -> 1 -dqctm829 comparetotmag NaN NaN -> 0 -dqctm830 comparetotmag -Inf NaN -> -1 -dqctm831 comparetotmag -1000 NaN -> -1 -dqctm832 comparetotmag -1 NaN -> -1 -dqctm833 comparetotmag -0 NaN -> -1 -dqctm834 comparetotmag 0 NaN -> -1 -dqctm835 comparetotmag 1 NaN -> -1 -dqctm836 comparetotmag 1000 NaN -> -1 -dqctm837 comparetotmag Inf NaN -> -1 -dqctm838 comparetotmag -NaN -NaN -> 0 -dqctm839 comparetotmag +NaN -NaN -> 0 -dqctm840 comparetotmag -NaN +NaN -> 0 - -dqctm841 comparetotmag sNaN -sNaN -> 0 -dqctm842 comparetotmag sNaN -NaN -> -1 -dqctm843 comparetotmag sNaN -Inf -> 1 -dqctm844 comparetotmag sNaN -1000 -> 1 -dqctm845 comparetotmag sNaN -1 -> 1 -dqctm846 comparetotmag sNaN -0 -> 1 -dqctm847 comparetotmag sNaN 0 -> 1 -dqctm848 comparetotmag sNaN 1 -> 1 -dqctm849 comparetotmag sNaN 1000 -> 1 -dqctm850 comparetotmag sNaN NaN -> -1 -dqctm851 comparetotmag sNaN sNaN -> 0 - -dqctm852 comparetotmag -sNaN sNaN -> 0 -dqctm853 comparetotmag -NaN sNaN -> 1 -dqctm854 comparetotmag -Inf sNaN -> -1 -dqctm855 comparetotmag -1000 sNaN -> -1 -dqctm856 comparetotmag -1 sNaN -> -1 -dqctm857 comparetotmag -0 sNaN -> -1 -dqctm858 comparetotmag 0 sNaN -> -1 -dqctm859 comparetotmag 1 sNaN -> -1 -dqctm860 comparetotmag 1000 sNaN -> -1 -dqctm861 comparetotmag Inf sNaN -> -1 -dqctm862 comparetotmag NaN sNaN -> 1 -dqctm863 comparetotmag sNaN sNaN -> 0 - -dqctm871 comparetotmag -sNaN -sNaN -> 0 -dqctm872 comparetotmag -sNaN -NaN -> -1 -dqctm873 comparetotmag -sNaN -Inf -> 1 -dqctm874 comparetotmag -sNaN -1000 -> 1 -dqctm875 comparetotmag -sNaN -1 -> 1 -dqctm876 comparetotmag -sNaN -0 -> 1 -dqctm877 comparetotmag -sNaN 0 -> 1 -dqctm878 comparetotmag -sNaN 1 -> 1 -dqctm879 comparetotmag -sNaN 1000 -> 1 -dqctm880 comparetotmag -sNaN NaN -> -1 -dqctm881 comparetotmag -sNaN sNaN -> 0 - -dqctm882 comparetotmag -sNaN -sNaN -> 0 -dqctm883 comparetotmag -NaN -sNaN -> 1 -dqctm884 comparetotmag -Inf -sNaN -> -1 -dqctm885 comparetotmag -1000 -sNaN -> -1 -dqctm886 comparetotmag -1 -sNaN -> -1 -dqctm887 comparetotmag -0 -sNaN -> -1 -dqctm888 comparetotmag 0 -sNaN -> -1 -dqctm889 comparetotmag 1 -sNaN -> -1 -dqctm890 comparetotmag 1000 -sNaN -> -1 -dqctm891 comparetotmag Inf -sNaN -> -1 -dqctm892 comparetotmag NaN -sNaN -> 1 -dqctm893 comparetotmag sNaN -sNaN -> 0 - --- NaNs with payload -dqctm960 comparetotmag NaN9 -Inf -> 1 -dqctm961 comparetotmag NaN8 999 -> 1 -dqctm962 comparetotmag NaN77 Inf -> 1 -dqctm963 comparetotmag -NaN67 NaN5 -> 1 -dqctm964 comparetotmag -Inf -NaN4 -> -1 -dqctm965 comparetotmag -999 -NaN33 -> -1 -dqctm966 comparetotmag Inf NaN2 -> -1 - -dqctm970 comparetotmag -NaN41 -NaN42 -> -1 -dqctm971 comparetotmag +NaN41 -NaN42 -> -1 -dqctm972 comparetotmag -NaN41 +NaN42 -> -1 -dqctm973 comparetotmag +NaN41 +NaN42 -> -1 -dqctm974 comparetotmag -NaN42 -NaN01 -> 1 -dqctm975 comparetotmag +NaN42 -NaN01 -> 1 -dqctm976 comparetotmag -NaN42 +NaN01 -> 1 -dqctm977 comparetotmag +NaN42 +NaN01 -> 1 - -dqctm980 comparetotmag -sNaN771 -sNaN772 -> -1 -dqctm981 comparetotmag +sNaN771 -sNaN772 -> -1 -dqctm982 comparetotmag -sNaN771 +sNaN772 -> -1 -dqctm983 comparetotmag +sNaN771 +sNaN772 -> -1 -dqctm984 comparetotmag -sNaN772 -sNaN771 -> 1 -dqctm985 comparetotmag +sNaN772 -sNaN771 -> 1 -dqctm986 comparetotmag -sNaN772 +sNaN771 -> 1 -dqctm987 comparetotmag +sNaN772 +sNaN771 -> 1 - -dqctm991 comparetotmag -sNaN99 -Inf -> 1 -dqctm992 comparetotmag sNaN98 -11 -> 1 -dqctm993 comparetotmag sNaN97 NaN -> -1 -dqctm994 comparetotmag sNaN16 sNaN94 -> -1 -dqctm995 comparetotmag NaN85 sNaN83 -> 1 -dqctm996 comparetotmag -Inf sNaN92 -> -1 -dqctm997 comparetotmag 088 sNaN81 -> -1 -dqctm998 comparetotmag Inf sNaN90 -> -1 -dqctm999 comparetotmag NaN -sNaN89 -> 1 - --- spread zeros -dqctm1110 comparetotmag 0E-6143 0 -> -1 -dqctm1111 comparetotmag 0E-6143 -0 -> -1 -dqctm1112 comparetotmag -0E-6143 0 -> -1 -dqctm1113 comparetotmag -0E-6143 -0 -> -1 -dqctm1114 comparetotmag 0E-6143 0E+6144 -> -1 -dqctm1115 comparetotmag 0E-6143 -0E+6144 -> -1 -dqctm1116 comparetotmag -0E-6143 0E+6144 -> -1 -dqctm1117 comparetotmag -0E-6143 -0E+6144 -> -1 -dqctm1118 comparetotmag 0 0E+6144 -> -1 -dqctm1119 comparetotmag 0 -0E+6144 -> -1 -dqctm1120 comparetotmag -0 0E+6144 -> -1 -dqctm1121 comparetotmag -0 -0E+6144 -> -1 - -dqctm1130 comparetotmag 0E+6144 0 -> 1 -dqctm1131 comparetotmag 0E+6144 -0 -> 1 -dqctm1132 comparetotmag -0E+6144 0 -> 1 -dqctm1133 comparetotmag -0E+6144 -0 -> 1 -dqctm1134 comparetotmag 0E+6144 0E-6143 -> 1 -dqctm1135 comparetotmag 0E+6144 -0E-6143 -> 1 -dqctm1136 comparetotmag -0E+6144 0E-6143 -> 1 -dqctm1137 comparetotmag -0E+6144 -0E-6143 -> 1 -dqctm1138 comparetotmag 0 0E-6143 -> 1 -dqctm1139 comparetotmag 0 -0E-6143 -> 1 -dqctm1140 comparetotmag -0 0E-6143 -> 1 -dqctm1141 comparetotmag -0 -0E-6143 -> 1 - --- Null tests -dqctm9990 comparetotmag 10 # -> NaN Invalid_operation -dqctm9991 comparetotmag # 10 -> NaN Invalid_operation +------------------------------------------------------------------------
+-- dqCompareTotalMag.decTest -- decQuad comparison; abs. total order --
+-- Copyright (c) IBM Corporation, 1981, 2008. All rights reserved. --
+------------------------------------------------------------------------
+-- Please see the document "General Decimal Arithmetic Testcases" --
+-- at http://www2.hursley.ibm.com/decimal for the description of --
+-- these testcases. --
+-- --
+-- These testcases are experimental ('beta' versions), and they --
+-- may contain errors. They are offered on an as-is basis. In --
+-- particular, achieving the same results as the tests here is not --
+-- a guarantee that an implementation complies with any Standard --
+-- or specification. The tests are not exhaustive. --
+-- --
+-- Please send comments, suggestions, and corrections to the author: --
+-- Mike Cowlishaw, IBM Fellow --
+-- IBM UK, PO Box 31, Birmingham Road, Warwick CV34 5JL, UK --
+-- mfc@uk.ibm.com --
+------------------------------------------------------------------------
+version: 2.59
+
+-- Note that we cannot assume add/subtract tests cover paths adequately,
+-- here, because the code might be quite different (comparison cannot
+-- overflow or underflow, so actual subtractions are not necessary).
+-- Similarly, comparetotal will have some radically different paths
+-- than compare.
+
+-- All operands and results are decQuads.
+extended: 1
+clamp: 1
+precision: 34
+maxExponent: 6144
+minExponent: -6143
+rounding: half_even
+
+-- sanity checks
+dqctm001 comparetotmag -2 -2 -> 0
+dqctm002 comparetotmag -2 -1 -> 1
+dqctm003 comparetotmag -2 0 -> 1
+dqctm004 comparetotmag -2 1 -> 1
+dqctm005 comparetotmag -2 2 -> 0
+dqctm006 comparetotmag -1 -2 -> -1
+dqctm007 comparetotmag -1 -1 -> 0
+dqctm008 comparetotmag -1 0 -> 1
+dqctm009 comparetotmag -1 1 -> 0
+dqctm010 comparetotmag -1 2 -> -1
+dqctm011 comparetotmag 0 -2 -> -1
+dqctm012 comparetotmag 0 -1 -> -1
+dqctm013 comparetotmag 0 0 -> 0
+dqctm014 comparetotmag 0 1 -> -1
+dqctm015 comparetotmag 0 2 -> -1
+dqctm016 comparetotmag 1 -2 -> -1
+dqctm017 comparetotmag 1 -1 -> 0
+dqctm018 comparetotmag 1 0 -> 1
+dqctm019 comparetotmag 1 1 -> 0
+dqctm020 comparetotmag 1 2 -> -1
+dqctm021 comparetotmag 2 -2 -> 0
+dqctm022 comparetotmag 2 -1 -> 1
+dqctm023 comparetotmag 2 0 -> 1
+dqctm025 comparetotmag 2 1 -> 1
+dqctm026 comparetotmag 2 2 -> 0
+
+dqctm031 comparetotmag -20 -20 -> 0
+dqctm032 comparetotmag -20 -10 -> 1
+dqctm033 comparetotmag -20 00 -> 1
+dqctm034 comparetotmag -20 10 -> 1
+dqctm035 comparetotmag -20 20 -> 0
+dqctm036 comparetotmag -10 -20 -> -1
+dqctm037 comparetotmag -10 -10 -> 0
+dqctm038 comparetotmag -10 00 -> 1
+dqctm039 comparetotmag -10 10 -> 0
+dqctm040 comparetotmag -10 20 -> -1
+dqctm041 comparetotmag 00 -20 -> -1
+dqctm042 comparetotmag 00 -10 -> -1
+dqctm043 comparetotmag 00 00 -> 0
+dqctm044 comparetotmag 00 10 -> -1
+dqctm045 comparetotmag 00 20 -> -1
+dqctm046 comparetotmag 10 -20 -> -1
+dqctm047 comparetotmag 10 -10 -> 0
+dqctm048 comparetotmag 10 00 -> 1
+dqctm049 comparetotmag 10 10 -> 0
+dqctm050 comparetotmag 10 20 -> -1
+dqctm051 comparetotmag 20 -20 -> 0
+dqctm052 comparetotmag 20 -10 -> 1
+dqctm053 comparetotmag 20 00 -> 1
+dqctm055 comparetotmag 20 10 -> 1
+dqctm056 comparetotmag 20 20 -> 0
+
+dqctm061 comparetotmag -2.0 -2.0 -> 0
+dqctm062 comparetotmag -2.0 -1.0 -> 1
+dqctm063 comparetotmag -2.0 0.0 -> 1
+dqctm064 comparetotmag -2.0 1.0 -> 1
+dqctm065 comparetotmag -2.0 2.0 -> 0
+dqctm066 comparetotmag -1.0 -2.0 -> -1
+dqctm067 comparetotmag -1.0 -1.0 -> 0
+dqctm068 comparetotmag -1.0 0.0 -> 1
+dqctm069 comparetotmag -1.0 1.0 -> 0
+dqctm070 comparetotmag -1.0 2.0 -> -1
+dqctm071 comparetotmag 0.0 -2.0 -> -1
+dqctm072 comparetotmag 0.0 -1.0 -> -1
+dqctm073 comparetotmag 0.0 0.0 -> 0
+dqctm074 comparetotmag 0.0 1.0 -> -1
+dqctm075 comparetotmag 0.0 2.0 -> -1
+dqctm076 comparetotmag 1.0 -2.0 -> -1
+dqctm077 comparetotmag 1.0 -1.0 -> 0
+dqctm078 comparetotmag 1.0 0.0 -> 1
+dqctm079 comparetotmag 1.0 1.0 -> 0
+dqctm080 comparetotmag 1.0 2.0 -> -1
+dqctm081 comparetotmag 2.0 -2.0 -> 0
+dqctm082 comparetotmag 2.0 -1.0 -> 1
+dqctm083 comparetotmag 2.0 0.0 -> 1
+dqctm085 comparetotmag 2.0 1.0 -> 1
+dqctm086 comparetotmag 2.0 2.0 -> 0
+
+-- now some cases which might overflow if subtract were used
+dqctm090 comparetotmag 9.99999999999999999999999999999E+6144 9.99999999999999999999999999999E+6144 -> 0
+dqctm091 comparetotmag -9.99999999999999999999999999999E+6144 9.99999999999999999999999999999E+6144 -> 0
+dqctm092 comparetotmag 9.99999999999999999999999999999E+6144 -9.99999999999999999999999999999E+6144 -> 0
+dqctm093 comparetotmag -9.99999999999999999999999999999E+6144 -9.99999999999999999999999999999E+6144 -> 0
+
+-- some differing length/exponent cases
+-- in this first group, compare would compare all equal
+dqctm100 comparetotmag 7.0 7.0 -> 0
+dqctm101 comparetotmag 7.0 7 -> -1
+dqctm102 comparetotmag 7 7.0 -> 1
+dqctm103 comparetotmag 7E+0 7.0 -> 1
+dqctm104 comparetotmag 70E-1 7.0 -> 0
+dqctm105 comparetotmag 0.7E+1 7 -> 0
+dqctm106 comparetotmag 70E-1 7 -> -1
+dqctm107 comparetotmag 7.0 7E+0 -> -1
+dqctm108 comparetotmag 7.0 70E-1 -> 0
+dqctm109 comparetotmag 7 0.7E+1 -> 0
+dqctm110 comparetotmag 7 70E-1 -> 1
+
+dqctm120 comparetotmag 8.0 7.0 -> 1
+dqctm121 comparetotmag 8.0 7 -> 1
+dqctm122 comparetotmag 8 7.0 -> 1
+dqctm123 comparetotmag 8E+0 7.0 -> 1
+dqctm124 comparetotmag 80E-1 7.0 -> 1
+dqctm125 comparetotmag 0.8E+1 7 -> 1
+dqctm126 comparetotmag 80E-1 7 -> 1
+dqctm127 comparetotmag 8.0 7E+0 -> 1
+dqctm128 comparetotmag 8.0 70E-1 -> 1
+dqctm129 comparetotmag 8 0.7E+1 -> 1
+dqctm130 comparetotmag 8 70E-1 -> 1
+
+dqctm140 comparetotmag 8.0 9.0 -> -1
+dqctm141 comparetotmag 8.0 9 -> -1
+dqctm142 comparetotmag 8 9.0 -> -1
+dqctm143 comparetotmag 8E+0 9.0 -> -1
+dqctm144 comparetotmag 80E-1 9.0 -> -1
+dqctm145 comparetotmag 0.8E+1 9 -> -1
+dqctm146 comparetotmag 80E-1 9 -> -1
+dqctm147 comparetotmag 8.0 9E+0 -> -1
+dqctm148 comparetotmag 8.0 90E-1 -> -1
+dqctm149 comparetotmag 8 0.9E+1 -> -1
+dqctm150 comparetotmag 8 90E-1 -> -1
+
+-- and again, with sign changes -+ ..
+dqctm200 comparetotmag -7.0 7.0 -> 0
+dqctm201 comparetotmag -7.0 7 -> -1
+dqctm202 comparetotmag -7 7.0 -> 1
+dqctm203 comparetotmag -7E+0 7.0 -> 1
+dqctm204 comparetotmag -70E-1 7.0 -> 0
+dqctm205 comparetotmag -0.7E+1 7 -> 0
+dqctm206 comparetotmag -70E-1 7 -> -1
+dqctm207 comparetotmag -7.0 7E+0 -> -1
+dqctm208 comparetotmag -7.0 70E-1 -> 0
+dqctm209 comparetotmag -7 0.7E+1 -> 0
+dqctm210 comparetotmag -7 70E-1 -> 1
+
+dqctm220 comparetotmag -8.0 7.0 -> 1
+dqctm221 comparetotmag -8.0 7 -> 1
+dqctm222 comparetotmag -8 7.0 -> 1
+dqctm223 comparetotmag -8E+0 7.0 -> 1
+dqctm224 comparetotmag -80E-1 7.0 -> 1
+dqctm225 comparetotmag -0.8E+1 7 -> 1
+dqctm226 comparetotmag -80E-1 7 -> 1
+dqctm227 comparetotmag -8.0 7E+0 -> 1
+dqctm228 comparetotmag -8.0 70E-1 -> 1
+dqctm229 comparetotmag -8 0.7E+1 -> 1
+dqctm230 comparetotmag -8 70E-1 -> 1
+
+dqctm240 comparetotmag -8.0 9.0 -> -1
+dqctm241 comparetotmag -8.0 9 -> -1
+dqctm242 comparetotmag -8 9.0 -> -1
+dqctm243 comparetotmag -8E+0 9.0 -> -1
+dqctm244 comparetotmag -80E-1 9.0 -> -1
+dqctm245 comparetotmag -0.8E+1 9 -> -1
+dqctm246 comparetotmag -80E-1 9 -> -1
+dqctm247 comparetotmag -8.0 9E+0 -> -1
+dqctm248 comparetotmag -8.0 90E-1 -> -1
+dqctm249 comparetotmag -8 0.9E+1 -> -1
+dqctm250 comparetotmag -8 90E-1 -> -1
+
+-- and again, with sign changes +- ..
+dqctm300 comparetotmag 7.0 -7.0 -> 0
+dqctm301 comparetotmag 7.0 -7 -> -1
+dqctm302 comparetotmag 7 -7.0 -> 1
+dqctm303 comparetotmag 7E+0 -7.0 -> 1
+dqctm304 comparetotmag 70E-1 -7.0 -> 0
+dqctm305 comparetotmag .7E+1 -7 -> 0
+dqctm306 comparetotmag 70E-1 -7 -> -1
+dqctm307 comparetotmag 7.0 -7E+0 -> -1
+dqctm308 comparetotmag 7.0 -70E-1 -> 0
+dqctm309 comparetotmag 7 -.7E+1 -> 0
+dqctm310 comparetotmag 7 -70E-1 -> 1
+
+dqctm320 comparetotmag 8.0 -7.0 -> 1
+dqctm321 comparetotmag 8.0 -7 -> 1
+dqctm322 comparetotmag 8 -7.0 -> 1
+dqctm323 comparetotmag 8E+0 -7.0 -> 1
+dqctm324 comparetotmag 80E-1 -7.0 -> 1
+dqctm325 comparetotmag .8E+1 -7 -> 1
+dqctm326 comparetotmag 80E-1 -7 -> 1
+dqctm327 comparetotmag 8.0 -7E+0 -> 1
+dqctm328 comparetotmag 8.0 -70E-1 -> 1
+dqctm329 comparetotmag 8 -.7E+1 -> 1
+dqctm330 comparetotmag 8 -70E-1 -> 1
+
+dqctm340 comparetotmag 8.0 -9.0 -> -1
+dqctm341 comparetotmag 8.0 -9 -> -1
+dqctm342 comparetotmag 8 -9.0 -> -1
+dqctm343 comparetotmag 8E+0 -9.0 -> -1
+dqctm344 comparetotmag 80E-1 -9.0 -> -1
+dqctm345 comparetotmag .8E+1 -9 -> -1
+dqctm346 comparetotmag 80E-1 -9 -> -1
+dqctm347 comparetotmag 8.0 -9E+0 -> -1
+dqctm348 comparetotmag 8.0 -90E-1 -> -1
+dqctm349 comparetotmag 8 -.9E+1 -> -1
+dqctm350 comparetotmag 8 -90E-1 -> -1
+
+-- and again, with sign changes -- ..
+dqctm400 comparetotmag -7.0 -7.0 -> 0
+dqctm401 comparetotmag -7.0 -7 -> -1
+dqctm402 comparetotmag -7 -7.0 -> 1
+dqctm403 comparetotmag -7E+0 -7.0 -> 1
+dqctm404 comparetotmag -70E-1 -7.0 -> 0
+dqctm405 comparetotmag -.7E+1 -7 -> 0
+dqctm406 comparetotmag -70E-1 -7 -> -1
+dqctm407 comparetotmag -7.0 -7E+0 -> -1
+dqctm408 comparetotmag -7.0 -70E-1 -> 0
+dqctm409 comparetotmag -7 -.7E+1 -> 0
+dqctm410 comparetotmag -7 -70E-1 -> 1
+
+dqctm420 comparetotmag -8.0 -7.0 -> 1
+dqctm421 comparetotmag -8.0 -7 -> 1
+dqctm422 comparetotmag -8 -7.0 -> 1
+dqctm423 comparetotmag -8E+0 -7.0 -> 1
+dqctm424 comparetotmag -80E-1 -7.0 -> 1
+dqctm425 comparetotmag -.8E+1 -7 -> 1
+dqctm426 comparetotmag -80E-1 -7 -> 1
+dqctm427 comparetotmag -8.0 -7E+0 -> 1
+dqctm428 comparetotmag -8.0 -70E-1 -> 1
+dqctm429 comparetotmag -8 -.7E+1 -> 1
+dqctm430 comparetotmag -8 -70E-1 -> 1
+
+dqctm440 comparetotmag -8.0 -9.0 -> -1
+dqctm441 comparetotmag -8.0 -9 -> -1
+dqctm442 comparetotmag -8 -9.0 -> -1
+dqctm443 comparetotmag -8E+0 -9.0 -> -1
+dqctm444 comparetotmag -80E-1 -9.0 -> -1
+dqctm445 comparetotmag -.8E+1 -9 -> -1
+dqctm446 comparetotmag -80E-1 -9 -> -1
+dqctm447 comparetotmag -8.0 -9E+0 -> -1
+dqctm448 comparetotmag -8.0 -90E-1 -> -1
+dqctm449 comparetotmag -8 -.9E+1 -> -1
+dqctm450 comparetotmag -8 -90E-1 -> -1
+
+
+-- testcases that subtract to lots of zeros at boundaries [pgr]
+dqctm473 comparetotmag 123.4560000000000E-89 123.456E-89 -> -1
+dqctm474 comparetotmag 123.456000000000E+89 123.456E+89 -> -1
+dqctm475 comparetotmag 123.45600000000E-89 123.456E-89 -> -1
+dqctm476 comparetotmag 123.4560000000E+89 123.456E+89 -> -1
+dqctm477 comparetotmag 123.456000000E-89 123.456E-89 -> -1
+dqctm478 comparetotmag 123.45600000E+89 123.456E+89 -> -1
+dqctm479 comparetotmag 123.4560000E-89 123.456E-89 -> -1
+dqctm480 comparetotmag 123.456000E+89 123.456E+89 -> -1
+dqctm481 comparetotmag 123.45600E-89 123.456E-89 -> -1
+dqctm482 comparetotmag 123.4560E+89 123.456E+89 -> -1
+dqctm483 comparetotmag 123.456E-89 123.456E-89 -> 0
+dqctm487 comparetotmag 123.456E+89 123.4560000000000E+89 -> 1
+dqctm488 comparetotmag 123.456E-89 123.456000000000E-89 -> 1
+dqctm489 comparetotmag 123.456E+89 123.45600000000E+89 -> 1
+dqctm490 comparetotmag 123.456E-89 123.4560000000E-89 -> 1
+dqctm491 comparetotmag 123.456E+89 123.456000000E+89 -> 1
+dqctm492 comparetotmag 123.456E-89 123.45600000E-89 -> 1
+dqctm493 comparetotmag 123.456E+89 123.4560000E+89 -> 1
+dqctm494 comparetotmag 123.456E-89 123.456000E-89 -> 1
+dqctm495 comparetotmag 123.456E+89 123.45600E+89 -> 1
+dqctm496 comparetotmag 123.456E-89 123.4560E-89 -> 1
+dqctm497 comparetotmag 123.456E+89 123.456E+89 -> 0
+
+-- wide-ranging, around precision; signs equal
+dqctm498 comparetotmag 1 1E-17 -> 1
+dqctm499 comparetotmag 1 1E-16 -> 1
+dqctm500 comparetotmag 1 1E-15 -> 1
+dqctm501 comparetotmag 1 1E-14 -> 1
+dqctm502 comparetotmag 1 1E-13 -> 1
+dqctm503 comparetotmag 1 1E-12 -> 1
+dqctm504 comparetotmag 1 1E-11 -> 1
+dqctm505 comparetotmag 1 1E-10 -> 1
+dqctm506 comparetotmag 1 1E-9 -> 1
+dqctm507 comparetotmag 1 1E-8 -> 1
+dqctm508 comparetotmag 1 1E-7 -> 1
+dqctm509 comparetotmag 1 1E-6 -> 1
+dqctm510 comparetotmag 1 1E-5 -> 1
+dqctm511 comparetotmag 1 1E-4 -> 1
+dqctm512 comparetotmag 1 1E-3 -> 1
+dqctm513 comparetotmag 1 1E-2 -> 1
+dqctm514 comparetotmag 1 1E-1 -> 1
+dqctm515 comparetotmag 1 1E-0 -> 0
+dqctm516 comparetotmag 1 1E+1 -> -1
+dqctm517 comparetotmag 1 1E+2 -> -1
+dqctm518 comparetotmag 1 1E+3 -> -1
+dqctm519 comparetotmag 1 1E+4 -> -1
+dqctm521 comparetotmag 1 1E+5 -> -1
+dqctm522 comparetotmag 1 1E+6 -> -1
+dqctm523 comparetotmag 1 1E+7 -> -1
+dqctm524 comparetotmag 1 1E+8 -> -1
+dqctm525 comparetotmag 1 1E+9 -> -1
+dqctm526 comparetotmag 1 1E+10 -> -1
+dqctm527 comparetotmag 1 1E+11 -> -1
+dqctm528 comparetotmag 1 1E+12 -> -1
+dqctm529 comparetotmag 1 1E+13 -> -1
+dqctm530 comparetotmag 1 1E+14 -> -1
+dqctm531 comparetotmag 1 1E+15 -> -1
+dqctm532 comparetotmag 1 1E+16 -> -1
+dqctm533 comparetotmag 1 1E+17 -> -1
+-- LR swap
+dqctm538 comparetotmag 1E-17 1 -> -1
+dqctm539 comparetotmag 1E-16 1 -> -1
+dqctm540 comparetotmag 1E-15 1 -> -1
+dqctm541 comparetotmag 1E-14 1 -> -1
+dqctm542 comparetotmag 1E-13 1 -> -1
+dqctm543 comparetotmag 1E-12 1 -> -1
+dqctm544 comparetotmag 1E-11 1 -> -1
+dqctm545 comparetotmag 1E-10 1 -> -1
+dqctm546 comparetotmag 1E-9 1 -> -1
+dqctm547 comparetotmag 1E-8 1 -> -1
+dqctm548 comparetotmag 1E-7 1 -> -1
+dqctm549 comparetotmag 1E-6 1 -> -1
+dqctm550 comparetotmag 1E-5 1 -> -1
+dqctm551 comparetotmag 1E-4 1 -> -1
+dqctm552 comparetotmag 1E-3 1 -> -1
+dqctm553 comparetotmag 1E-2 1 -> -1
+dqctm554 comparetotmag 1E-1 1 -> -1
+dqctm555 comparetotmag 1E-0 1 -> 0
+dqctm556 comparetotmag 1E+1 1 -> 1
+dqctm557 comparetotmag 1E+2 1 -> 1
+dqctm558 comparetotmag 1E+3 1 -> 1
+dqctm559 comparetotmag 1E+4 1 -> 1
+dqctm561 comparetotmag 1E+5 1 -> 1
+dqctm562 comparetotmag 1E+6 1 -> 1
+dqctm563 comparetotmag 1E+7 1 -> 1
+dqctm564 comparetotmag 1E+8 1 -> 1
+dqctm565 comparetotmag 1E+9 1 -> 1
+dqctm566 comparetotmag 1E+10 1 -> 1
+dqctm567 comparetotmag 1E+11 1 -> 1
+dqctm568 comparetotmag 1E+12 1 -> 1
+dqctm569 comparetotmag 1E+13 1 -> 1
+dqctm570 comparetotmag 1E+14 1 -> 1
+dqctm571 comparetotmag 1E+15 1 -> 1
+dqctm572 comparetotmag 1E+16 1 -> 1
+dqctm573 comparetotmag 1E+17 1 -> 1
+-- similar with a useful coefficient, one side only
+dqctm578 comparetotmag 0.000000987654321 1E-17 -> 1
+dqctm579 comparetotmag 0.000000987654321 1E-16 -> 1
+dqctm580 comparetotmag 0.000000987654321 1E-15 -> 1
+dqctm581 comparetotmag 0.000000987654321 1E-14 -> 1
+dqctm582 comparetotmag 0.000000987654321 1E-13 -> 1
+dqctm583 comparetotmag 0.000000987654321 1E-12 -> 1
+dqctm584 comparetotmag 0.000000987654321 1E-11 -> 1
+dqctm585 comparetotmag 0.000000987654321 1E-10 -> 1
+dqctm586 comparetotmag 0.000000987654321 1E-9 -> 1
+dqctm587 comparetotmag 0.000000987654321 1E-8 -> 1
+dqctm588 comparetotmag 0.000000987654321 1E-7 -> 1
+dqctm589 comparetotmag 0.000000987654321 1E-6 -> -1
+dqctm590 comparetotmag 0.000000987654321 1E-5 -> -1
+dqctm591 comparetotmag 0.000000987654321 1E-4 -> -1
+dqctm592 comparetotmag 0.000000987654321 1E-3 -> -1
+dqctm593 comparetotmag 0.000000987654321 1E-2 -> -1
+dqctm594 comparetotmag 0.000000987654321 1E-1 -> -1
+dqctm595 comparetotmag 0.000000987654321 1E-0 -> -1
+dqctm596 comparetotmag 0.000000987654321 1E+1 -> -1
+dqctm597 comparetotmag 0.000000987654321 1E+2 -> -1
+dqctm598 comparetotmag 0.000000987654321 1E+3 -> -1
+dqctm599 comparetotmag 0.000000987654321 1E+4 -> -1
+
+-- check some unit-y traps
+dqctm600 comparetotmag 12 12.2345 -> -1
+dqctm601 comparetotmag 12.0 12.2345 -> -1
+dqctm602 comparetotmag 12.00 12.2345 -> -1
+dqctm603 comparetotmag 12.000 12.2345 -> -1
+dqctm604 comparetotmag 12.0000 12.2345 -> -1
+dqctm605 comparetotmag 12.00000 12.2345 -> -1
+dqctm606 comparetotmag 12.000000 12.2345 -> -1
+dqctm607 comparetotmag 12.0000000 12.2345 -> -1
+dqctm608 comparetotmag 12.00000000 12.2345 -> -1
+dqctm609 comparetotmag 12.000000000 12.2345 -> -1
+dqctm610 comparetotmag 12.1234 12 -> 1
+dqctm611 comparetotmag 12.1234 12.0 -> 1
+dqctm612 comparetotmag 12.1234 12.00 -> 1
+dqctm613 comparetotmag 12.1234 12.000 -> 1
+dqctm614 comparetotmag 12.1234 12.0000 -> 1
+dqctm615 comparetotmag 12.1234 12.00000 -> 1
+dqctm616 comparetotmag 12.1234 12.000000 -> 1
+dqctm617 comparetotmag 12.1234 12.0000000 -> 1
+dqctm618 comparetotmag 12.1234 12.00000000 -> 1
+dqctm619 comparetotmag 12.1234 12.000000000 -> 1
+dqctm620 comparetotmag -12 -12.2345 -> -1
+dqctm621 comparetotmag -12.0 -12.2345 -> -1
+dqctm622 comparetotmag -12.00 -12.2345 -> -1
+dqctm623 comparetotmag -12.000 -12.2345 -> -1
+dqctm624 comparetotmag -12.0000 -12.2345 -> -1
+dqctm625 comparetotmag -12.00000 -12.2345 -> -1
+dqctm626 comparetotmag -12.000000 -12.2345 -> -1
+dqctm627 comparetotmag -12.0000000 -12.2345 -> -1
+dqctm628 comparetotmag -12.00000000 -12.2345 -> -1
+dqctm629 comparetotmag -12.000000000 -12.2345 -> -1
+dqctm630 comparetotmag -12.1234 -12 -> 1
+dqctm631 comparetotmag -12.1234 -12.0 -> 1
+dqctm632 comparetotmag -12.1234 -12.00 -> 1
+dqctm633 comparetotmag -12.1234 -12.000 -> 1
+dqctm634 comparetotmag -12.1234 -12.0000 -> 1
+dqctm635 comparetotmag -12.1234 -12.00000 -> 1
+dqctm636 comparetotmag -12.1234 -12.000000 -> 1
+dqctm637 comparetotmag -12.1234 -12.0000000 -> 1
+dqctm638 comparetotmag -12.1234 -12.00000000 -> 1
+dqctm639 comparetotmag -12.1234 -12.000000000 -> 1
+
+-- extended zeros
+dqctm640 comparetotmag 0 0 -> 0
+dqctm641 comparetotmag 0 -0 -> 0
+dqctm642 comparetotmag 0 -0.0 -> 1
+dqctm643 comparetotmag 0 0.0 -> 1
+dqctm644 comparetotmag -0 0 -> 0
+dqctm645 comparetotmag -0 -0 -> 0
+dqctm646 comparetotmag -0 -0.0 -> 1
+dqctm647 comparetotmag -0 0.0 -> 1
+dqctm648 comparetotmag 0.0 0 -> -1
+dqctm649 comparetotmag 0.0 -0 -> -1
+dqctm650 comparetotmag 0.0 -0.0 -> 0
+dqctm651 comparetotmag 0.0 0.0 -> 0
+dqctm652 comparetotmag -0.0 0 -> -1
+dqctm653 comparetotmag -0.0 -0 -> -1
+dqctm654 comparetotmag -0.0 -0.0 -> 0
+dqctm655 comparetotmag -0.0 0.0 -> 0
+
+dqctm656 comparetotmag -0E1 0.0 -> 1
+dqctm657 comparetotmag -0E2 0.0 -> 1
+dqctm658 comparetotmag 0E1 0.0 -> 1
+dqctm659 comparetotmag 0E2 0.0 -> 1
+dqctm660 comparetotmag -0E1 0 -> 1
+dqctm661 comparetotmag -0E2 0 -> 1
+dqctm662 comparetotmag 0E1 0 -> 1
+dqctm663 comparetotmag 0E2 0 -> 1
+dqctm664 comparetotmag -0E1 -0E1 -> 0
+dqctm665 comparetotmag -0E2 -0E1 -> 1
+dqctm666 comparetotmag 0E1 -0E1 -> 0
+dqctm667 comparetotmag 0E2 -0E1 -> 1
+dqctm668 comparetotmag -0E1 -0E2 -> -1
+dqctm669 comparetotmag -0E2 -0E2 -> 0
+dqctm670 comparetotmag 0E1 -0E2 -> -1
+dqctm671 comparetotmag 0E2 -0E2 -> 0
+dqctm672 comparetotmag -0E1 0E1 -> 0
+dqctm673 comparetotmag -0E2 0E1 -> 1
+dqctm674 comparetotmag 0E1 0E1 -> 0
+dqctm675 comparetotmag 0E2 0E1 -> 1
+dqctm676 comparetotmag -0E1 0E2 -> -1
+dqctm677 comparetotmag -0E2 0E2 -> 0
+dqctm678 comparetotmag 0E1 0E2 -> -1
+dqctm679 comparetotmag 0E2 0E2 -> 0
+
+-- trailing zeros; unit-y
+dqctm680 comparetotmag 12 12 -> 0
+dqctm681 comparetotmag 12 12.0 -> 1
+dqctm682 comparetotmag 12 12.00 -> 1
+dqctm683 comparetotmag 12 12.000 -> 1
+dqctm684 comparetotmag 12 12.0000 -> 1
+dqctm685 comparetotmag 12 12.00000 -> 1
+dqctm686 comparetotmag 12 12.000000 -> 1
+dqctm687 comparetotmag 12 12.0000000 -> 1
+dqctm688 comparetotmag 12 12.00000000 -> 1
+dqctm689 comparetotmag 12 12.000000000 -> 1
+dqctm690 comparetotmag 12 12 -> 0
+dqctm691 comparetotmag 12.0 12 -> -1
+dqctm692 comparetotmag 12.00 12 -> -1
+dqctm693 comparetotmag 12.000 12 -> -1
+dqctm694 comparetotmag 12.0000 12 -> -1
+dqctm695 comparetotmag 12.00000 12 -> -1
+dqctm696 comparetotmag 12.000000 12 -> -1
+dqctm697 comparetotmag 12.0000000 12 -> -1
+dqctm698 comparetotmag 12.00000000 12 -> -1
+dqctm699 comparetotmag 12.000000000 12 -> -1
+
+-- old long operand checks
+dqctm701 comparetotmag 12345678000 1 -> 1
+dqctm702 comparetotmag 1 12345678000 -> -1
+dqctm703 comparetotmag 1234567800 1 -> 1
+dqctm704 comparetotmag 1 1234567800 -> -1
+dqctm705 comparetotmag 1234567890 1 -> 1
+dqctm706 comparetotmag 1 1234567890 -> -1
+dqctm707 comparetotmag 1234567891 1 -> 1
+dqctm708 comparetotmag 1 1234567891 -> -1
+dqctm709 comparetotmag 12345678901 1 -> 1
+dqctm710 comparetotmag 1 12345678901 -> -1
+dqctm711 comparetotmag 1234567896 1 -> 1
+dqctm712 comparetotmag 1 1234567896 -> -1
+dqctm713 comparetotmag -1234567891 1 -> 1
+dqctm714 comparetotmag 1 -1234567891 -> -1
+dqctm715 comparetotmag -12345678901 1 -> 1
+dqctm716 comparetotmag 1 -12345678901 -> -1
+dqctm717 comparetotmag -1234567896 1 -> 1
+dqctm718 comparetotmag 1 -1234567896 -> -1
+
+-- old residue cases
+dqctm740 comparetotmag 1 0.9999999 -> 1
+dqctm741 comparetotmag 1 0.999999 -> 1
+dqctm742 comparetotmag 1 0.99999 -> 1
+dqctm743 comparetotmag 1 1.0000 -> 1
+dqctm744 comparetotmag 1 1.00001 -> -1
+dqctm745 comparetotmag 1 1.000001 -> -1
+dqctm746 comparetotmag 1 1.0000001 -> -1
+dqctm750 comparetotmag 0.9999999 1 -> -1
+dqctm751 comparetotmag 0.999999 1 -> -1
+dqctm752 comparetotmag 0.99999 1 -> -1
+dqctm753 comparetotmag 1.0000 1 -> -1
+dqctm754 comparetotmag 1.00001 1 -> 1
+dqctm755 comparetotmag 1.000001 1 -> 1
+dqctm756 comparetotmag 1.0000001 1 -> 1
+
+-- Specials
+dqctm780 comparetotmag Inf -Inf -> 0
+dqctm781 comparetotmag Inf -1000 -> 1
+dqctm782 comparetotmag Inf -1 -> 1
+dqctm783 comparetotmag Inf -0 -> 1
+dqctm784 comparetotmag Inf 0 -> 1
+dqctm785 comparetotmag Inf 1 -> 1
+dqctm786 comparetotmag Inf 1000 -> 1
+dqctm787 comparetotmag Inf Inf -> 0
+dqctm788 comparetotmag -1000 Inf -> -1
+dqctm789 comparetotmag -Inf Inf -> 0
+dqctm790 comparetotmag -1 Inf -> -1
+dqctm791 comparetotmag -0 Inf -> -1
+dqctm792 comparetotmag 0 Inf -> -1
+dqctm793 comparetotmag 1 Inf -> -1
+dqctm794 comparetotmag 1000 Inf -> -1
+dqctm795 comparetotmag Inf Inf -> 0
+
+dqctm800 comparetotmag -Inf -Inf -> 0
+dqctm801 comparetotmag -Inf -1000 -> 1
+dqctm802 comparetotmag -Inf -1 -> 1
+dqctm803 comparetotmag -Inf -0 -> 1
+dqctm804 comparetotmag -Inf 0 -> 1
+dqctm805 comparetotmag -Inf 1 -> 1
+dqctm806 comparetotmag -Inf 1000 -> 1
+dqctm807 comparetotmag -Inf Inf -> 0
+dqctm808 comparetotmag -Inf -Inf -> 0
+dqctm809 comparetotmag -1000 -Inf -> -1
+dqctm810 comparetotmag -1 -Inf -> -1
+dqctm811 comparetotmag -0 -Inf -> -1
+dqctm812 comparetotmag 0 -Inf -> -1
+dqctm813 comparetotmag 1 -Inf -> -1
+dqctm814 comparetotmag 1000 -Inf -> -1
+dqctm815 comparetotmag Inf -Inf -> 0
+
+dqctm821 comparetotmag NaN -Inf -> 1
+dqctm822 comparetotmag NaN -1000 -> 1
+dqctm823 comparetotmag NaN -1 -> 1
+dqctm824 comparetotmag NaN -0 -> 1
+dqctm825 comparetotmag NaN 0 -> 1
+dqctm826 comparetotmag NaN 1 -> 1
+dqctm827 comparetotmag NaN 1000 -> 1
+dqctm828 comparetotmag NaN Inf -> 1
+dqctm829 comparetotmag NaN NaN -> 0
+dqctm830 comparetotmag -Inf NaN -> -1
+dqctm831 comparetotmag -1000 NaN -> -1
+dqctm832 comparetotmag -1 NaN -> -1
+dqctm833 comparetotmag -0 NaN -> -1
+dqctm834 comparetotmag 0 NaN -> -1
+dqctm835 comparetotmag 1 NaN -> -1
+dqctm836 comparetotmag 1000 NaN -> -1
+dqctm837 comparetotmag Inf NaN -> -1
+dqctm838 comparetotmag -NaN -NaN -> 0
+dqctm839 comparetotmag +NaN -NaN -> 0
+dqctm840 comparetotmag -NaN +NaN -> 0
+
+dqctm841 comparetotmag sNaN -sNaN -> 0
+dqctm842 comparetotmag sNaN -NaN -> -1
+dqctm843 comparetotmag sNaN -Inf -> 1
+dqctm844 comparetotmag sNaN -1000 -> 1
+dqctm845 comparetotmag sNaN -1 -> 1
+dqctm846 comparetotmag sNaN -0 -> 1
+dqctm847 comparetotmag sNaN 0 -> 1
+dqctm848 comparetotmag sNaN 1 -> 1
+dqctm849 comparetotmag sNaN 1000 -> 1
+dqctm850 comparetotmag sNaN NaN -> -1
+dqctm851 comparetotmag sNaN sNaN -> 0
+
+dqctm852 comparetotmag -sNaN sNaN -> 0
+dqctm853 comparetotmag -NaN sNaN -> 1
+dqctm854 comparetotmag -Inf sNaN -> -1
+dqctm855 comparetotmag -1000 sNaN -> -1
+dqctm856 comparetotmag -1 sNaN -> -1
+dqctm857 comparetotmag -0 sNaN -> -1
+dqctm858 comparetotmag 0 sNaN -> -1
+dqctm859 comparetotmag 1 sNaN -> -1
+dqctm860 comparetotmag 1000 sNaN -> -1
+dqctm861 comparetotmag Inf sNaN -> -1
+dqctm862 comparetotmag NaN sNaN -> 1
+dqctm863 comparetotmag sNaN sNaN -> 0
+
+dqctm871 comparetotmag -sNaN -sNaN -> 0
+dqctm872 comparetotmag -sNaN -NaN -> -1
+dqctm873 comparetotmag -sNaN -Inf -> 1
+dqctm874 comparetotmag -sNaN -1000 -> 1
+dqctm875 comparetotmag -sNaN -1 -> 1
+dqctm876 comparetotmag -sNaN -0 -> 1
+dqctm877 comparetotmag -sNaN 0 -> 1
+dqctm878 comparetotmag -sNaN 1 -> 1
+dqctm879 comparetotmag -sNaN 1000 -> 1
+dqctm880 comparetotmag -sNaN NaN -> -1
+dqctm881 comparetotmag -sNaN sNaN -> 0
+
+dqctm882 comparetotmag -sNaN -sNaN -> 0
+dqctm883 comparetotmag -NaN -sNaN -> 1
+dqctm884 comparetotmag -Inf -sNaN -> -1
+dqctm885 comparetotmag -1000 -sNaN -> -1
+dqctm886 comparetotmag -1 -sNaN -> -1
+dqctm887 comparetotmag -0 -sNaN -> -1
+dqctm888 comparetotmag 0 -sNaN -> -1
+dqctm889 comparetotmag 1 -sNaN -> -1
+dqctm890 comparetotmag 1000 -sNaN -> -1
+dqctm891 comparetotmag Inf -sNaN -> -1
+dqctm892 comparetotmag NaN -sNaN -> 1
+dqctm893 comparetotmag sNaN -sNaN -> 0
+
+-- NaNs with payload
+dqctm960 comparetotmag NaN9 -Inf -> 1
+dqctm961 comparetotmag NaN8 999 -> 1
+dqctm962 comparetotmag NaN77 Inf -> 1
+dqctm963 comparetotmag -NaN67 NaN5 -> 1
+dqctm964 comparetotmag -Inf -NaN4 -> -1
+dqctm965 comparetotmag -999 -NaN33 -> -1
+dqctm966 comparetotmag Inf NaN2 -> -1
+
+dqctm970 comparetotmag -NaN41 -NaN42 -> -1
+dqctm971 comparetotmag +NaN41 -NaN42 -> -1
+dqctm972 comparetotmag -NaN41 +NaN42 -> -1
+dqctm973 comparetotmag +NaN41 +NaN42 -> -1
+dqctm974 comparetotmag -NaN42 -NaN01 -> 1
+dqctm975 comparetotmag +NaN42 -NaN01 -> 1
+dqctm976 comparetotmag -NaN42 +NaN01 -> 1
+dqctm977 comparetotmag +NaN42 +NaN01 -> 1
+
+dqctm980 comparetotmag -sNaN771 -sNaN772 -> -1
+dqctm981 comparetotmag +sNaN771 -sNaN772 -> -1
+dqctm982 comparetotmag -sNaN771 +sNaN772 -> -1
+dqctm983 comparetotmag +sNaN771 +sNaN772 -> -1
+dqctm984 comparetotmag -sNaN772 -sNaN771 -> 1
+dqctm985 comparetotmag +sNaN772 -sNaN771 -> 1
+dqctm986 comparetotmag -sNaN772 +sNaN771 -> 1
+dqctm987 comparetotmag +sNaN772 +sNaN771 -> 1
+
+dqctm991 comparetotmag -sNaN99 -Inf -> 1
+dqctm992 comparetotmag sNaN98 -11 -> 1
+dqctm993 comparetotmag sNaN97 NaN -> -1
+dqctm994 comparetotmag sNaN16 sNaN94 -> -1
+dqctm995 comparetotmag NaN85 sNaN83 -> 1
+dqctm996 comparetotmag -Inf sNaN92 -> -1
+dqctm997 comparetotmag 088 sNaN81 -> -1
+dqctm998 comparetotmag Inf sNaN90 -> -1
+dqctm999 comparetotmag NaN -sNaN89 -> 1
+
+-- spread zeros
+dqctm1110 comparetotmag 0E-6143 0 -> -1
+dqctm1111 comparetotmag 0E-6143 -0 -> -1
+dqctm1112 comparetotmag -0E-6143 0 -> -1
+dqctm1113 comparetotmag -0E-6143 -0 -> -1
+dqctm1114 comparetotmag 0E-6143 0E+6144 -> -1
+dqctm1115 comparetotmag 0E-6143 -0E+6144 -> -1
+dqctm1116 comparetotmag -0E-6143 0E+6144 -> -1
+dqctm1117 comparetotmag -0E-6143 -0E+6144 -> -1
+dqctm1118 comparetotmag 0 0E+6144 -> -1
+dqctm1119 comparetotmag 0 -0E+6144 -> -1
+dqctm1120 comparetotmag -0 0E+6144 -> -1
+dqctm1121 comparetotmag -0 -0E+6144 -> -1
+
+dqctm1130 comparetotmag 0E+6144 0 -> 1
+dqctm1131 comparetotmag 0E+6144 -0 -> 1
+dqctm1132 comparetotmag -0E+6144 0 -> 1
+dqctm1133 comparetotmag -0E+6144 -0 -> 1
+dqctm1134 comparetotmag 0E+6144 0E-6143 -> 1
+dqctm1135 comparetotmag 0E+6144 -0E-6143 -> 1
+dqctm1136 comparetotmag -0E+6144 0E-6143 -> 1
+dqctm1137 comparetotmag -0E+6144 -0E-6143 -> 1
+dqctm1138 comparetotmag 0 0E-6143 -> 1
+dqctm1139 comparetotmag 0 -0E-6143 -> 1
+dqctm1140 comparetotmag -0 0E-6143 -> 1
+dqctm1141 comparetotmag -0 -0E-6143 -> 1
+
+-- Null tests
+dqctm9990 comparetotmag 10 # -> NaN Invalid_operation
+dqctm9991 comparetotmag # 10 -> NaN Invalid_operation
|