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