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