Home | History | Annotate | Download | only in decimaltestdata
      1 ------------------------------------------------------------------------
      2 -- dqCompare.decTest -- decQuad comparison that allows quiet NaNs     --
      3 -- Copyright (c) IBM Corporation, 1981, 2008.  All rights reserved.   --
      4 ------------------------------------------------------------------------
      5 -- Please see the document "General Decimal Arithmetic Testcases"     --
      6 -- at http://www2.hursley.ibm.com/decimal for the description of      --
      7 -- these testcases.                                                   --
      8 --                                                                    --
      9 -- These testcases are experimental ('beta' versions), and they       --
     10 -- may contain errors.  They are offered on an as-is basis.  In       --
     11 -- particular, achieving the same results as the tests here is not    --
     12 -- a guarantee that an implementation complies with any Standard      --
     13 -- or specification.  The tests are not exhaustive.                   --
     14 --                                                                    --
     15 -- Please send comments, suggestions, and corrections to the author:  --
     16 --   Mike Cowlishaw, IBM Fellow                                       --
     17 --   IBM UK, PO Box 31, Birmingham Road, Warwick CV34 5JL, UK         --
     18 --   mfc (a] uk.ibm.com                                                   --
     19 ------------------------------------------------------------------------
     20 version: 2.59
     21 
     22 -- Note that we cannot assume add/subtract tests cover paths adequately,
     23 -- here, because the code might be quite different (comparison cannot
     24 -- overflow or underflow, so actual subtractions are not necessary).
     25 
     26 -- All operands and results are decQuads.
     27 extended:    1
     28 clamp:       1
     29 precision:   34
     30 maxExponent: 6144
     31 minExponent: -6143
     32 rounding:    half_even
     33 
     34 -- sanity checks
     35 dqcom001 compare  -2  -2  -> 0
     36 dqcom002 compare  -2  -1  -> -1
     37 dqcom003 compare  -2   0  -> -1
     38 dqcom004 compare  -2   1  -> -1
     39 dqcom005 compare  -2   2  -> -1
     40 dqcom006 compare  -1  -2  -> 1
     41 dqcom007 compare  -1  -1  -> 0
     42 dqcom008 compare  -1   0  -> -1
     43 dqcom009 compare  -1   1  -> -1
     44 dqcom010 compare  -1   2  -> -1
     45 dqcom011 compare   0  -2  -> 1
     46 dqcom012 compare   0  -1  -> 1
     47 dqcom013 compare   0   0  -> 0
     48 dqcom014 compare   0   1  -> -1
     49 dqcom015 compare   0   2  -> -1
     50 dqcom016 compare   1  -2  -> 1
     51 dqcom017 compare   1  -1  -> 1
     52 dqcom018 compare   1   0  -> 1
     53 dqcom019 compare   1   1  -> 0
     54 dqcom020 compare   1   2  -> -1
     55 dqcom021 compare   2  -2  -> 1
     56 dqcom022 compare   2  -1  -> 1
     57 dqcom023 compare   2   0  -> 1
     58 dqcom025 compare   2   1  -> 1
     59 dqcom026 compare   2   2  -> 0
     60 
     61 dqcom031 compare  -20  -20  -> 0
     62 dqcom032 compare  -20  -10  -> -1
     63 dqcom033 compare  -20   00  -> -1
     64 dqcom034 compare  -20   10  -> -1
     65 dqcom035 compare  -20   20  -> -1
     66 dqcom036 compare  -10  -20  -> 1
     67 dqcom037 compare  -10  -10  -> 0
     68 dqcom038 compare  -10   00  -> -1
     69 dqcom039 compare  -10   10  -> -1
     70 dqcom040 compare  -10   20  -> -1
     71 dqcom041 compare   00  -20  -> 1
     72 dqcom042 compare   00  -10  -> 1
     73 dqcom043 compare   00   00  -> 0
     74 dqcom044 compare   00   10  -> -1
     75 dqcom045 compare   00   20  -> -1
     76 dqcom046 compare   10  -20  -> 1
     77 dqcom047 compare   10  -10  -> 1
     78 dqcom048 compare   10   00  -> 1
     79 dqcom049 compare   10   10  -> 0
     80 dqcom050 compare   10   20  -> -1
     81 dqcom051 compare   20  -20  -> 1
     82 dqcom052 compare   20  -10  -> 1
     83 dqcom053 compare   20   00  -> 1
     84 dqcom055 compare   20   10  -> 1
     85 dqcom056 compare   20   20  -> 0
     86 
     87 dqcom061 compare  -2.0  -2.0  -> 0
     88 dqcom062 compare  -2.0  -1.0  -> -1
     89 dqcom063 compare  -2.0   0.0  -> -1
     90 dqcom064 compare  -2.0   1.0  -> -1
     91 dqcom065 compare  -2.0   2.0  -> -1
     92 dqcom066 compare  -1.0  -2.0  -> 1
     93 dqcom067 compare  -1.0  -1.0  -> 0
     94 dqcom068 compare  -1.0   0.0  -> -1
     95 dqcom069 compare  -1.0   1.0  -> -1
     96 dqcom070 compare  -1.0   2.0  -> -1
     97 dqcom071 compare   0.0  -2.0  -> 1
     98 dqcom072 compare   0.0  -1.0  -> 1
     99 dqcom073 compare   0.0   0.0  -> 0
    100 dqcom074 compare   0.0   1.0  -> -1
    101 dqcom075 compare   0.0   2.0  -> -1
    102 dqcom076 compare   1.0  -2.0  -> 1
    103 dqcom077 compare   1.0  -1.0  -> 1
    104 dqcom078 compare   1.0   0.0  -> 1
    105 dqcom079 compare   1.0   1.0  -> 0
    106 dqcom080 compare   1.0   2.0  -> -1
    107 dqcom081 compare   2.0  -2.0  -> 1
    108 dqcom082 compare   2.0  -1.0  -> 1
    109 dqcom083 compare   2.0   0.0  -> 1
    110 dqcom085 compare   2.0   1.0  -> 1
    111 dqcom086 compare   2.0   2.0  -> 0
    112 
    113 -- now some cases which might overflow if subtract were used
    114 dqcom090 compare  9.999999999999999999999999999999999E+6144 9.999999999999999999999999999999999E+6144  -> 0
    115 dqcom091 compare -9.999999999999999999999999999999999E+6144 9.999999999999999999999999999999999E+6144  -> -1
    116 dqcom092 compare  9.999999999999999999999999999999999E+6144 -9.999999999999999999999999999999999E+6144 -> 1
    117 dqcom093 compare -9.999999999999999999999999999999999E+6144 -9.999999999999999999999999999999999E+6144 -> 0
    118 
    119 -- some differing length/exponent cases
    120 dqcom100 compare   7.0    7.0    -> 0
    121 dqcom101 compare   7.0    7      -> 0
    122 dqcom102 compare   7      7.0    -> 0
    123 dqcom103 compare   7E+0   7.0    -> 0
    124 dqcom104 compare   70E-1  7.0    -> 0
    125 dqcom105 compare   0.7E+1 7      -> 0
    126 dqcom106 compare   70E-1  7      -> 0
    127 dqcom107 compare   7.0    7E+0   -> 0
    128 dqcom108 compare   7.0    70E-1  -> 0
    129 dqcom109 compare   7      0.7E+1 -> 0
    130 dqcom110 compare   7      70E-1  -> 0
    131 
    132 dqcom120 compare   8.0    7.0    -> 1
    133 dqcom121 compare   8.0    7      -> 1
    134 dqcom122 compare   8      7.0    -> 1
    135 dqcom123 compare   8E+0   7.0    -> 1
    136 dqcom124 compare   80E-1  7.0    -> 1
    137 dqcom125 compare   0.8E+1 7      -> 1
    138 dqcom126 compare   80E-1  7      -> 1
    139 dqcom127 compare   8.0    7E+0   -> 1
    140 dqcom128 compare   8.0    70E-1  -> 1
    141 dqcom129 compare   8      0.7E+1  -> 1
    142 dqcom130 compare   8      70E-1  -> 1
    143 
    144 dqcom140 compare   8.0    9.0    -> -1
    145 dqcom141 compare   8.0    9      -> -1
    146 dqcom142 compare   8      9.0    -> -1
    147 dqcom143 compare   8E+0   9.0    -> -1
    148 dqcom144 compare   80E-1  9.0    -> -1
    149 dqcom145 compare   0.8E+1 9      -> -1
    150 dqcom146 compare   80E-1  9      -> -1
    151 dqcom147 compare   8.0    9E+0   -> -1
    152 dqcom148 compare   8.0    90E-1  -> -1
    153 dqcom149 compare   8      0.9E+1 -> -1
    154 dqcom150 compare   8      90E-1  -> -1
    155 
    156 -- and again, with sign changes -+ ..
    157 dqcom200 compare  -7.0    7.0    -> -1
    158 dqcom201 compare  -7.0    7      -> -1
    159 dqcom202 compare  -7      7.0    -> -1
    160 dqcom203 compare  -7E+0   7.0    -> -1
    161 dqcom204 compare  -70E-1  7.0    -> -1
    162 dqcom205 compare  -0.7E+1 7      -> -1
    163 dqcom206 compare  -70E-1  7      -> -1
    164 dqcom207 compare  -7.0    7E+0   -> -1
    165 dqcom208 compare  -7.0    70E-1  -> -1
    166 dqcom209 compare  -7      0.7E+1 -> -1
    167 dqcom210 compare  -7      70E-1  -> -1
    168 
    169 dqcom220 compare  -8.0    7.0    -> -1
    170 dqcom221 compare  -8.0    7      -> -1
    171 dqcom222 compare  -8      7.0    -> -1
    172 dqcom223 compare  -8E+0   7.0    -> -1
    173 dqcom224 compare  -80E-1  7.0    -> -1
    174 dqcom225 compare  -0.8E+1 7      -> -1
    175 dqcom226 compare  -80E-1  7      -> -1
    176 dqcom227 compare  -8.0    7E+0   -> -1
    177 dqcom228 compare  -8.0    70E-1  -> -1
    178 dqcom229 compare  -8      0.7E+1 -> -1
    179 dqcom230 compare  -8      70E-1  -> -1
    180 
    181 dqcom240 compare  -8.0    9.0    -> -1
    182 dqcom241 compare  -8.0    9      -> -1
    183 dqcom242 compare  -8      9.0    -> -1
    184 dqcom243 compare  -8E+0   9.0    -> -1
    185 dqcom244 compare  -80E-1  9.0    -> -1
    186 dqcom245 compare  -0.8E+1 9      -> -1
    187 dqcom246 compare  -80E-1  9      -> -1
    188 dqcom247 compare  -8.0    9E+0   -> -1
    189 dqcom248 compare  -8.0    90E-1  -> -1
    190 dqcom249 compare  -8      0.9E+1 -> -1
    191 dqcom250 compare  -8      90E-1  -> -1
    192 
    193 -- and again, with sign changes +- ..
    194 dqcom300 compare   7.0    -7.0    -> 1
    195 dqcom301 compare   7.0    -7      -> 1
    196 dqcom302 compare   7      -7.0    -> 1
    197 dqcom303 compare   7E+0   -7.0    -> 1
    198 dqcom304 compare   70E-1  -7.0    -> 1
    199 dqcom305 compare   .7E+1  -7      -> 1
    200 dqcom306 compare   70E-1  -7      -> 1
    201 dqcom307 compare   7.0    -7E+0   -> 1
    202 dqcom308 compare   7.0    -70E-1  -> 1
    203 dqcom309 compare   7      -.7E+1  -> 1
    204 dqcom310 compare   7      -70E-1  -> 1
    205 
    206 dqcom320 compare   8.0    -7.0    -> 1
    207 dqcom321 compare   8.0    -7      -> 1
    208 dqcom322 compare   8      -7.0    -> 1
    209 dqcom323 compare   8E+0   -7.0    -> 1
    210 dqcom324 compare   80E-1  -7.0    -> 1
    211 dqcom325 compare   .8E+1  -7      -> 1
    212 dqcom326 compare   80E-1  -7      -> 1
    213 dqcom327 compare   8.0    -7E+0   -> 1
    214 dqcom328 compare   8.0    -70E-1  -> 1
    215 dqcom329 compare   8      -.7E+1  -> 1
    216 dqcom330 compare   8      -70E-1  -> 1
    217 
    218 dqcom340 compare   8.0    -9.0    -> 1
    219 dqcom341 compare   8.0    -9      -> 1
    220 dqcom342 compare   8      -9.0    -> 1
    221 dqcom343 compare   8E+0   -9.0    -> 1
    222 dqcom344 compare   80E-1  -9.0    -> 1
    223 dqcom345 compare   .8E+1  -9      -> 1
    224 dqcom346 compare   80E-1  -9      -> 1
    225 dqcom347 compare   8.0    -9E+0   -> 1
    226 dqcom348 compare   8.0    -90E-1  -> 1
    227 dqcom349 compare   8      -.9E+1  -> 1
    228 dqcom350 compare   8      -90E-1  -> 1
    229 
    230 -- and again, with sign changes -- ..
    231 dqcom400 compare   -7.0    -7.0    -> 0
    232 dqcom401 compare   -7.0    -7      -> 0
    233 dqcom402 compare   -7      -7.0    -> 0
    234 dqcom403 compare   -7E+0   -7.0    -> 0
    235 dqcom404 compare   -70E-1  -7.0    -> 0
    236 dqcom405 compare   -.7E+1  -7      -> 0
    237 dqcom406 compare   -70E-1  -7      -> 0
    238 dqcom407 compare   -7.0    -7E+0   -> 0
    239 dqcom408 compare   -7.0    -70E-1  -> 0
    240 dqcom409 compare   -7      -.7E+1  -> 0
    241 dqcom410 compare   -7      -70E-1  -> 0
    242 
    243 dqcom420 compare   -8.0    -7.0    -> -1
    244 dqcom421 compare   -8.0    -7      -> -1
    245 dqcom422 compare   -8      -7.0    -> -1
    246 dqcom423 compare   -8E+0   -7.0    -> -1
    247 dqcom424 compare   -80E-1  -7.0    -> -1
    248 dqcom425 compare   -.8E+1  -7      -> -1
    249 dqcom426 compare   -80E-1  -7      -> -1
    250 dqcom427 compare   -8.0    -7E+0   -> -1
    251 dqcom428 compare   -8.0    -70E-1  -> -1
    252 dqcom429 compare   -8      -.7E+1  -> -1
    253 dqcom430 compare   -8      -70E-1  -> -1
    254 
    255 dqcom440 compare   -8.0    -9.0    -> 1
    256 dqcom441 compare   -8.0    -9      -> 1
    257 dqcom442 compare   -8      -9.0    -> 1
    258 dqcom443 compare   -8E+0   -9.0    -> 1
    259 dqcom444 compare   -80E-1  -9.0    -> 1
    260 dqcom445 compare   -.8E+1  -9      -> 1
    261 dqcom446 compare   -80E-1  -9      -> 1
    262 dqcom447 compare   -8.0    -9E+0   -> 1
    263 dqcom448 compare   -8.0    -90E-1  -> 1
    264 dqcom449 compare   -8      -.9E+1  -> 1
    265 dqcom450 compare   -8      -90E-1  -> 1
    266 
    267 -- misalignment traps for little-endian
    268 dqcom451 compare      1.0       0.1  -> 1
    269 dqcom452 compare      0.1       1.0  -> -1
    270 dqcom453 compare     10.0       0.1  -> 1
    271 dqcom454 compare      0.1      10.0  -> -1
    272 dqcom455 compare      100       1.0  -> 1
    273 dqcom456 compare      1.0       100  -> -1
    274 dqcom457 compare     1000      10.0  -> 1
    275 dqcom458 compare     10.0      1000  -> -1
    276 dqcom459 compare    10000     100.0  -> 1
    277 dqcom460 compare    100.0     10000  -> -1
    278 dqcom461 compare   100000    1000.0  -> 1
    279 dqcom462 compare   1000.0    100000  -> -1
    280 dqcom463 compare  1000000   10000.0  -> 1
    281 dqcom464 compare  10000.0   1000000  -> -1
    282 
    283 -- testcases that subtract to lots of zeros at boundaries [pgr]
    284 dqcom473 compare 123.9999999999999999994560000000000E-89 123.999999999999999999456E-89 -> 0
    285 dqcom474 compare 123.999999999999999999456000000000E+89 123.999999999999999999456E+89 -> 0
    286 dqcom475 compare 123.99999999999999999945600000000E-89 123.999999999999999999456E-89 -> 0
    287 dqcom476 compare 123.9999999999999999994560000000E+89 123.999999999999999999456E+89 -> 0
    288 dqcom477 compare 123.999999999999999999456000000E-89 123.999999999999999999456E-89 -> 0
    289 dqcom478 compare 123.99999999999999999945600000E+89 123.999999999999999999456E+89 -> 0
    290 dqcom479 compare 123.9999999999999999994560000E-89 123.999999999999999999456E-89 -> 0
    291 dqcom480 compare 123.999999999999999999456000E+89 123.999999999999999999456E+89 -> 0
    292 dqcom481 compare 123.99999999999999999945600E-89 123.999999999999999999456E-89 -> 0
    293 dqcom482 compare 123.9999999999999999994560E+89 123.999999999999999999456E+89 -> 0
    294 dqcom483 compare 123.999999999999999999456E-89 123.999999999999999999456E-89 -> 0
    295 dqcom487 compare 123.999999999999999999456E+89 123.9999999999999999994560000000000E+89 -> 0
    296 dqcom488 compare 123.999999999999999999456E-89 123.999999999999999999456000000000E-89 -> 0
    297 dqcom489 compare 123.999999999999999999456E+89 123.99999999999999999945600000000E+89 -> 0
    298 dqcom490 compare 123.999999999999999999456E-89 123.9999999999999999994560000000E-89 -> 0
    299 dqcom491 compare 123.999999999999999999456E+89 123.999999999999999999456000000E+89 -> 0
    300 dqcom492 compare 123.999999999999999999456E-89 123.99999999999999999945600000E-89 -> 0
    301 dqcom493 compare 123.999999999999999999456E+89 123.9999999999999999994560000E+89 -> 0
    302 dqcom494 compare 123.999999999999999999456E-89 123.999999999999999999456000E-89 -> 0
    303 dqcom495 compare 123.999999999999999999456E+89 123.99999999999999999945600E+89 -> 0
    304 dqcom496 compare 123.999999999999999999456E-89 123.9999999999999999994560E-89 -> 0
    305 dqcom497 compare 123.999999999999999999456E+89 123.999999999999999999456E+89 -> 0
    306 
    307 -- wide-ranging, around precision; signs equal
    308 dqcom500 compare    1     1E-15    -> 1
    309 dqcom501 compare    1     1E-14    -> 1
    310 dqcom502 compare    1     1E-13    -> 1
    311 dqcom503 compare    1     1E-12    -> 1
    312 dqcom504 compare    1     1E-11    -> 1
    313 dqcom505 compare    1     1E-10    -> 1
    314 dqcom506 compare    1     1E-9     -> 1
    315 dqcom507 compare    1     1E-8     -> 1
    316 dqcom508 compare    1     1E-7     -> 1
    317 dqcom509 compare    1     1E-6     -> 1
    318 dqcom510 compare    1     1E-5     -> 1
    319 dqcom511 compare    1     1E-4     -> 1
    320 dqcom512 compare    1     1E-3     -> 1
    321 dqcom513 compare    1     1E-2     -> 1
    322 dqcom514 compare    1     1E-1     -> 1
    323 dqcom515 compare    1     1E-0     -> 0
    324 dqcom516 compare    1     1E+1     -> -1
    325 dqcom517 compare    1     1E+2     -> -1
    326 dqcom518 compare    1     1E+3     -> -1
    327 dqcom519 compare    1     1E+4     -> -1
    328 dqcom521 compare    1     1E+5     -> -1
    329 dqcom522 compare    1     1E+6     -> -1
    330 dqcom523 compare    1     1E+7     -> -1
    331 dqcom524 compare    1     1E+8     -> -1
    332 dqcom525 compare    1     1E+9     -> -1
    333 dqcom526 compare    1     1E+10    -> -1
    334 dqcom527 compare    1     1E+11    -> -1
    335 dqcom528 compare    1     1E+12    -> -1
    336 dqcom529 compare    1     1E+13    -> -1
    337 dqcom530 compare    1     1E+14    -> -1
    338 dqcom531 compare    1     1E+15    -> -1
    339 -- LR swap
    340 dqcom540 compare    1E-15  1       -> -1
    341 dqcom541 compare    1E-14  1       -> -1
    342 dqcom542 compare    1E-13  1       -> -1
    343 dqcom543 compare    1E-12  1       -> -1
    344 dqcom544 compare    1E-11  1       -> -1
    345 dqcom545 compare    1E-10  1       -> -1
    346 dqcom546 compare    1E-9   1       -> -1
    347 dqcom547 compare    1E-8   1       -> -1
    348 dqcom548 compare    1E-7   1       -> -1
    349 dqcom549 compare    1E-6   1       -> -1
    350 dqcom550 compare    1E-5   1       -> -1
    351 dqcom551 compare    1E-4   1       -> -1
    352 dqcom552 compare    1E-3   1       -> -1
    353 dqcom553 compare    1E-2   1       -> -1
    354 dqcom554 compare    1E-1   1       -> -1
    355 dqcom555 compare    1E-0   1       ->  0
    356 dqcom556 compare    1E+1   1       ->  1
    357 dqcom557 compare    1E+2   1       ->  1
    358 dqcom558 compare    1E+3   1       ->  1
    359 dqcom559 compare    1E+4   1       ->  1
    360 dqcom561 compare    1E+5   1       ->  1
    361 dqcom562 compare    1E+6   1       ->  1
    362 dqcom563 compare    1E+7   1       ->  1
    363 dqcom564 compare    1E+8   1       ->  1
    364 dqcom565 compare    1E+9   1       ->  1
    365 dqcom566 compare    1E+10  1       ->  1
    366 dqcom567 compare    1E+11  1       ->  1
    367 dqcom568 compare    1E+12  1       ->  1
    368 dqcom569 compare    1E+13  1       ->  1
    369 dqcom570 compare    1E+14  1       ->  1
    370 dqcom571 compare    1E+15  1       ->  1
    371 -- similar with a useful coefficient, one side only
    372 dqcom580 compare  0.000000987654321     1E-15    -> 1
    373 dqcom581 compare  0.000000987654321     1E-14    -> 1
    374 dqcom582 compare  0.000000987654321     1E-13    -> 1
    375 dqcom583 compare  0.000000987654321     1E-12    -> 1
    376 dqcom584 compare  0.000000987654321     1E-11    -> 1
    377 dqcom585 compare  0.000000987654321     1E-10    -> 1
    378 dqcom586 compare  0.000000987654321     1E-9     -> 1
    379 dqcom587 compare  0.000000987654321     1E-8     -> 1
    380 dqcom588 compare  0.000000987654321     1E-7     -> 1
    381 dqcom589 compare  0.000000987654321     1E-6     -> -1
    382 dqcom590 compare  0.000000987654321     1E-5     -> -1
    383 dqcom591 compare  0.000000987654321     1E-4     -> -1
    384 dqcom592 compare  0.000000987654321     1E-3     -> -1
    385 dqcom593 compare  0.000000987654321     1E-2     -> -1
    386 dqcom594 compare  0.000000987654321     1E-1     -> -1
    387 dqcom595 compare  0.000000987654321     1E-0     -> -1
    388 dqcom596 compare  0.000000987654321     1E+1     -> -1
    389 dqcom597 compare  0.000000987654321     1E+2     -> -1
    390 dqcom598 compare  0.000000987654321     1E+3     -> -1
    391 dqcom599 compare  0.000000987654321     1E+4     -> -1
    392 
    393 -- check some unit-y traps
    394 dqcom600 compare   12            12.2345 -> -1
    395 dqcom601 compare   12.0          12.2345 -> -1
    396 dqcom602 compare   12.00         12.2345 -> -1
    397 dqcom603 compare   12.000        12.2345 -> -1
    398 dqcom604 compare   12.0000       12.2345 -> -1
    399 dqcom605 compare   12.00000      12.2345 -> -1
    400 dqcom606 compare   12.000000     12.2345 -> -1
    401 dqcom607 compare   12.0000000    12.2345 -> -1
    402 dqcom608 compare   12.00000000   12.2345 -> -1
    403 dqcom609 compare   12.000000000  12.2345 -> -1
    404 dqcom610 compare   12.1234 12            ->  1
    405 dqcom611 compare   12.1234 12.0          ->  1
    406 dqcom612 compare   12.1234 12.00         ->  1
    407 dqcom613 compare   12.1234 12.000        ->  1
    408 dqcom614 compare   12.1234 12.0000       ->  1
    409 dqcom615 compare   12.1234 12.00000      ->  1
    410 dqcom616 compare   12.1234 12.000000     ->  1
    411 dqcom617 compare   12.1234 12.0000000    ->  1
    412 dqcom618 compare   12.1234 12.00000000   ->  1
    413 dqcom619 compare   12.1234 12.000000000  ->  1
    414 dqcom620 compare  -12           -12.2345 ->  1
    415 dqcom621 compare  -12.0         -12.2345 ->  1
    416 dqcom622 compare  -12.00        -12.2345 ->  1
    417 dqcom623 compare  -12.000       -12.2345 ->  1
    418 dqcom624 compare  -12.0000      -12.2345 ->  1
    419 dqcom625 compare  -12.00000     -12.2345 ->  1
    420 dqcom626 compare  -12.000000    -12.2345 ->  1
    421 dqcom627 compare  -12.0000000   -12.2345 ->  1
    422 dqcom628 compare  -12.00000000  -12.2345 ->  1
    423 dqcom629 compare  -12.000000000 -12.2345 ->  1
    424 dqcom630 compare  -12.1234 -12           -> -1
    425 dqcom631 compare  -12.1234 -12.0         -> -1
    426 dqcom632 compare  -12.1234 -12.00        -> -1
    427 dqcom633 compare  -12.1234 -12.000       -> -1
    428 dqcom634 compare  -12.1234 -12.0000      -> -1
    429 dqcom635 compare  -12.1234 -12.00000     -> -1
    430 dqcom636 compare  -12.1234 -12.000000    -> -1
    431 dqcom637 compare  -12.1234 -12.0000000   -> -1
    432 dqcom638 compare  -12.1234 -12.00000000  -> -1
    433 dqcom639 compare  -12.1234 -12.000000000 -> -1
    434 
    435 -- extended zeros
    436 dqcom640 compare   0     0   -> 0
    437 dqcom641 compare   0    -0   -> 0
    438 dqcom642 compare   0    -0.0 -> 0
    439 dqcom643 compare   0     0.0 -> 0
    440 dqcom644 compare  -0     0   -> 0
    441 dqcom645 compare  -0    -0   -> 0
    442 dqcom646 compare  -0    -0.0 -> 0
    443 dqcom647 compare  -0     0.0 -> 0
    444 dqcom648 compare   0.0   0   -> 0
    445 dqcom649 compare   0.0  -0   -> 0
    446 dqcom650 compare   0.0  -0.0 -> 0
    447 dqcom651 compare   0.0   0.0 -> 0
    448 dqcom652 compare  -0.0   0   -> 0
    449 dqcom653 compare  -0.0  -0   -> 0
    450 dqcom654 compare  -0.0  -0.0 -> 0
    451 dqcom655 compare  -0.0   0.0 -> 0
    452 
    453 dqcom656 compare  -0E1   0.0 -> 0
    454 dqcom657 compare  -0E2   0.0 -> 0
    455 dqcom658 compare   0E1   0.0 -> 0
    456 dqcom659 compare   0E2   0.0 -> 0
    457 dqcom660 compare  -0E1   0   -> 0
    458 dqcom661 compare  -0E2   0   -> 0
    459 dqcom662 compare   0E1   0   -> 0
    460 dqcom663 compare   0E2   0   -> 0
    461 dqcom664 compare  -0E1  -0E1 -> 0
    462 dqcom665 compare  -0E2  -0E1 -> 0
    463 dqcom666 compare   0E1  -0E1 -> 0
    464 dqcom667 compare   0E2  -0E1 -> 0
    465 dqcom668 compare  -0E1  -0E2 -> 0
    466 dqcom669 compare  -0E2  -0E2 -> 0
    467 dqcom670 compare   0E1  -0E2 -> 0
    468 dqcom671 compare   0E2  -0E2 -> 0
    469 dqcom672 compare  -0E1   0E1 -> 0
    470 dqcom673 compare  -0E2   0E1 -> 0
    471 dqcom674 compare   0E1   0E1 -> 0
    472 dqcom675 compare   0E2   0E1 -> 0
    473 dqcom676 compare  -0E1   0E2 -> 0
    474 dqcom677 compare  -0E2   0E2 -> 0
    475 dqcom678 compare   0E1   0E2 -> 0
    476 dqcom679 compare   0E2   0E2 -> 0
    477 
    478 -- trailing zeros; unit-y
    479 dqcom680 compare   12    12           -> 0
    480 dqcom681 compare   12    12.0         -> 0
    481 dqcom682 compare   12    12.00        -> 0
    482 dqcom683 compare   12    12.000       -> 0
    483 dqcom684 compare   12    12.0000      -> 0
    484 dqcom685 compare   12    12.00000     -> 0
    485 dqcom686 compare   12    12.000000    -> 0
    486 dqcom687 compare   12    12.0000000   -> 0
    487 dqcom688 compare   12    12.00000000  -> 0
    488 dqcom689 compare   12    12.000000000 -> 0
    489 dqcom690 compare   12              12 -> 0
    490 dqcom691 compare   12.0            12 -> 0
    491 dqcom692 compare   12.00           12 -> 0
    492 dqcom693 compare   12.000          12 -> 0
    493 dqcom694 compare   12.0000         12 -> 0
    494 dqcom695 compare   12.00000        12 -> 0
    495 dqcom696 compare   12.000000       12 -> 0
    496 dqcom697 compare   12.0000000      12 -> 0
    497 dqcom698 compare   12.00000000     12 -> 0
    498 dqcom699 compare   12.000000000    12 -> 0
    499 
    500 -- first, second, & last digit
    501 dqcom700 compare   1234567899999999999999999990123456 1234567899999999999999999990123455 -> 1
    502 dqcom701 compare   1234567899999999999999999990123456 1234567899999999999999999990123456 -> 0
    503 dqcom702 compare   1234567899999999999999999990123456 1234567899999999999999999990123457 -> -1
    504 dqcom703 compare   1234567899999999999999999990123456 0234567899999999999999999990123456 -> 1
    505 dqcom704 compare   1234567899999999999999999990123456 1234567899999999999999999990123456 -> 0
    506 dqcom705 compare   1234567899999999999999999990123456 2234567899999999999999999990123456 -> -1
    507 dqcom706 compare   1134567899999999999999999990123456 1034567899999999999999999990123456 -> 1
    508 dqcom707 compare   1134567899999999999999999990123456 1134567899999999999999999990123456 -> 0
    509 dqcom708 compare   1134567899999999999999999990123456 1234567899999999999999999990123456 -> -1
    510 
    511 -- miscellaneous
    512 dqcom721 compare 12345678000 1 -> 1
    513 dqcom722 compare 1 12345678000 -> -1
    514 dqcom723 compare 1234567800  1 -> 1
    515 dqcom724 compare 1 1234567800  -> -1
    516 dqcom725 compare 1234567890  1 -> 1
    517 dqcom726 compare 1 1234567890  -> -1
    518 dqcom727 compare 1234567891  1 -> 1
    519 dqcom728 compare 1 1234567891  -> -1
    520 dqcom729 compare 12345678901 1 -> 1
    521 dqcom730 compare 1 12345678901 -> -1
    522 dqcom731 compare 1234567896  1 -> 1
    523 dqcom732 compare 1 1234567896  -> -1
    524 
    525 -- residue cases at lower precision
    526 dqcom740 compare  1  0.9999999  -> 1
    527 dqcom741 compare  1  0.999999   -> 1
    528 dqcom742 compare  1  0.99999    -> 1
    529 dqcom743 compare  1  1.0000     -> 0
    530 dqcom744 compare  1  1.00001    -> -1
    531 dqcom745 compare  1  1.000001   -> -1
    532 dqcom746 compare  1  1.0000001  -> -1
    533 dqcom750 compare  0.9999999  1  -> -1
    534 dqcom751 compare  0.999999   1  -> -1
    535 dqcom752 compare  0.99999    1  -> -1
    536 dqcom753 compare  1.0000     1  -> 0
    537 dqcom754 compare  1.00001    1  -> 1
    538 dqcom755 compare  1.000001   1  -> 1
    539 dqcom756 compare  1.0000001  1  -> 1
    540 
    541 -- Specials
    542 dqcom780 compare  Inf  -Inf   ->  1
    543 dqcom781 compare  Inf  -1000  ->  1
    544 dqcom782 compare  Inf  -1     ->  1
    545 dqcom783 compare  Inf  -0     ->  1
    546 dqcom784 compare  Inf   0     ->  1
    547 dqcom785 compare  Inf   1     ->  1
    548 dqcom786 compare  Inf   1000  ->  1
    549 dqcom787 compare  Inf   Inf   ->  0
    550 dqcom788 compare -1000  Inf   -> -1
    551 dqcom789 compare -Inf   Inf   -> -1
    552 dqcom790 compare -1     Inf   -> -1
    553 dqcom791 compare -0     Inf   -> -1
    554 dqcom792 compare  0     Inf   -> -1
    555 dqcom793 compare  1     Inf   -> -1
    556 dqcom794 compare  1000  Inf   -> -1
    557 dqcom795 compare  Inf   Inf   ->  0
    558 
    559 dqcom800 compare -Inf  -Inf   ->  0
    560 dqcom801 compare -Inf  -1000  -> -1
    561 dqcom802 compare -Inf  -1     -> -1
    562 dqcom803 compare -Inf  -0     -> -1
    563 dqcom804 compare -Inf   0     -> -1
    564 dqcom805 compare -Inf   1     -> -1
    565 dqcom806 compare -Inf   1000  -> -1
    566 dqcom807 compare -Inf   Inf   -> -1
    567 dqcom808 compare -Inf  -Inf   ->  0
    568 dqcom809 compare -1000 -Inf   ->  1
    569 dqcom810 compare -1    -Inf   ->  1
    570 dqcom811 compare -0    -Inf   ->  1
    571 dqcom812 compare  0    -Inf   ->  1
    572 dqcom813 compare  1    -Inf   ->  1
    573 dqcom814 compare  1000 -Inf   ->  1
    574 dqcom815 compare  Inf  -Inf   ->  1
    575 
    576 dqcom821 compare  NaN -Inf    ->  NaN
    577 dqcom822 compare  NaN -1000   ->  NaN
    578 dqcom823 compare  NaN -1      ->  NaN
    579 dqcom824 compare  NaN -0      ->  NaN
    580 dqcom825 compare  NaN  0      ->  NaN
    581 dqcom826 compare  NaN  1      ->  NaN
    582 dqcom827 compare  NaN  1000   ->  NaN
    583 dqcom828 compare  NaN  Inf    ->  NaN
    584 dqcom829 compare  NaN  NaN    ->  NaN
    585 dqcom830 compare -Inf  NaN    ->  NaN
    586 dqcom831 compare -1000 NaN    ->  NaN
    587 dqcom832 compare -1    NaN    ->  NaN
    588 dqcom833 compare -0    NaN    ->  NaN
    589 dqcom834 compare  0    NaN    ->  NaN
    590 dqcom835 compare  1    NaN    ->  NaN
    591 dqcom836 compare  1000 NaN    ->  NaN
    592 dqcom837 compare  Inf  NaN    ->  NaN
    593 dqcom838 compare -NaN -NaN    -> -NaN
    594 dqcom839 compare +NaN -NaN    ->  NaN
    595 dqcom840 compare -NaN +NaN    -> -NaN
    596 
    597 dqcom841 compare  sNaN -Inf   ->  NaN  Invalid_operation
    598 dqcom842 compare  sNaN -1000  ->  NaN  Invalid_operation
    599 dqcom843 compare  sNaN -1     ->  NaN  Invalid_operation
    600 dqcom844 compare  sNaN -0     ->  NaN  Invalid_operation
    601 dqcom845 compare  sNaN  0     ->  NaN  Invalid_operation
    602 dqcom846 compare  sNaN  1     ->  NaN  Invalid_operation
    603 dqcom847 compare  sNaN  1000  ->  NaN  Invalid_operation
    604 dqcom848 compare  sNaN  NaN   ->  NaN  Invalid_operation
    605 dqcom849 compare  sNaN sNaN   ->  NaN  Invalid_operation
    606 dqcom850 compare  NaN  sNaN   ->  NaN  Invalid_operation
    607 dqcom851 compare -Inf  sNaN   ->  NaN  Invalid_operation
    608 dqcom852 compare -1000 sNaN   ->  NaN  Invalid_operation
    609 dqcom853 compare -1    sNaN   ->  NaN  Invalid_operation
    610 dqcom854 compare -0    sNaN   ->  NaN  Invalid_operation
    611 dqcom855 compare  0    sNaN   ->  NaN  Invalid_operation
    612 dqcom856 compare  1    sNaN   ->  NaN  Invalid_operation
    613 dqcom857 compare  1000 sNaN   ->  NaN  Invalid_operation
    614 dqcom858 compare  Inf  sNaN   ->  NaN  Invalid_operation
    615 dqcom859 compare  NaN  sNaN   ->  NaN  Invalid_operation
    616 
    617 -- propagating NaNs
    618 dqcom860 compare  NaN9 -Inf   ->  NaN9
    619 dqcom861 compare  NaN8  999   ->  NaN8
    620 dqcom862 compare  NaN77 Inf   ->  NaN77
    621 dqcom863 compare -NaN67 NaN5  -> -NaN67
    622 dqcom864 compare -Inf  -NaN4  -> -NaN4
    623 dqcom865 compare -999  -NaN33 -> -NaN33
    624 dqcom866 compare  Inf   NaN2  ->  NaN2
    625 dqcom867 compare -NaN41 -NaN42 -> -NaN41
    626 dqcom868 compare +NaN41 -NaN42 ->  NaN41
    627 dqcom869 compare -NaN41 +NaN42 -> -NaN41
    628 dqcom870 compare +NaN41 +NaN42 ->  NaN41
    629 
    630 dqcom871 compare -sNaN99 -Inf    -> -NaN99 Invalid_operation
    631 dqcom872 compare  sNaN98 -11     ->  NaN98 Invalid_operation
    632 dqcom873 compare  sNaN97  NaN    ->  NaN97 Invalid_operation
    633 dqcom874 compare  sNaN16 sNaN94  ->  NaN16 Invalid_operation
    634 dqcom875 compare  NaN85  sNaN83  ->  NaN83 Invalid_operation
    635 dqcom876 compare -Inf    sNaN92  ->  NaN92 Invalid_operation
    636 dqcom877 compare  088    sNaN81  ->  NaN81 Invalid_operation
    637 dqcom878 compare  Inf    sNaN90  ->  NaN90 Invalid_operation
    638 dqcom879 compare  NaN   -sNaN89  -> -NaN89 Invalid_operation
    639 
    640 -- wide range
    641 dqcom880 compare +1.23456789012345E-0 9E+6144 -> -1
    642 dqcom881 compare 9E+6144 +1.23456789012345E-0 ->  1
    643 dqcom882 compare +0.100 9E-6143               ->  1
    644 dqcom883 compare 9E-6143 +0.100               -> -1
    645 dqcom885 compare -1.23456789012345E-0 9E+6144 -> -1
    646 dqcom886 compare 9E+6144 -1.23456789012345E-0 ->  1
    647 dqcom887 compare -0.100 9E-6143               -> -1
    648 dqcom888 compare 9E-6143 -0.100               ->  1
    649 
    650 -- signs
    651 dqcom901 compare  1e+77  1e+11 ->  1
    652 dqcom902 compare  1e+77 -1e+11 ->  1
    653 dqcom903 compare -1e+77  1e+11 -> -1
    654 dqcom904 compare -1e+77 -1e+11 -> -1
    655 dqcom905 compare  1e-77  1e-11 -> -1
    656 dqcom906 compare  1e-77 -1e-11 ->  1
    657 dqcom907 compare -1e-77  1e-11 -> -1
    658 dqcom908 compare -1e-77 -1e-11 ->  1
    659 
    660 -- full alignment range, both ways
    661 dqcomp1001 compare 1 1.000000000000000000000000000000000  -> 0
    662 dqcomp1002 compare 1 1.00000000000000000000000000000000   -> 0
    663 dqcomp1003 compare 1 1.0000000000000000000000000000000    -> 0
    664 dqcomp1004 compare 1 1.000000000000000000000000000000     -> 0
    665 dqcomp1005 compare 1 1.00000000000000000000000000000      -> 0
    666 dqcomp1006 compare 1 1.0000000000000000000000000000       -> 0
    667 dqcomp1007 compare 1 1.000000000000000000000000000        -> 0
    668 dqcomp1008 compare 1 1.00000000000000000000000000         -> 0
    669 dqcomp1009 compare 1 1.0000000000000000000000000          -> 0
    670 dqcomp1010 compare 1 1.000000000000000000000000           -> 0
    671 dqcomp1011 compare 1 1.00000000000000000000000            -> 0
    672 dqcomp1012 compare 1 1.0000000000000000000000             -> 0
    673 dqcomp1013 compare 1 1.000000000000000000000              -> 0
    674 dqcomp1014 compare 1 1.00000000000000000000               -> 0
    675 dqcomp1015 compare 1 1.0000000000000000000                -> 0
    676 dqcomp1016 compare 1 1.000000000000000000                 -> 0
    677 dqcomp1017 compare 1 1.00000000000000000                  -> 0
    678 dqcomp1018 compare 1 1.0000000000000000                   -> 0
    679 dqcomp1019 compare 1 1.000000000000000  -> 0
    680 dqcomp1020 compare 1 1.00000000000000   -> 0
    681 dqcomp1021 compare 1 1.0000000000000    -> 0
    682 dqcomp1022 compare 1 1.000000000000     -> 0
    683 dqcomp1023 compare 1 1.00000000000      -> 0
    684 dqcomp1024 compare 1 1.0000000000       -> 0
    685 dqcomp1025 compare 1 1.000000000        -> 0
    686 dqcomp1026 compare 1 1.00000000         -> 0
    687 dqcomp1027 compare 1 1.0000000          -> 0
    688 dqcomp1028 compare 1 1.000000           -> 0
    689 dqcomp1029 compare 1 1.00000            -> 0
    690 dqcomp1030 compare 1 1.0000             -> 0
    691 dqcomp1031 compare 1 1.000              -> 0
    692 dqcomp1032 compare 1 1.00               -> 0
    693 dqcomp1033 compare 1 1.0                -> 0
    694 
    695 dqcomp1041 compare 1.000000000000000000000000000000000  1 -> 0
    696 dqcomp1042 compare 1.00000000000000000000000000000000   1 -> 0
    697 dqcomp1043 compare 1.0000000000000000000000000000000    1 -> 0
    698 dqcomp1044 compare 1.000000000000000000000000000000     1 -> 0
    699 dqcomp1045 compare 1.00000000000000000000000000000      1 -> 0
    700 dqcomp1046 compare 1.0000000000000000000000000000       1 -> 0
    701 dqcomp1047 compare 1.000000000000000000000000000        1 -> 0
    702 dqcomp1048 compare 1.00000000000000000000000000         1 -> 0
    703 dqcomp1049 compare 1.0000000000000000000000000          1 -> 0
    704 dqcomp1050 compare 1.000000000000000000000000           1 -> 0
    705 dqcomp1051 compare 1.00000000000000000000000            1 -> 0
    706 dqcomp1052 compare 1.0000000000000000000000             1 -> 0
    707 dqcomp1053 compare 1.000000000000000000000              1 -> 0
    708 dqcomp1054 compare 1.00000000000000000000               1 -> 0
    709 dqcomp1055 compare 1.0000000000000000000                1 -> 0
    710 dqcomp1056 compare 1.000000000000000000                 1 -> 0
    711 dqcomp1057 compare 1.00000000000000000                  1 -> 0
    712 dqcomp1058 compare 1.0000000000000000                   1 -> 0
    713 dqcomp1059 compare 1.000000000000000  1 -> 0
    714 dqcomp1060 compare 1.00000000000000   1 -> 0
    715 dqcomp1061 compare 1.0000000000000    1 -> 0
    716 dqcomp1062 compare 1.000000000000     1 -> 0
    717 dqcomp1063 compare 1.00000000000      1 -> 0
    718 dqcomp1064 compare 1.0000000000       1 -> 0
    719 dqcomp1065 compare 1.000000000        1 -> 0
    720 dqcomp1066 compare 1.00000000         1 -> 0
    721 dqcomp1067 compare 1.0000000          1 -> 0
    722 dqcomp1068 compare 1.000000           1 -> 0
    723 dqcomp1069 compare 1.00000            1 -> 0
    724 dqcomp1070 compare 1.0000             1 -> 0
    725 dqcomp1071 compare 1.000              1 -> 0
    726 dqcomp1072 compare 1.00               1 -> 0
    727 dqcomp1073 compare 1.0                1 -> 0
    728 
    729 -- check MSD always detected non-zero
    730 dqcomp1080 compare 0 0.000000000000000000000000000000000  -> 0
    731 dqcomp1081 compare 0 1.000000000000000000000000000000000  -> -1
    732 dqcomp1082 compare 0 2.000000000000000000000000000000000  -> -1
    733 dqcomp1083 compare 0 3.000000000000000000000000000000000  -> -1
    734 dqcomp1084 compare 0 4.000000000000000000000000000000000  -> -1
    735 dqcomp1085 compare 0 5.000000000000000000000000000000000  -> -1
    736 dqcomp1086 compare 0 6.000000000000000000000000000000000  -> -1
    737 dqcomp1087 compare 0 7.000000000000000000000000000000000  -> -1
    738 dqcomp1088 compare 0 8.000000000000000000000000000000000  -> -1
    739 dqcomp1089 compare 0 9.000000000000000000000000000000000  -> -1
    740 dqcomp1090 compare 0.000000000000000000000000000000000  0 -> 0
    741 dqcomp1091 compare 1.000000000000000000000000000000000  0 -> 1
    742 dqcomp1092 compare 2.000000000000000000000000000000000  0 -> 1
    743 dqcomp1093 compare 3.000000000000000000000000000000000  0 -> 1
    744 dqcomp1094 compare 4.000000000000000000000000000000000  0 -> 1
    745 dqcomp1095 compare 5.000000000000000000000000000000000  0 -> 1
    746 dqcomp1096 compare 6.000000000000000000000000000000000  0 -> 1
    747 dqcomp1097 compare 7.000000000000000000000000000000000  0 -> 1
    748 dqcomp1098 compare 8.000000000000000000000000000000000  0 -> 1
    749 dqcomp1099 compare 9.000000000000000000000000000000000  0 -> 1
    750 
    751 -- Null tests
    752 dqcom990 compare 10  # -> NaN Invalid_operation
    753 dqcom991 compare  # 10 -> NaN Invalid_operation
    754