------------------------------------------------------------------------

-- ddXor.decTest -- digitwise logical XOR for decDoubles              --

-- 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.58



precision:   16

maxExponent: 384

minExponent: -383

extended:    1

clamp:       1

rounding:    half_even



-- Sanity check (truth table)

ddxor001 xor             0    0 ->    0

ddxor002 xor             0    1 ->    1

ddxor003 xor             1    0 ->    1

ddxor004 xor             1    1 ->    0

ddxor005 xor          1100 1010 ->  110

-- and at msd and msd-1

ddxor006 xor 0000000000000000 0000000000000000 ->           0

ddxor007 xor 0000000000000000 1000000000000000 ->   1000000000000000

ddxor008 xor 1000000000000000 0000000000000000 ->   1000000000000000

ddxor009 xor 1000000000000000 1000000000000000 ->           0

ddxor010 xor 0000000000000000 0000000000000000 ->           0

ddxor011 xor 0000000000000000 0100000000000000 ->    100000000000000

ddxor012 xor 0100000000000000 0000000000000000 ->    100000000000000

ddxor013 xor 0100000000000000 0100000000000000 ->           0



-- Various lengths

--          1234567890123456     1234567890123456 1234567890123456

ddxor021 xor 1111111110000000     1111111110000000  ->  0

ddxor022 xor  111111110000000      111111110000000  ->  0

ddxor023 xor   11111110000000       11111110000000  ->  0

ddxor024 xor    1111110000000        1111110000000  ->  0

ddxor025 xor     111110000000         111110000000  ->  0

ddxor026 xor      11110000000          11110000000  ->  0

ddxor027 xor       1110000000           1110000000  ->  0

ddxor028 xor        110000000            110000000  ->  0

ddxor029 xor         10000000             10000000  ->  0

ddxor030 xor          1000000              1000000  ->  0

ddxor031 xor           100000               100000  ->  0

ddxor032 xor            10000                10000  ->  0

ddxor033 xor             1000                 1000  ->  0

ddxor034 xor              100                  100  ->  0

ddxor035 xor               10                   10  ->  0

ddxor036 xor                1                    1  ->  0



ddxor040 xor 111111111  111111111111  ->  111000000000

ddxor041 xor  11111111  111111111111  ->  111100000000

ddxor042 xor  11111111     111111111  ->  100000000

ddxor043 xor   1111111     100000010  ->  101111101

ddxor044 xor    111111     100000100  ->  100111011

ddxor045 xor     11111     100001000  ->  100010111

ddxor046 xor      1111     100010000  ->  100011111

ddxor047 xor       111     100100000  ->  100100111

ddxor048 xor        11     101000000  ->  101000011

ddxor049 xor         1     110000000  ->  110000001



ddxor050 xor 1111111111  1  ->  1111111110

ddxor051 xor  111111111  1  ->  111111110

ddxor052 xor   11111111  1  ->  11111110

ddxor053 xor    1111111  1  ->  1111110

ddxor054 xor     111111  1  ->  111110

ddxor055 xor      11111  1  ->  11110

ddxor056 xor       1111  1  ->  1110

ddxor057 xor        111  1  ->  110

ddxor058 xor         11  1  ->  10

ddxor059 xor          1  1  ->  0



ddxor060 xor 1111111111  0  ->  1111111111

ddxor061 xor  111111111  0  ->  111111111

ddxor062 xor   11111111  0  ->  11111111

ddxor063 xor    1111111  0  ->  1111111

ddxor064 xor     111111  0  ->  111111

ddxor065 xor      11111  0  ->  11111

ddxor066 xor       1111  0  ->  1111

ddxor067 xor        111  0  ->  111

ddxor068 xor         11  0  ->  11

ddxor069 xor          1  0  ->  1



ddxor070 xor 1  1111111111  ->  1111111110

ddxor071 xor 1   111111111  ->  111111110

ddxor072 xor 1    11111111  ->  11111110

ddxor073 xor 1     1111111  ->  1111110

ddxor074 xor 1      111111  ->  111110

ddxor075 xor 1       11111  ->  11110

ddxor076 xor 1        1111  ->  1110

ddxor077 xor 1         111  ->  110

ddxor078 xor 1          11  ->  10

ddxor079 xor 1           1  ->  0



ddxor080 xor 0  1111111111  ->  1111111111

ddxor081 xor 0   111111111  ->  111111111

ddxor082 xor 0    11111111  ->  11111111

ddxor083 xor 0     1111111  ->  1111111

ddxor084 xor 0      111111  ->  111111

ddxor085 xor 0       11111  ->  11111

ddxor086 xor 0        1111  ->  1111

ddxor087 xor 0         111  ->  111

ddxor088 xor 0          11  ->  11

ddxor089 xor 0           1  ->  1



ddxor090 xor 011111111  111101111  ->  100010000

ddxor091 xor 101111111  111101111  ->   10010000

ddxor092 xor 110111111  111101111  ->    1010000

ddxor093 xor 111011111  111101111  ->     110000

ddxor094 xor 111101111  111101111  ->          0

ddxor095 xor 111110111  111101111  ->      11000

ddxor096 xor 111111011  111101111  ->      10100

ddxor097 xor 111111101  111101111  ->      10010

ddxor098 xor 111111110  111101111  ->      10001



ddxor100 xor 111101111  011111111  ->  100010000

ddxor101 xor 111101111  101111111  ->   10010000

ddxor102 xor 111101111  110111111  ->    1010000

ddxor103 xor 111101111  111011111  ->     110000

ddxor104 xor 111101111  111101111  ->          0

ddxor105 xor 111101111  111110111  ->      11000

ddxor106 xor 111101111  111111011  ->      10100

ddxor107 xor 111101111  111111101  ->      10010

ddxor108 xor 111101111  111111110  ->      10001



-- non-0/1 should not be accepted, nor should signs

ddxor220 xor 111111112  111111111  ->  NaN Invalid_operation

ddxor221 xor 333333333  333333333  ->  NaN Invalid_operation

ddxor222 xor 555555555  555555555  ->  NaN Invalid_operation

ddxor223 xor 777777777  777777777  ->  NaN Invalid_operation

ddxor224 xor 999999999  999999999  ->  NaN Invalid_operation

ddxor225 xor 222222222  999999999  ->  NaN Invalid_operation

ddxor226 xor 444444444  999999999  ->  NaN Invalid_operation

ddxor227 xor 666666666  999999999  ->  NaN Invalid_operation

ddxor228 xor 888888888  999999999  ->  NaN Invalid_operation

ddxor229 xor 999999999  222222222  ->  NaN Invalid_operation

ddxor230 xor 999999999  444444444  ->  NaN Invalid_operation

ddxor231 xor 999999999  666666666  ->  NaN Invalid_operation

ddxor232 xor 999999999  888888888  ->  NaN Invalid_operation

-- a few randoms

ddxor240 xor  567468689 -934981942 ->  NaN Invalid_operation

ddxor241 xor  567367689  934981942 ->  NaN Invalid_operation

ddxor242 xor -631917772 -706014634 ->  NaN Invalid_operation

ddxor243 xor -756253257  138579234 ->  NaN Invalid_operation

ddxor244 xor  835590149  567435400 ->  NaN Invalid_operation

-- test MSD

ddxor250 xor  2000000000000000 1000000000000000 ->  NaN Invalid_operation

ddxor251 xor  7000000000000000 1000000000000000 ->  NaN Invalid_operation

ddxor252 xor  8000000000000000 1000000000000000 ->  NaN Invalid_operation

ddxor253 xor  9000000000000000 1000000000000000 ->  NaN Invalid_operation

ddxor254 xor  2000000000000000 0000000000000000 ->  NaN Invalid_operation

ddxor255 xor  7000000000000000 0000000000000000 ->  NaN Invalid_operation

ddxor256 xor  8000000000000000 0000000000000000 ->  NaN Invalid_operation

ddxor257 xor  9000000000000000 0000000000000000 ->  NaN Invalid_operation

ddxor258 xor  1000000000000000 2000000000000000 ->  NaN Invalid_operation

ddxor259 xor  1000000000000000 7000000000000000 ->  NaN Invalid_operation

ddxor260 xor  1000000000000000 8000000000000000 ->  NaN Invalid_operation

ddxor261 xor  1000000000000000 9000000000000000 ->  NaN Invalid_operation

ddxor262 xor  0000000000000000 2000000000000000 ->  NaN Invalid_operation

ddxor263 xor  0000000000000000 7000000000000000 ->  NaN Invalid_operation

ddxor264 xor  0000000000000000 8000000000000000 ->  NaN Invalid_operation

ddxor265 xor  0000000000000000 9000000000000000 ->  NaN Invalid_operation

-- test MSD-1

ddxor270 xor  0200001000000000 1000100000000010 ->  NaN Invalid_operation

ddxor271 xor  0700000100000000 1000010000000100 ->  NaN Invalid_operation

ddxor272 xor  0800000010000000 1000001000001000 ->  NaN Invalid_operation

ddxor273 xor  0900000001000000 1000000100010000 ->  NaN Invalid_operation

ddxor274 xor  1000000000100000 0200000010100000 ->  NaN Invalid_operation

ddxor275 xor  1000000000010000 0700000001000000 ->  NaN Invalid_operation

ddxor276 xor  1000000000001000 0800000010100000 ->  NaN Invalid_operation

ddxor277 xor  1000000000000100 0900000000010000 ->  NaN Invalid_operation

-- test LSD

ddxor280 xor  0010000000000002 1000000100000001 ->  NaN Invalid_operation

ddxor281 xor  0001000000000007 1000001000000011 ->  NaN Invalid_operation

ddxor282 xor  0000100000000008 1000010000000001 ->  NaN Invalid_operation

ddxor283 xor  0000010000000009 1000100000000001 ->  NaN Invalid_operation

ddxor284 xor  1000001000000000 0001000000000002 ->  NaN Invalid_operation

ddxor285 xor  1000000100000000 0010000000000007 ->  NaN Invalid_operation

ddxor286 xor  1000000010000000 0100000000000008 ->  NaN Invalid_operation

ddxor287 xor  1000000001000000 1000000000000009 ->  NaN Invalid_operation

-- test Middie

ddxor288 xor  0010000020000000 1000001000000000 ->  NaN Invalid_operation

ddxor289 xor  0001000070000001 1000000100000000 ->  NaN Invalid_operation

ddxor290 xor  0000100080000010 1000000010000000 ->  NaN Invalid_operation

ddxor291 xor  0000010090000100 1000000001000000 ->  NaN Invalid_operation

ddxor292 xor  1000001000001000 0000000020100000 ->  NaN Invalid_operation

ddxor293 xor  1000000100010000 0000000070010000 ->  NaN Invalid_operation

ddxor294 xor  1000000010100000 0000000080001000 ->  NaN Invalid_operation

ddxor295 xor  1000000001000000 0000000090000100 ->  NaN Invalid_operation

-- signs

ddxor296 xor -1000000001000000 -0000010000000100 ->  NaN Invalid_operation

ddxor297 xor -1000000001000000  0000000010000100 ->  NaN Invalid_operation

ddxor298 xor  1000000001000000 -0000001000000100 ->  NaN Invalid_operation

ddxor299 xor  1000000001000000  0000000011000100 ->  1000000010000100



-- Nmax, Nmin, Ntiny-like

ddxor331 xor  2   9.99999999E+299     -> NaN Invalid_operation

ddxor332 xor  3   1E-299              -> NaN Invalid_operation

ddxor333 xor  4   1.00000000E-299     -> NaN Invalid_operation

ddxor334 xor  5   1E-200              -> NaN Invalid_operation

ddxor335 xor  6   -1E-200             -> NaN Invalid_operation

ddxor336 xor  7   -1.00000000E-299    -> NaN Invalid_operation

ddxor337 xor  8   -1E-299             -> NaN Invalid_operation

ddxor338 xor  9   -9.99999999E+299    -> NaN Invalid_operation

ddxor341 xor  9.99999999E+299     -18 -> NaN Invalid_operation

ddxor342 xor  1E-299               01 -> NaN Invalid_operation

ddxor343 xor  1.00000000E-299     -18 -> NaN Invalid_operation

ddxor344 xor  1E-208               18 -> NaN Invalid_operation

ddxor345 xor  -1E-207             -10 -> NaN Invalid_operation

ddxor346 xor  -1.00000000E-299     18 -> NaN Invalid_operation

ddxor347 xor  -1E-299              10 -> NaN Invalid_operation

ddxor348 xor  -9.99999999E+299    -18 -> NaN Invalid_operation



-- A few other non-integers

ddxor361 xor  1.0                  1  -> NaN Invalid_operation

ddxor362 xor  1E+1                 1  -> NaN Invalid_operation

ddxor363 xor  0.0                  1  -> NaN Invalid_operation

ddxor364 xor  0E+1                 1  -> NaN Invalid_operation

ddxor365 xor  9.9                  1  -> NaN Invalid_operation

ddxor366 xor  9E+1                 1  -> NaN Invalid_operation

ddxor371 xor  0 1.0                   -> NaN Invalid_operation

ddxor372 xor  0 1E+1                  -> NaN Invalid_operation

ddxor373 xor  0 0.0                   -> NaN Invalid_operation

ddxor374 xor  0 0E+1                  -> NaN Invalid_operation

ddxor375 xor  0 9.9                   -> NaN Invalid_operation

ddxor376 xor  0 9E+1                  -> NaN Invalid_operation



-- All Specials are in error

ddxor780 xor -Inf  -Inf   -> NaN Invalid_operation

ddxor781 xor -Inf  -1000  -> NaN Invalid_operation

ddxor782 xor -Inf  -1     -> NaN Invalid_operation

ddxor783 xor -Inf  -0     -> NaN Invalid_operation

ddxor784 xor -Inf   0     -> NaN Invalid_operation

ddxor785 xor -Inf   1     -> NaN Invalid_operation

ddxor786 xor -Inf   1000  -> NaN Invalid_operation

ddxor787 xor -1000 -Inf   -> NaN Invalid_operation

ddxor788 xor -Inf  -Inf   -> NaN Invalid_operation

ddxor789 xor -1    -Inf   -> NaN Invalid_operation

ddxor790 xor -0    -Inf   -> NaN Invalid_operation

ddxor791 xor  0    -Inf   -> NaN Invalid_operation

ddxor792 xor  1    -Inf   -> NaN Invalid_operation

ddxor793 xor  1000 -Inf   -> NaN Invalid_operation

ddxor794 xor  Inf  -Inf   -> NaN Invalid_operation



ddxor800 xor  Inf  -Inf   -> NaN Invalid_operation

ddxor801 xor  Inf  -1000  -> NaN Invalid_operation

ddxor802 xor  Inf  -1     -> NaN Invalid_operation

ddxor803 xor  Inf  -0     -> NaN Invalid_operation

ddxor804 xor  Inf   0     -> NaN Invalid_operation

ddxor805 xor  Inf   1     -> NaN Invalid_operation

ddxor806 xor  Inf   1000  -> NaN Invalid_operation

ddxor807 xor  Inf   Inf   -> NaN Invalid_operation

ddxor808 xor -1000  Inf   -> NaN Invalid_operation

ddxor809 xor -Inf   Inf   -> NaN Invalid_operation

ddxor810 xor -1     Inf   -> NaN Invalid_operation

ddxor811 xor -0     Inf   -> NaN Invalid_operation

ddxor812 xor  0     Inf   -> NaN Invalid_operation

ddxor813 xor  1     Inf   -> NaN Invalid_operation

ddxor814 xor  1000  Inf   -> NaN Invalid_operation

ddxor815 xor  Inf   Inf   -> NaN Invalid_operation



ddxor821 xor  NaN -Inf    -> NaN Invalid_operation

ddxor822 xor  NaN -1000   -> NaN Invalid_operation

ddxor823 xor  NaN -1      -> NaN Invalid_operation

ddxor824 xor  NaN -0      -> NaN Invalid_operation

ddxor825 xor  NaN  0      -> NaN Invalid_operation

ddxor826 xor  NaN  1      -> NaN Invalid_operation

ddxor827 xor  NaN  1000   -> NaN Invalid_operation

ddxor828 xor  NaN  Inf    -> NaN Invalid_operation

ddxor829 xor  NaN  NaN    -> NaN Invalid_operation

ddxor830 xor -Inf  NaN    -> NaN Invalid_operation

ddxor831 xor -1000 NaN    -> NaN Invalid_operation

ddxor832 xor -1    NaN    -> NaN Invalid_operation

ddxor833 xor -0    NaN    -> NaN Invalid_operation

ddxor834 xor  0    NaN    -> NaN Invalid_operation

ddxor835 xor  1    NaN    -> NaN Invalid_operation

ddxor836 xor  1000 NaN    -> NaN Invalid_operation

ddxor837 xor  Inf  NaN    -> NaN Invalid_operation



ddxor841 xor  sNaN -Inf   ->  NaN  Invalid_operation

ddxor842 xor  sNaN -1000  ->  NaN  Invalid_operation

ddxor843 xor  sNaN -1     ->  NaN  Invalid_operation

ddxor844 xor  sNaN -0     ->  NaN  Invalid_operation

ddxor845 xor  sNaN  0     ->  NaN  Invalid_operation

ddxor846 xor  sNaN  1     ->  NaN  Invalid_operation

ddxor847 xor  sNaN  1000  ->  NaN  Invalid_operation

ddxor848 xor  sNaN  NaN   ->  NaN  Invalid_operation

ddxor849 xor  sNaN sNaN   ->  NaN  Invalid_operation

ddxor850 xor  NaN  sNaN   ->  NaN  Invalid_operation

ddxor851 xor -Inf  sNaN   ->  NaN  Invalid_operation

ddxor852 xor -1000 sNaN   ->  NaN  Invalid_operation

ddxor853 xor -1    sNaN   ->  NaN  Invalid_operation

ddxor854 xor -0    sNaN   ->  NaN  Invalid_operation

ddxor855 xor  0    sNaN   ->  NaN  Invalid_operation

ddxor856 xor  1    sNaN   ->  NaN  Invalid_operation

ddxor857 xor  1000 sNaN   ->  NaN  Invalid_operation

ddxor858 xor  Inf  sNaN   ->  NaN  Invalid_operation

ddxor859 xor  NaN  sNaN   ->  NaN  Invalid_operation



-- propagating NaNs

ddxor861 xor  NaN1   -Inf    -> NaN Invalid_operation

ddxor862 xor +NaN2   -1000   -> NaN Invalid_operation

ddxor863 xor  NaN3    1000   -> NaN Invalid_operation

ddxor864 xor  NaN4    Inf    -> NaN Invalid_operation

ddxor865 xor  NaN5   +NaN6   -> NaN Invalid_operation

ddxor866 xor -Inf     NaN7   -> NaN Invalid_operation

ddxor867 xor -1000    NaN8   -> NaN Invalid_operation

ddxor868 xor  1000    NaN9   -> NaN Invalid_operation

ddxor869 xor  Inf    +NaN10  -> NaN Invalid_operation

ddxor871 xor  sNaN11  -Inf   -> NaN Invalid_operation

ddxor872 xor  sNaN12  -1000  -> NaN Invalid_operation

ddxor873 xor  sNaN13   1000  -> NaN Invalid_operation

ddxor874 xor  sNaN14   NaN17 -> NaN Invalid_operation

ddxor875 xor  sNaN15  sNaN18 -> NaN Invalid_operation

ddxor876 xor  NaN16   sNaN19 -> NaN Invalid_operation

ddxor877 xor -Inf    +sNaN20 -> NaN Invalid_operation

ddxor878 xor -1000    sNaN21 -> NaN Invalid_operation

ddxor879 xor  1000    sNaN22 -> NaN Invalid_operation

ddxor880 xor  Inf     sNaN23 -> NaN Invalid_operation

ddxor881 xor +NaN25  +sNaN24 -> NaN Invalid_operation

ddxor882 xor -NaN26    NaN28 -> NaN Invalid_operation

ddxor883 xor -sNaN27  sNaN29 -> NaN Invalid_operation

ddxor884 xor  1000    -NaN30 -> NaN Invalid_operation

ddxor885 xor  1000   -sNaN31 -> NaN Invalid_operation

