707 lines
31 KiB
Plaintext
707 lines
31 KiB
Plaintext
------------------------------------------------------------------------
|
|
-- ddCompareTotalMag.decTest -- decDouble 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 decDoubles.
|
|
precision: 16
|
|
maxExponent: 384
|
|
minExponent: -383
|
|
extended: 1
|
|
clamp: 1
|
|
rounding: half_even
|
|
|
|
-- sanity checks
|
|
ddctm001 comparetotmag -2 -2 -> 0
|
|
ddctm002 comparetotmag -2 -1 -> 1
|
|
ddctm003 comparetotmag -2 0 -> 1
|
|
ddctm004 comparetotmag -2 1 -> 1
|
|
ddctm005 comparetotmag -2 2 -> 0
|
|
ddctm006 comparetotmag -1 -2 -> -1
|
|
ddctm007 comparetotmag -1 -1 -> 0
|
|
ddctm008 comparetotmag -1 0 -> 1
|
|
ddctm009 comparetotmag -1 1 -> 0
|
|
ddctm010 comparetotmag -1 2 -> -1
|
|
ddctm011 comparetotmag 0 -2 -> -1
|
|
ddctm012 comparetotmag 0 -1 -> -1
|
|
ddctm013 comparetotmag 0 0 -> 0
|
|
ddctm014 comparetotmag 0 1 -> -1
|
|
ddctm015 comparetotmag 0 2 -> -1
|
|
ddctm016 comparetotmag 1 -2 -> -1
|
|
ddctm017 comparetotmag 1 -1 -> 0
|
|
ddctm018 comparetotmag 1 0 -> 1
|
|
ddctm019 comparetotmag 1 1 -> 0
|
|
ddctm020 comparetotmag 1 2 -> -1
|
|
ddctm021 comparetotmag 2 -2 -> 0
|
|
ddctm022 comparetotmag 2 -1 -> 1
|
|
ddctm023 comparetotmag 2 0 -> 1
|
|
ddctm025 comparetotmag 2 1 -> 1
|
|
ddctm026 comparetotmag 2 2 -> 0
|
|
|
|
ddctm031 comparetotmag -20 -20 -> 0
|
|
ddctm032 comparetotmag -20 -10 -> 1
|
|
ddctm033 comparetotmag -20 00 -> 1
|
|
ddctm034 comparetotmag -20 10 -> 1
|
|
ddctm035 comparetotmag -20 20 -> 0
|
|
ddctm036 comparetotmag -10 -20 -> -1
|
|
ddctm037 comparetotmag -10 -10 -> 0
|
|
ddctm038 comparetotmag -10 00 -> 1
|
|
ddctm039 comparetotmag -10 10 -> 0
|
|
ddctm040 comparetotmag -10 20 -> -1
|
|
ddctm041 comparetotmag 00 -20 -> -1
|
|
ddctm042 comparetotmag 00 -10 -> -1
|
|
ddctm043 comparetotmag 00 00 -> 0
|
|
ddctm044 comparetotmag 00 10 -> -1
|
|
ddctm045 comparetotmag 00 20 -> -1
|
|
ddctm046 comparetotmag 10 -20 -> -1
|
|
ddctm047 comparetotmag 10 -10 -> 0
|
|
ddctm048 comparetotmag 10 00 -> 1
|
|
ddctm049 comparetotmag 10 10 -> 0
|
|
ddctm050 comparetotmag 10 20 -> -1
|
|
ddctm051 comparetotmag 20 -20 -> 0
|
|
ddctm052 comparetotmag 20 -10 -> 1
|
|
ddctm053 comparetotmag 20 00 -> 1
|
|
ddctm055 comparetotmag 20 10 -> 1
|
|
ddctm056 comparetotmag 20 20 -> 0
|
|
|
|
ddctm061 comparetotmag -2.0 -2.0 -> 0
|
|
ddctm062 comparetotmag -2.0 -1.0 -> 1
|
|
ddctm063 comparetotmag -2.0 0.0 -> 1
|
|
ddctm064 comparetotmag -2.0 1.0 -> 1
|
|
ddctm065 comparetotmag -2.0 2.0 -> 0
|
|
ddctm066 comparetotmag -1.0 -2.0 -> -1
|
|
ddctm067 comparetotmag -1.0 -1.0 -> 0
|
|
ddctm068 comparetotmag -1.0 0.0 -> 1
|
|
ddctm069 comparetotmag -1.0 1.0 -> 0
|
|
ddctm070 comparetotmag -1.0 2.0 -> -1
|
|
ddctm071 comparetotmag 0.0 -2.0 -> -1
|
|
ddctm072 comparetotmag 0.0 -1.0 -> -1
|
|
ddctm073 comparetotmag 0.0 0.0 -> 0
|
|
ddctm074 comparetotmag 0.0 1.0 -> -1
|
|
ddctm075 comparetotmag 0.0 2.0 -> -1
|
|
ddctm076 comparetotmag 1.0 -2.0 -> -1
|
|
ddctm077 comparetotmag 1.0 -1.0 -> 0
|
|
ddctm078 comparetotmag 1.0 0.0 -> 1
|
|
ddctm079 comparetotmag 1.0 1.0 -> 0
|
|
ddctm080 comparetotmag 1.0 2.0 -> -1
|
|
ddctm081 comparetotmag 2.0 -2.0 -> 0
|
|
ddctm082 comparetotmag 2.0 -1.0 -> 1
|
|
ddctm083 comparetotmag 2.0 0.0 -> 1
|
|
ddctm085 comparetotmag 2.0 1.0 -> 1
|
|
ddctm086 comparetotmag 2.0 2.0 -> 0
|
|
|
|
-- now some cases which might overflow if subtract were used
|
|
ddctm090 comparetotmag 9.99999999E+384 9.99999999E+384 -> 0
|
|
ddctm091 comparetotmag -9.99999999E+384 9.99999999E+384 -> 0
|
|
ddctm092 comparetotmag 9.99999999E+384 -9.99999999E+384 -> 0
|
|
ddctm093 comparetotmag -9.99999999E+384 -9.99999999E+384 -> 0
|
|
|
|
-- some differing length/exponent cases
|
|
-- in this first group, compare would compare all equal
|
|
ddctm100 comparetotmag 7.0 7.0 -> 0
|
|
ddctm101 comparetotmag 7.0 7 -> -1
|
|
ddctm102 comparetotmag 7 7.0 -> 1
|
|
ddctm103 comparetotmag 7E+0 7.0 -> 1
|
|
ddctm104 comparetotmag 70E-1 7.0 -> 0
|
|
ddctm105 comparetotmag 0.7E+1 7 -> 0
|
|
ddctm106 comparetotmag 70E-1 7 -> -1
|
|
ddctm107 comparetotmag 7.0 7E+0 -> -1
|
|
ddctm108 comparetotmag 7.0 70E-1 -> 0
|
|
ddctm109 comparetotmag 7 0.7E+1 -> 0
|
|
ddctm110 comparetotmag 7 70E-1 -> 1
|
|
|
|
ddctm120 comparetotmag 8.0 7.0 -> 1
|
|
ddctm121 comparetotmag 8.0 7 -> 1
|
|
ddctm122 comparetotmag 8 7.0 -> 1
|
|
ddctm123 comparetotmag 8E+0 7.0 -> 1
|
|
ddctm124 comparetotmag 80E-1 7.0 -> 1
|
|
ddctm125 comparetotmag 0.8E+1 7 -> 1
|
|
ddctm126 comparetotmag 80E-1 7 -> 1
|
|
ddctm127 comparetotmag 8.0 7E+0 -> 1
|
|
ddctm128 comparetotmag 8.0 70E-1 -> 1
|
|
ddctm129 comparetotmag 8 0.7E+1 -> 1
|
|
ddctm130 comparetotmag 8 70E-1 -> 1
|
|
|
|
ddctm140 comparetotmag 8.0 9.0 -> -1
|
|
ddctm141 comparetotmag 8.0 9 -> -1
|
|
ddctm142 comparetotmag 8 9.0 -> -1
|
|
ddctm143 comparetotmag 8E+0 9.0 -> -1
|
|
ddctm144 comparetotmag 80E-1 9.0 -> -1
|
|
ddctm145 comparetotmag 0.8E+1 9 -> -1
|
|
ddctm146 comparetotmag 80E-1 9 -> -1
|
|
ddctm147 comparetotmag 8.0 9E+0 -> -1
|
|
ddctm148 comparetotmag 8.0 90E-1 -> -1
|
|
ddctm149 comparetotmag 8 0.9E+1 -> -1
|
|
ddctm150 comparetotmag 8 90E-1 -> -1
|
|
|
|
-- and again, with sign changes -+ ..
|
|
ddctm200 comparetotmag -7.0 7.0 -> 0
|
|
ddctm201 comparetotmag -7.0 7 -> -1
|
|
ddctm202 comparetotmag -7 7.0 -> 1
|
|
ddctm203 comparetotmag -7E+0 7.0 -> 1
|
|
ddctm204 comparetotmag -70E-1 7.0 -> 0
|
|
ddctm205 comparetotmag -0.7E+1 7 -> 0
|
|
ddctm206 comparetotmag -70E-1 7 -> -1
|
|
ddctm207 comparetotmag -7.0 7E+0 -> -1
|
|
ddctm208 comparetotmag -7.0 70E-1 -> 0
|
|
ddctm209 comparetotmag -7 0.7E+1 -> 0
|
|
ddctm210 comparetotmag -7 70E-1 -> 1
|
|
|
|
ddctm220 comparetotmag -8.0 7.0 -> 1
|
|
ddctm221 comparetotmag -8.0 7 -> 1
|
|
ddctm222 comparetotmag -8 7.0 -> 1
|
|
ddctm223 comparetotmag -8E+0 7.0 -> 1
|
|
ddctm224 comparetotmag -80E-1 7.0 -> 1
|
|
ddctm225 comparetotmag -0.8E+1 7 -> 1
|
|
ddctm226 comparetotmag -80E-1 7 -> 1
|
|
ddctm227 comparetotmag -8.0 7E+0 -> 1
|
|
ddctm228 comparetotmag -8.0 70E-1 -> 1
|
|
ddctm229 comparetotmag -8 0.7E+1 -> 1
|
|
ddctm230 comparetotmag -8 70E-1 -> 1
|
|
|
|
ddctm240 comparetotmag -8.0 9.0 -> -1
|
|
ddctm241 comparetotmag -8.0 9 -> -1
|
|
ddctm242 comparetotmag -8 9.0 -> -1
|
|
ddctm243 comparetotmag -8E+0 9.0 -> -1
|
|
ddctm244 comparetotmag -80E-1 9.0 -> -1
|
|
ddctm245 comparetotmag -0.8E+1 9 -> -1
|
|
ddctm246 comparetotmag -80E-1 9 -> -1
|
|
ddctm247 comparetotmag -8.0 9E+0 -> -1
|
|
ddctm248 comparetotmag -8.0 90E-1 -> -1
|
|
ddctm249 comparetotmag -8 0.9E+1 -> -1
|
|
ddctm250 comparetotmag -8 90E-1 -> -1
|
|
|
|
-- and again, with sign changes +- ..
|
|
ddctm300 comparetotmag 7.0 -7.0 -> 0
|
|
ddctm301 comparetotmag 7.0 -7 -> -1
|
|
ddctm302 comparetotmag 7 -7.0 -> 1
|
|
ddctm303 comparetotmag 7E+0 -7.0 -> 1
|
|
ddctm304 comparetotmag 70E-1 -7.0 -> 0
|
|
ddctm305 comparetotmag .7E+1 -7 -> 0
|
|
ddctm306 comparetotmag 70E-1 -7 -> -1
|
|
ddctm307 comparetotmag 7.0 -7E+0 -> -1
|
|
ddctm308 comparetotmag 7.0 -70E-1 -> 0
|
|
ddctm309 comparetotmag 7 -.7E+1 -> 0
|
|
ddctm310 comparetotmag 7 -70E-1 -> 1
|
|
|
|
ddctm320 comparetotmag 8.0 -7.0 -> 1
|
|
ddctm321 comparetotmag 8.0 -7 -> 1
|
|
ddctm322 comparetotmag 8 -7.0 -> 1
|
|
ddctm323 comparetotmag 8E+0 -7.0 -> 1
|
|
ddctm324 comparetotmag 80E-1 -7.0 -> 1
|
|
ddctm325 comparetotmag .8E+1 -7 -> 1
|
|
ddctm326 comparetotmag 80E-1 -7 -> 1
|
|
ddctm327 comparetotmag 8.0 -7E+0 -> 1
|
|
ddctm328 comparetotmag 8.0 -70E-1 -> 1
|
|
ddctm329 comparetotmag 8 -.7E+1 -> 1
|
|
ddctm330 comparetotmag 8 -70E-1 -> 1
|
|
|
|
ddctm340 comparetotmag 8.0 -9.0 -> -1
|
|
ddctm341 comparetotmag 8.0 -9 -> -1
|
|
ddctm342 comparetotmag 8 -9.0 -> -1
|
|
ddctm343 comparetotmag 8E+0 -9.0 -> -1
|
|
ddctm344 comparetotmag 80E-1 -9.0 -> -1
|
|
ddctm345 comparetotmag .8E+1 -9 -> -1
|
|
ddctm346 comparetotmag 80E-1 -9 -> -1
|
|
ddctm347 comparetotmag 8.0 -9E+0 -> -1
|
|
ddctm348 comparetotmag 8.0 -90E-1 -> -1
|
|
ddctm349 comparetotmag 8 -.9E+1 -> -1
|
|
ddctm350 comparetotmag 8 -90E-1 -> -1
|
|
|
|
-- and again, with sign changes -- ..
|
|
ddctm400 comparetotmag -7.0 -7.0 -> 0
|
|
ddctm401 comparetotmag -7.0 -7 -> -1
|
|
ddctm402 comparetotmag -7 -7.0 -> 1
|
|
ddctm403 comparetotmag -7E+0 -7.0 -> 1
|
|
ddctm404 comparetotmag -70E-1 -7.0 -> 0
|
|
ddctm405 comparetotmag -.7E+1 -7 -> 0
|
|
ddctm406 comparetotmag -70E-1 -7 -> -1
|
|
ddctm407 comparetotmag -7.0 -7E+0 -> -1
|
|
ddctm408 comparetotmag -7.0 -70E-1 -> 0
|
|
ddctm409 comparetotmag -7 -.7E+1 -> 0
|
|
ddctm410 comparetotmag -7 -70E-1 -> 1
|
|
|
|
ddctm420 comparetotmag -8.0 -7.0 -> 1
|
|
ddctm421 comparetotmag -8.0 -7 -> 1
|
|
ddctm422 comparetotmag -8 -7.0 -> 1
|
|
ddctm423 comparetotmag -8E+0 -7.0 -> 1
|
|
ddctm424 comparetotmag -80E-1 -7.0 -> 1
|
|
ddctm425 comparetotmag -.8E+1 -7 -> 1
|
|
ddctm426 comparetotmag -80E-1 -7 -> 1
|
|
ddctm427 comparetotmag -8.0 -7E+0 -> 1
|
|
ddctm428 comparetotmag -8.0 -70E-1 -> 1
|
|
ddctm429 comparetotmag -8 -.7E+1 -> 1
|
|
ddctm430 comparetotmag -8 -70E-1 -> 1
|
|
|
|
ddctm440 comparetotmag -8.0 -9.0 -> -1
|
|
ddctm441 comparetotmag -8.0 -9 -> -1
|
|
ddctm442 comparetotmag -8 -9.0 -> -1
|
|
ddctm443 comparetotmag -8E+0 -9.0 -> -1
|
|
ddctm444 comparetotmag -80E-1 -9.0 -> -1
|
|
ddctm445 comparetotmag -.8E+1 -9 -> -1
|
|
ddctm446 comparetotmag -80E-1 -9 -> -1
|
|
ddctm447 comparetotmag -8.0 -9E+0 -> -1
|
|
ddctm448 comparetotmag -8.0 -90E-1 -> -1
|
|
ddctm449 comparetotmag -8 -.9E+1 -> -1
|
|
ddctm450 comparetotmag -8 -90E-1 -> -1
|
|
|
|
|
|
-- testcases that subtract to lots of zeros at boundaries [pgr]
|
|
ddctm473 comparetotmag 123.4560000000000E-89 123.456E-89 -> -1
|
|
ddctm474 comparetotmag 123.456000000000E+89 123.456E+89 -> -1
|
|
ddctm475 comparetotmag 123.45600000000E-89 123.456E-89 -> -1
|
|
ddctm476 comparetotmag 123.4560000000E+89 123.456E+89 -> -1
|
|
ddctm477 comparetotmag 123.456000000E-89 123.456E-89 -> -1
|
|
ddctm478 comparetotmag 123.45600000E+89 123.456E+89 -> -1
|
|
ddctm479 comparetotmag 123.4560000E-89 123.456E-89 -> -1
|
|
ddctm480 comparetotmag 123.456000E+89 123.456E+89 -> -1
|
|
ddctm481 comparetotmag 123.45600E-89 123.456E-89 -> -1
|
|
ddctm482 comparetotmag 123.4560E+89 123.456E+89 -> -1
|
|
ddctm483 comparetotmag 123.456E-89 123.456E-89 -> 0
|
|
ddctm487 comparetotmag 123.456E+89 123.4560000000000E+89 -> 1
|
|
ddctm488 comparetotmag 123.456E-89 123.456000000000E-89 -> 1
|
|
ddctm489 comparetotmag 123.456E+89 123.45600000000E+89 -> 1
|
|
ddctm490 comparetotmag 123.456E-89 123.4560000000E-89 -> 1
|
|
ddctm491 comparetotmag 123.456E+89 123.456000000E+89 -> 1
|
|
ddctm492 comparetotmag 123.456E-89 123.45600000E-89 -> 1
|
|
ddctm493 comparetotmag 123.456E+89 123.4560000E+89 -> 1
|
|
ddctm494 comparetotmag 123.456E-89 123.456000E-89 -> 1
|
|
ddctm495 comparetotmag 123.456E+89 123.45600E+89 -> 1
|
|
ddctm496 comparetotmag 123.456E-89 123.4560E-89 -> 1
|
|
ddctm497 comparetotmag 123.456E+89 123.456E+89 -> 0
|
|
|
|
-- wide-ranging, around precision; signs equal
|
|
ddctm498 comparetotmag 1 1E-17 -> 1
|
|
ddctm499 comparetotmag 1 1E-16 -> 1
|
|
ddctm500 comparetotmag 1 1E-15 -> 1
|
|
ddctm501 comparetotmag 1 1E-14 -> 1
|
|
ddctm502 comparetotmag 1 1E-13 -> 1
|
|
ddctm503 comparetotmag 1 1E-12 -> 1
|
|
ddctm504 comparetotmag 1 1E-11 -> 1
|
|
ddctm505 comparetotmag 1 1E-10 -> 1
|
|
ddctm506 comparetotmag 1 1E-9 -> 1
|
|
ddctm507 comparetotmag 1 1E-8 -> 1
|
|
ddctm508 comparetotmag 1 1E-7 -> 1
|
|
ddctm509 comparetotmag 1 1E-6 -> 1
|
|
ddctm510 comparetotmag 1 1E-5 -> 1
|
|
ddctm511 comparetotmag 1 1E-4 -> 1
|
|
ddctm512 comparetotmag 1 1E-3 -> 1
|
|
ddctm513 comparetotmag 1 1E-2 -> 1
|
|
ddctm514 comparetotmag 1 1E-1 -> 1
|
|
ddctm515 comparetotmag 1 1E-0 -> 0
|
|
ddctm516 comparetotmag 1 1E+1 -> -1
|
|
ddctm517 comparetotmag 1 1E+2 -> -1
|
|
ddctm518 comparetotmag 1 1E+3 -> -1
|
|
ddctm519 comparetotmag 1 1E+4 -> -1
|
|
ddctm521 comparetotmag 1 1E+5 -> -1
|
|
ddctm522 comparetotmag 1 1E+6 -> -1
|
|
ddctm523 comparetotmag 1 1E+7 -> -1
|
|
ddctm524 comparetotmag 1 1E+8 -> -1
|
|
ddctm525 comparetotmag 1 1E+9 -> -1
|
|
ddctm526 comparetotmag 1 1E+10 -> -1
|
|
ddctm527 comparetotmag 1 1E+11 -> -1
|
|
ddctm528 comparetotmag 1 1E+12 -> -1
|
|
ddctm529 comparetotmag 1 1E+13 -> -1
|
|
ddctm530 comparetotmag 1 1E+14 -> -1
|
|
ddctm531 comparetotmag 1 1E+15 -> -1
|
|
ddctm532 comparetotmag 1 1E+16 -> -1
|
|
ddctm533 comparetotmag 1 1E+17 -> -1
|
|
-- LR swap
|
|
ddctm538 comparetotmag 1E-17 1 -> -1
|
|
ddctm539 comparetotmag 1E-16 1 -> -1
|
|
ddctm540 comparetotmag 1E-15 1 -> -1
|
|
ddctm541 comparetotmag 1E-14 1 -> -1
|
|
ddctm542 comparetotmag 1E-13 1 -> -1
|
|
ddctm543 comparetotmag 1E-12 1 -> -1
|
|
ddctm544 comparetotmag 1E-11 1 -> -1
|
|
ddctm545 comparetotmag 1E-10 1 -> -1
|
|
ddctm546 comparetotmag 1E-9 1 -> -1
|
|
ddctm547 comparetotmag 1E-8 1 -> -1
|
|
ddctm548 comparetotmag 1E-7 1 -> -1
|
|
ddctm549 comparetotmag 1E-6 1 -> -1
|
|
ddctm550 comparetotmag 1E-5 1 -> -1
|
|
ddctm551 comparetotmag 1E-4 1 -> -1
|
|
ddctm552 comparetotmag 1E-3 1 -> -1
|
|
ddctm553 comparetotmag 1E-2 1 -> -1
|
|
ddctm554 comparetotmag 1E-1 1 -> -1
|
|
ddctm555 comparetotmag 1E-0 1 -> 0
|
|
ddctm556 comparetotmag 1E+1 1 -> 1
|
|
ddctm557 comparetotmag 1E+2 1 -> 1
|
|
ddctm558 comparetotmag 1E+3 1 -> 1
|
|
ddctm559 comparetotmag 1E+4 1 -> 1
|
|
ddctm561 comparetotmag 1E+5 1 -> 1
|
|
ddctm562 comparetotmag 1E+6 1 -> 1
|
|
ddctm563 comparetotmag 1E+7 1 -> 1
|
|
ddctm564 comparetotmag 1E+8 1 -> 1
|
|
ddctm565 comparetotmag 1E+9 1 -> 1
|
|
ddctm566 comparetotmag 1E+10 1 -> 1
|
|
ddctm567 comparetotmag 1E+11 1 -> 1
|
|
ddctm568 comparetotmag 1E+12 1 -> 1
|
|
ddctm569 comparetotmag 1E+13 1 -> 1
|
|
ddctm570 comparetotmag 1E+14 1 -> 1
|
|
ddctm571 comparetotmag 1E+15 1 -> 1
|
|
ddctm572 comparetotmag 1E+16 1 -> 1
|
|
ddctm573 comparetotmag 1E+17 1 -> 1
|
|
-- similar with a useful coefficient, one side only
|
|
ddctm578 comparetotmag 0.000000987654321 1E-17 -> 1
|
|
ddctm579 comparetotmag 0.000000987654321 1E-16 -> 1
|
|
ddctm580 comparetotmag 0.000000987654321 1E-15 -> 1
|
|
ddctm581 comparetotmag 0.000000987654321 1E-14 -> 1
|
|
ddctm582 comparetotmag 0.000000987654321 1E-13 -> 1
|
|
ddctm583 comparetotmag 0.000000987654321 1E-12 -> 1
|
|
ddctm584 comparetotmag 0.000000987654321 1E-11 -> 1
|
|
ddctm585 comparetotmag 0.000000987654321 1E-10 -> 1
|
|
ddctm586 comparetotmag 0.000000987654321 1E-9 -> 1
|
|
ddctm587 comparetotmag 0.000000987654321 1E-8 -> 1
|
|
ddctm588 comparetotmag 0.000000987654321 1E-7 -> 1
|
|
ddctm589 comparetotmag 0.000000987654321 1E-6 -> -1
|
|
ddctm590 comparetotmag 0.000000987654321 1E-5 -> -1
|
|
ddctm591 comparetotmag 0.000000987654321 1E-4 -> -1
|
|
ddctm592 comparetotmag 0.000000987654321 1E-3 -> -1
|
|
ddctm593 comparetotmag 0.000000987654321 1E-2 -> -1
|
|
ddctm594 comparetotmag 0.000000987654321 1E-1 -> -1
|
|
ddctm595 comparetotmag 0.000000987654321 1E-0 -> -1
|
|
ddctm596 comparetotmag 0.000000987654321 1E+1 -> -1
|
|
ddctm597 comparetotmag 0.000000987654321 1E+2 -> -1
|
|
ddctm598 comparetotmag 0.000000987654321 1E+3 -> -1
|
|
ddctm599 comparetotmag 0.000000987654321 1E+4 -> -1
|
|
|
|
-- check some unit-y traps
|
|
ddctm600 comparetotmag 12 12.2345 -> -1
|
|
ddctm601 comparetotmag 12.0 12.2345 -> -1
|
|
ddctm602 comparetotmag 12.00 12.2345 -> -1
|
|
ddctm603 comparetotmag 12.000 12.2345 -> -1
|
|
ddctm604 comparetotmag 12.0000 12.2345 -> -1
|
|
ddctm605 comparetotmag 12.00000 12.2345 -> -1
|
|
ddctm606 comparetotmag 12.000000 12.2345 -> -1
|
|
ddctm607 comparetotmag 12.0000000 12.2345 -> -1
|
|
ddctm608 comparetotmag 12.00000000 12.2345 -> -1
|
|
ddctm609 comparetotmag 12.000000000 12.2345 -> -1
|
|
ddctm610 comparetotmag 12.1234 12 -> 1
|
|
ddctm611 comparetotmag 12.1234 12.0 -> 1
|
|
ddctm612 comparetotmag 12.1234 12.00 -> 1
|
|
ddctm613 comparetotmag 12.1234 12.000 -> 1
|
|
ddctm614 comparetotmag 12.1234 12.0000 -> 1
|
|
ddctm615 comparetotmag 12.1234 12.00000 -> 1
|
|
ddctm616 comparetotmag 12.1234 12.000000 -> 1
|
|
ddctm617 comparetotmag 12.1234 12.0000000 -> 1
|
|
ddctm618 comparetotmag 12.1234 12.00000000 -> 1
|
|
ddctm619 comparetotmag 12.1234 12.000000000 -> 1
|
|
ddctm620 comparetotmag -12 -12.2345 -> -1
|
|
ddctm621 comparetotmag -12.0 -12.2345 -> -1
|
|
ddctm622 comparetotmag -12.00 -12.2345 -> -1
|
|
ddctm623 comparetotmag -12.000 -12.2345 -> -1
|
|
ddctm624 comparetotmag -12.0000 -12.2345 -> -1
|
|
ddctm625 comparetotmag -12.00000 -12.2345 -> -1
|
|
ddctm626 comparetotmag -12.000000 -12.2345 -> -1
|
|
ddctm627 comparetotmag -12.0000000 -12.2345 -> -1
|
|
ddctm628 comparetotmag -12.00000000 -12.2345 -> -1
|
|
ddctm629 comparetotmag -12.000000000 -12.2345 -> -1
|
|
ddctm630 comparetotmag -12.1234 -12 -> 1
|
|
ddctm631 comparetotmag -12.1234 -12.0 -> 1
|
|
ddctm632 comparetotmag -12.1234 -12.00 -> 1
|
|
ddctm633 comparetotmag -12.1234 -12.000 -> 1
|
|
ddctm634 comparetotmag -12.1234 -12.0000 -> 1
|
|
ddctm635 comparetotmag -12.1234 -12.00000 -> 1
|
|
ddctm636 comparetotmag -12.1234 -12.000000 -> 1
|
|
ddctm637 comparetotmag -12.1234 -12.0000000 -> 1
|
|
ddctm638 comparetotmag -12.1234 -12.00000000 -> 1
|
|
ddctm639 comparetotmag -12.1234 -12.000000000 -> 1
|
|
|
|
-- extended zeros
|
|
ddctm640 comparetotmag 0 0 -> 0
|
|
ddctm641 comparetotmag 0 -0 -> 0
|
|
ddctm642 comparetotmag 0 -0.0 -> 1
|
|
ddctm643 comparetotmag 0 0.0 -> 1
|
|
ddctm644 comparetotmag -0 0 -> 0
|
|
ddctm645 comparetotmag -0 -0 -> 0
|
|
ddctm646 comparetotmag -0 -0.0 -> 1
|
|
ddctm647 comparetotmag -0 0.0 -> 1
|
|
ddctm648 comparetotmag 0.0 0 -> -1
|
|
ddctm649 comparetotmag 0.0 -0 -> -1
|
|
ddctm650 comparetotmag 0.0 -0.0 -> 0
|
|
ddctm651 comparetotmag 0.0 0.0 -> 0
|
|
ddctm652 comparetotmag -0.0 0 -> -1
|
|
ddctm653 comparetotmag -0.0 -0 -> -1
|
|
ddctm654 comparetotmag -0.0 -0.0 -> 0
|
|
ddctm655 comparetotmag -0.0 0.0 -> 0
|
|
|
|
ddctm656 comparetotmag -0E1 0.0 -> 1
|
|
ddctm657 comparetotmag -0E2 0.0 -> 1
|
|
ddctm658 comparetotmag 0E1 0.0 -> 1
|
|
ddctm659 comparetotmag 0E2 0.0 -> 1
|
|
ddctm660 comparetotmag -0E1 0 -> 1
|
|
ddctm661 comparetotmag -0E2 0 -> 1
|
|
ddctm662 comparetotmag 0E1 0 -> 1
|
|
ddctm663 comparetotmag 0E2 0 -> 1
|
|
ddctm664 comparetotmag -0E1 -0E1 -> 0
|
|
ddctm665 comparetotmag -0E2 -0E1 -> 1
|
|
ddctm666 comparetotmag 0E1 -0E1 -> 0
|
|
ddctm667 comparetotmag 0E2 -0E1 -> 1
|
|
ddctm668 comparetotmag -0E1 -0E2 -> -1
|
|
ddctm669 comparetotmag -0E2 -0E2 -> 0
|
|
ddctm670 comparetotmag 0E1 -0E2 -> -1
|
|
ddctm671 comparetotmag 0E2 -0E2 -> 0
|
|
ddctm672 comparetotmag -0E1 0E1 -> 0
|
|
ddctm673 comparetotmag -0E2 0E1 -> 1
|
|
ddctm674 comparetotmag 0E1 0E1 -> 0
|
|
ddctm675 comparetotmag 0E2 0E1 -> 1
|
|
ddctm676 comparetotmag -0E1 0E2 -> -1
|
|
ddctm677 comparetotmag -0E2 0E2 -> 0
|
|
ddctm678 comparetotmag 0E1 0E2 -> -1
|
|
ddctm679 comparetotmag 0E2 0E2 -> 0
|
|
|
|
-- trailing zeros; unit-y
|
|
ddctm680 comparetotmag 12 12 -> 0
|
|
ddctm681 comparetotmag 12 12.0 -> 1
|
|
ddctm682 comparetotmag 12 12.00 -> 1
|
|
ddctm683 comparetotmag 12 12.000 -> 1
|
|
ddctm684 comparetotmag 12 12.0000 -> 1
|
|
ddctm685 comparetotmag 12 12.00000 -> 1
|
|
ddctm686 comparetotmag 12 12.000000 -> 1
|
|
ddctm687 comparetotmag 12 12.0000000 -> 1
|
|
ddctm688 comparetotmag 12 12.00000000 -> 1
|
|
ddctm689 comparetotmag 12 12.000000000 -> 1
|
|
ddctm690 comparetotmag 12 12 -> 0
|
|
ddctm691 comparetotmag 12.0 12 -> -1
|
|
ddctm692 comparetotmag 12.00 12 -> -1
|
|
ddctm693 comparetotmag 12.000 12 -> -1
|
|
ddctm694 comparetotmag 12.0000 12 -> -1
|
|
ddctm695 comparetotmag 12.00000 12 -> -1
|
|
ddctm696 comparetotmag 12.000000 12 -> -1
|
|
ddctm697 comparetotmag 12.0000000 12 -> -1
|
|
ddctm698 comparetotmag 12.00000000 12 -> -1
|
|
ddctm699 comparetotmag 12.000000000 12 -> -1
|
|
|
|
-- old long operand checks
|
|
ddctm701 comparetotmag 12345678000 1 -> 1
|
|
ddctm702 comparetotmag 1 12345678000 -> -1
|
|
ddctm703 comparetotmag 1234567800 1 -> 1
|
|
ddctm704 comparetotmag 1 1234567800 -> -1
|
|
ddctm705 comparetotmag 1234567890 1 -> 1
|
|
ddctm706 comparetotmag 1 1234567890 -> -1
|
|
ddctm707 comparetotmag 1234567891 1 -> 1
|
|
ddctm708 comparetotmag 1 1234567891 -> -1
|
|
ddctm709 comparetotmag 12345678901 1 -> 1
|
|
ddctm710 comparetotmag 1 12345678901 -> -1
|
|
ddctm711 comparetotmag 1234567896 1 -> 1
|
|
ddctm712 comparetotmag 1 1234567896 -> -1
|
|
ddctm713 comparetotmag -1234567891 1 -> 1
|
|
ddctm714 comparetotmag 1 -1234567891 -> -1
|
|
ddctm715 comparetotmag -12345678901 1 -> 1
|
|
ddctm716 comparetotmag 1 -12345678901 -> -1
|
|
ddctm717 comparetotmag -1234567896 1 -> 1
|
|
ddctm718 comparetotmag 1 -1234567896 -> -1
|
|
|
|
-- old residue cases
|
|
ddctm740 comparetotmag 1 0.9999999 -> 1
|
|
ddctm741 comparetotmag 1 0.999999 -> 1
|
|
ddctm742 comparetotmag 1 0.99999 -> 1
|
|
ddctm743 comparetotmag 1 1.0000 -> 1
|
|
ddctm744 comparetotmag 1 1.00001 -> -1
|
|
ddctm745 comparetotmag 1 1.000001 -> -1
|
|
ddctm746 comparetotmag 1 1.0000001 -> -1
|
|
ddctm750 comparetotmag 0.9999999 1 -> -1
|
|
ddctm751 comparetotmag 0.999999 1 -> -1
|
|
ddctm752 comparetotmag 0.99999 1 -> -1
|
|
ddctm753 comparetotmag 1.0000 1 -> -1
|
|
ddctm754 comparetotmag 1.00001 1 -> 1
|
|
ddctm755 comparetotmag 1.000001 1 -> 1
|
|
ddctm756 comparetotmag 1.0000001 1 -> 1
|
|
|
|
-- Specials
|
|
ddctm780 comparetotmag Inf -Inf -> 0
|
|
ddctm781 comparetotmag Inf -1000 -> 1
|
|
ddctm782 comparetotmag Inf -1 -> 1
|
|
ddctm783 comparetotmag Inf -0 -> 1
|
|
ddctm784 comparetotmag Inf 0 -> 1
|
|
ddctm785 comparetotmag Inf 1 -> 1
|
|
ddctm786 comparetotmag Inf 1000 -> 1
|
|
ddctm787 comparetotmag Inf Inf -> 0
|
|
ddctm788 comparetotmag -1000 Inf -> -1
|
|
ddctm789 comparetotmag -Inf Inf -> 0
|
|
ddctm790 comparetotmag -1 Inf -> -1
|
|
ddctm791 comparetotmag -0 Inf -> -1
|
|
ddctm792 comparetotmag 0 Inf -> -1
|
|
ddctm793 comparetotmag 1 Inf -> -1
|
|
ddctm794 comparetotmag 1000 Inf -> -1
|
|
ddctm795 comparetotmag Inf Inf -> 0
|
|
|
|
ddctm800 comparetotmag -Inf -Inf -> 0
|
|
ddctm801 comparetotmag -Inf -1000 -> 1
|
|
ddctm802 comparetotmag -Inf -1 -> 1
|
|
ddctm803 comparetotmag -Inf -0 -> 1
|
|
ddctm804 comparetotmag -Inf 0 -> 1
|
|
ddctm805 comparetotmag -Inf 1 -> 1
|
|
ddctm806 comparetotmag -Inf 1000 -> 1
|
|
ddctm807 comparetotmag -Inf Inf -> 0
|
|
ddctm808 comparetotmag -Inf -Inf -> 0
|
|
ddctm809 comparetotmag -1000 -Inf -> -1
|
|
ddctm810 comparetotmag -1 -Inf -> -1
|
|
ddctm811 comparetotmag -0 -Inf -> -1
|
|
ddctm812 comparetotmag 0 -Inf -> -1
|
|
ddctm813 comparetotmag 1 -Inf -> -1
|
|
ddctm814 comparetotmag 1000 -Inf -> -1
|
|
ddctm815 comparetotmag Inf -Inf -> 0
|
|
|
|
ddctm821 comparetotmag NaN -Inf -> 1
|
|
ddctm822 comparetotmag NaN -1000 -> 1
|
|
ddctm823 comparetotmag NaN -1 -> 1
|
|
ddctm824 comparetotmag NaN -0 -> 1
|
|
ddctm825 comparetotmag NaN 0 -> 1
|
|
ddctm826 comparetotmag NaN 1 -> 1
|
|
ddctm827 comparetotmag NaN 1000 -> 1
|
|
ddctm828 comparetotmag NaN Inf -> 1
|
|
ddctm829 comparetotmag NaN NaN -> 0
|
|
ddctm830 comparetotmag -Inf NaN -> -1
|
|
ddctm831 comparetotmag -1000 NaN -> -1
|
|
ddctm832 comparetotmag -1 NaN -> -1
|
|
ddctm833 comparetotmag -0 NaN -> -1
|
|
ddctm834 comparetotmag 0 NaN -> -1
|
|
ddctm835 comparetotmag 1 NaN -> -1
|
|
ddctm836 comparetotmag 1000 NaN -> -1
|
|
ddctm837 comparetotmag Inf NaN -> -1
|
|
ddctm838 comparetotmag -NaN -NaN -> 0
|
|
ddctm839 comparetotmag +NaN -NaN -> 0
|
|
ddctm840 comparetotmag -NaN +NaN -> 0
|
|
|
|
ddctm841 comparetotmag sNaN -sNaN -> 0
|
|
ddctm842 comparetotmag sNaN -NaN -> -1
|
|
ddctm843 comparetotmag sNaN -Inf -> 1
|
|
ddctm844 comparetotmag sNaN -1000 -> 1
|
|
ddctm845 comparetotmag sNaN -1 -> 1
|
|
ddctm846 comparetotmag sNaN -0 -> 1
|
|
ddctm847 comparetotmag sNaN 0 -> 1
|
|
ddctm848 comparetotmag sNaN 1 -> 1
|
|
ddctm849 comparetotmag sNaN 1000 -> 1
|
|
ddctm850 comparetotmag sNaN NaN -> -1
|
|
ddctm851 comparetotmag sNaN sNaN -> 0
|
|
|
|
ddctm852 comparetotmag -sNaN sNaN -> 0
|
|
ddctm853 comparetotmag -NaN sNaN -> 1
|
|
ddctm854 comparetotmag -Inf sNaN -> -1
|
|
ddctm855 comparetotmag -1000 sNaN -> -1
|
|
ddctm856 comparetotmag -1 sNaN -> -1
|
|
ddctm857 comparetotmag -0 sNaN -> -1
|
|
ddctm858 comparetotmag 0 sNaN -> -1
|
|
ddctm859 comparetotmag 1 sNaN -> -1
|
|
ddctm860 comparetotmag 1000 sNaN -> -1
|
|
ddctm861 comparetotmag Inf sNaN -> -1
|
|
ddctm862 comparetotmag NaN sNaN -> 1
|
|
ddctm863 comparetotmag sNaN sNaN -> 0
|
|
|
|
ddctm871 comparetotmag -sNaN -sNaN -> 0
|
|
ddctm872 comparetotmag -sNaN -NaN -> -1
|
|
ddctm873 comparetotmag -sNaN -Inf -> 1
|
|
ddctm874 comparetotmag -sNaN -1000 -> 1
|
|
ddctm875 comparetotmag -sNaN -1 -> 1
|
|
ddctm876 comparetotmag -sNaN -0 -> 1
|
|
ddctm877 comparetotmag -sNaN 0 -> 1
|
|
ddctm878 comparetotmag -sNaN 1 -> 1
|
|
ddctm879 comparetotmag -sNaN 1000 -> 1
|
|
ddctm880 comparetotmag -sNaN NaN -> -1
|
|
ddctm881 comparetotmag -sNaN sNaN -> 0
|
|
|
|
ddctm882 comparetotmag -sNaN -sNaN -> 0
|
|
ddctm883 comparetotmag -NaN -sNaN -> 1
|
|
ddctm884 comparetotmag -Inf -sNaN -> -1
|
|
ddctm885 comparetotmag -1000 -sNaN -> -1
|
|
ddctm886 comparetotmag -1 -sNaN -> -1
|
|
ddctm887 comparetotmag -0 -sNaN -> -1
|
|
ddctm888 comparetotmag 0 -sNaN -> -1
|
|
ddctm889 comparetotmag 1 -sNaN -> -1
|
|
ddctm890 comparetotmag 1000 -sNaN -> -1
|
|
ddctm891 comparetotmag Inf -sNaN -> -1
|
|
ddctm892 comparetotmag NaN -sNaN -> 1
|
|
ddctm893 comparetotmag sNaN -sNaN -> 0
|
|
|
|
-- NaNs with payload
|
|
ddctm960 comparetotmag NaN9 -Inf -> 1
|
|
ddctm961 comparetotmag NaN8 999 -> 1
|
|
ddctm962 comparetotmag NaN77 Inf -> 1
|
|
ddctm963 comparetotmag -NaN67 NaN5 -> 1
|
|
ddctm964 comparetotmag -Inf -NaN4 -> -1
|
|
ddctm965 comparetotmag -999 -NaN33 -> -1
|
|
ddctm966 comparetotmag Inf NaN2 -> -1
|
|
|
|
ddctm970 comparetotmag -NaN41 -NaN42 -> -1
|
|
ddctm971 comparetotmag +NaN41 -NaN42 -> -1
|
|
ddctm972 comparetotmag -NaN41 +NaN42 -> -1
|
|
ddctm973 comparetotmag +NaN41 +NaN42 -> -1
|
|
ddctm974 comparetotmag -NaN42 -NaN01 -> 1
|
|
ddctm975 comparetotmag +NaN42 -NaN01 -> 1
|
|
ddctm976 comparetotmag -NaN42 +NaN01 -> 1
|
|
ddctm977 comparetotmag +NaN42 +NaN01 -> 1
|
|
|
|
ddctm980 comparetotmag -sNaN771 -sNaN772 -> -1
|
|
ddctm981 comparetotmag +sNaN771 -sNaN772 -> -1
|
|
ddctm982 comparetotmag -sNaN771 +sNaN772 -> -1
|
|
ddctm983 comparetotmag +sNaN771 +sNaN772 -> -1
|
|
ddctm984 comparetotmag -sNaN772 -sNaN771 -> 1
|
|
ddctm985 comparetotmag +sNaN772 -sNaN771 -> 1
|
|
ddctm986 comparetotmag -sNaN772 +sNaN771 -> 1
|
|
ddctm987 comparetotmag +sNaN772 +sNaN771 -> 1
|
|
|
|
ddctm991 comparetotmag -sNaN99 -Inf -> 1
|
|
ddctm992 comparetotmag sNaN98 -11 -> 1
|
|
ddctm993 comparetotmag sNaN97 NaN -> -1
|
|
ddctm994 comparetotmag sNaN16 sNaN94 -> -1
|
|
ddctm995 comparetotmag NaN85 sNaN83 -> 1
|
|
ddctm996 comparetotmag -Inf sNaN92 -> -1
|
|
ddctm997 comparetotmag 088 sNaN81 -> -1
|
|
ddctm998 comparetotmag Inf sNaN90 -> -1
|
|
ddctm999 comparetotmag NaN -sNaN89 -> 1
|
|
|
|
-- spread zeros
|
|
ddctm1110 comparetotmag 0E-383 0 -> -1
|
|
ddctm1111 comparetotmag 0E-383 -0 -> -1
|
|
ddctm1112 comparetotmag -0E-383 0 -> -1
|
|
ddctm1113 comparetotmag -0E-383 -0 -> -1
|
|
ddctm1114 comparetotmag 0E-383 0E+384 -> -1
|
|
ddctm1115 comparetotmag 0E-383 -0E+384 -> -1
|
|
ddctm1116 comparetotmag -0E-383 0E+384 -> -1
|
|
ddctm1117 comparetotmag -0E-383 -0E+384 -> -1
|
|
ddctm1118 comparetotmag 0 0E+384 -> -1
|
|
ddctm1119 comparetotmag 0 -0E+384 -> -1
|
|
ddctm1120 comparetotmag -0 0E+384 -> -1
|
|
ddctm1121 comparetotmag -0 -0E+384 -> -1
|
|
|
|
ddctm1130 comparetotmag 0E+384 0 -> 1
|
|
ddctm1131 comparetotmag 0E+384 -0 -> 1
|
|
ddctm1132 comparetotmag -0E+384 0 -> 1
|
|
ddctm1133 comparetotmag -0E+384 -0 -> 1
|
|
ddctm1134 comparetotmag 0E+384 0E-383 -> 1
|
|
ddctm1135 comparetotmag 0E+384 -0E-383 -> 1
|
|
ddctm1136 comparetotmag -0E+384 0E-383 -> 1
|
|
ddctm1137 comparetotmag -0E+384 -0E-383 -> 1
|
|
ddctm1138 comparetotmag 0 0E-383 -> 1
|
|
ddctm1139 comparetotmag 0 -0E-383 -> 1
|
|
ddctm1140 comparetotmag -0 0E-383 -> 1
|
|
ddctm1141 comparetotmag -0 -0E-383 -> 1
|
|
|
|
-- Null tests
|
|
ddctm9990 comparetotmag 10 # -> NaN Invalid_operation
|
|
ddctm9991 comparetotmag # 10 -> NaN Invalid_operation
|