1 ------------------------------------------------------------------------ 2 -- ddXor.decTest -- digitwise logical XOR for decDoubles -- 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 precision: 16 23 maxExponent: 384 24 minExponent: -383 25 extended: 1 26 clamp: 1 27 rounding: half_even 28 29 -- Sanity check (truth table) 30 ddxor001 xor 0 0 -> 0 31 ddxor002 xor 0 1 -> 1 32 ddxor003 xor 1 0 -> 1 33 ddxor004 xor 1 1 -> 0 34 ddxor005 xor 1100 1010 -> 110 35 -- and at msd and msd-1 36 ddxor006 xor 0000000000000000 0000000000000000 -> 0 37 ddxor007 xor 0000000000000000 1000000000000000 -> 1000000000000000 38 ddxor008 xor 1000000000000000 0000000000000000 -> 1000000000000000 39 ddxor009 xor 1000000000000000 1000000000000000 -> 0 40 ddxor010 xor 0000000000000000 0000000000000000 -> 0 41 ddxor011 xor 0000000000000000 0100000000000000 -> 100000000000000 42 ddxor012 xor 0100000000000000 0000000000000000 -> 100000000000000 43 ddxor013 xor 0100000000000000 0100000000000000 -> 0 44 45 -- Various lengths 46 -- 1234567890123456 1234567890123456 1234567890123456 47 ddxor021 xor 1111111110000000 1111111110000000 -> 0 48 ddxor022 xor 111111110000000 111111110000000 -> 0 49 ddxor023 xor 11111110000000 11111110000000 -> 0 50 ddxor024 xor 1111110000000 1111110000000 -> 0 51 ddxor025 xor 111110000000 111110000000 -> 0 52 ddxor026 xor 11110000000 11110000000 -> 0 53 ddxor027 xor 1110000000 1110000000 -> 0 54 ddxor028 xor 110000000 110000000 -> 0 55 ddxor029 xor 10000000 10000000 -> 0 56 ddxor030 xor 1000000 1000000 -> 0 57 ddxor031 xor 100000 100000 -> 0 58 ddxor032 xor 10000 10000 -> 0 59 ddxor033 xor 1000 1000 -> 0 60 ddxor034 xor 100 100 -> 0 61 ddxor035 xor 10 10 -> 0 62 ddxor036 xor 1 1 -> 0 63 64 ddxor040 xor 111111111 111111111111 -> 111000000000 65 ddxor041 xor 11111111 111111111111 -> 111100000000 66 ddxor042 xor 11111111 111111111 -> 100000000 67 ddxor043 xor 1111111 100000010 -> 101111101 68 ddxor044 xor 111111 100000100 -> 100111011 69 ddxor045 xor 11111 100001000 -> 100010111 70 ddxor046 xor 1111 100010000 -> 100011111 71 ddxor047 xor 111 100100000 -> 100100111 72 ddxor048 xor 11 101000000 -> 101000011 73 ddxor049 xor 1 110000000 -> 110000001 74 75 ddxor050 xor 1111111111 1 -> 1111111110 76 ddxor051 xor 111111111 1 -> 111111110 77 ddxor052 xor 11111111 1 -> 11111110 78 ddxor053 xor 1111111 1 -> 1111110 79 ddxor054 xor 111111 1 -> 111110 80 ddxor055 xor 11111 1 -> 11110 81 ddxor056 xor 1111 1 -> 1110 82 ddxor057 xor 111 1 -> 110 83 ddxor058 xor 11 1 -> 10 84 ddxor059 xor 1 1 -> 0 85 86 ddxor060 xor 1111111111 0 -> 1111111111 87 ddxor061 xor 111111111 0 -> 111111111 88 ddxor062 xor 11111111 0 -> 11111111 89 ddxor063 xor 1111111 0 -> 1111111 90 ddxor064 xor 111111 0 -> 111111 91 ddxor065 xor 11111 0 -> 11111 92 ddxor066 xor 1111 0 -> 1111 93 ddxor067 xor 111 0 -> 111 94 ddxor068 xor 11 0 -> 11 95 ddxor069 xor 1 0 -> 1 96 97 ddxor070 xor 1 1111111111 -> 1111111110 98 ddxor071 xor 1 111111111 -> 111111110 99 ddxor072 xor 1 11111111 -> 11111110 100 ddxor073 xor 1 1111111 -> 1111110 101 ddxor074 xor 1 111111 -> 111110 102 ddxor075 xor 1 11111 -> 11110 103 ddxor076 xor 1 1111 -> 1110 104 ddxor077 xor 1 111 -> 110 105 ddxor078 xor 1 11 -> 10 106 ddxor079 xor 1 1 -> 0 107 108 ddxor080 xor 0 1111111111 -> 1111111111 109 ddxor081 xor 0 111111111 -> 111111111 110 ddxor082 xor 0 11111111 -> 11111111 111 ddxor083 xor 0 1111111 -> 1111111 112 ddxor084 xor 0 111111 -> 111111 113 ddxor085 xor 0 11111 -> 11111 114 ddxor086 xor 0 1111 -> 1111 115 ddxor087 xor 0 111 -> 111 116 ddxor088 xor 0 11 -> 11 117 ddxor089 xor 0 1 -> 1 118 119 ddxor090 xor 011111111 111101111 -> 100010000 120 ddxor091 xor 101111111 111101111 -> 10010000 121 ddxor092 xor 110111111 111101111 -> 1010000 122 ddxor093 xor 111011111 111101111 -> 110000 123 ddxor094 xor 111101111 111101111 -> 0 124 ddxor095 xor 111110111 111101111 -> 11000 125 ddxor096 xor 111111011 111101111 -> 10100 126 ddxor097 xor 111111101 111101111 -> 10010 127 ddxor098 xor 111111110 111101111 -> 10001 128 129 ddxor100 xor 111101111 011111111 -> 100010000 130 ddxor101 xor 111101111 101111111 -> 10010000 131 ddxor102 xor 111101111 110111111 -> 1010000 132 ddxor103 xor 111101111 111011111 -> 110000 133 ddxor104 xor 111101111 111101111 -> 0 134 ddxor105 xor 111101111 111110111 -> 11000 135 ddxor106 xor 111101111 111111011 -> 10100 136 ddxor107 xor 111101111 111111101 -> 10010 137 ddxor108 xor 111101111 111111110 -> 10001 138 139 -- non-0/1 should not be accepted, nor should signs 140 ddxor220 xor 111111112 111111111 -> NaN Invalid_operation 141 ddxor221 xor 333333333 333333333 -> NaN Invalid_operation 142 ddxor222 xor 555555555 555555555 -> NaN Invalid_operation 143 ddxor223 xor 777777777 777777777 -> NaN Invalid_operation 144 ddxor224 xor 999999999 999999999 -> NaN Invalid_operation 145 ddxor225 xor 222222222 999999999 -> NaN Invalid_operation 146 ddxor226 xor 444444444 999999999 -> NaN Invalid_operation 147 ddxor227 xor 666666666 999999999 -> NaN Invalid_operation 148 ddxor228 xor 888888888 999999999 -> NaN Invalid_operation 149 ddxor229 xor 999999999 222222222 -> NaN Invalid_operation 150 ddxor230 xor 999999999 444444444 -> NaN Invalid_operation 151 ddxor231 xor 999999999 666666666 -> NaN Invalid_operation 152 ddxor232 xor 999999999 888888888 -> NaN Invalid_operation 153 -- a few randoms 154 ddxor240 xor 567468689 -934981942 -> NaN Invalid_operation 155 ddxor241 xor 567367689 934981942 -> NaN Invalid_operation 156 ddxor242 xor -631917772 -706014634 -> NaN Invalid_operation 157 ddxor243 xor -756253257 138579234 -> NaN Invalid_operation 158 ddxor244 xor 835590149 567435400 -> NaN Invalid_operation 159 -- test MSD 160 ddxor250 xor 2000000000000000 1000000000000000 -> NaN Invalid_operation 161 ddxor251 xor 7000000000000000 1000000000000000 -> NaN Invalid_operation 162 ddxor252 xor 8000000000000000 1000000000000000 -> NaN Invalid_operation 163 ddxor253 xor 9000000000000000 1000000000000000 -> NaN Invalid_operation 164 ddxor254 xor 2000000000000000 0000000000000000 -> NaN Invalid_operation 165 ddxor255 xor 7000000000000000 0000000000000000 -> NaN Invalid_operation 166 ddxor256 xor 8000000000000000 0000000000000000 -> NaN Invalid_operation 167 ddxor257 xor 9000000000000000 0000000000000000 -> NaN Invalid_operation 168 ddxor258 xor 1000000000000000 2000000000000000 -> NaN Invalid_operation 169 ddxor259 xor 1000000000000000 7000000000000000 -> NaN Invalid_operation 170 ddxor260 xor 1000000000000000 8000000000000000 -> NaN Invalid_operation 171 ddxor261 xor 1000000000000000 9000000000000000 -> NaN Invalid_operation 172 ddxor262 xor 0000000000000000 2000000000000000 -> NaN Invalid_operation 173 ddxor263 xor 0000000000000000 7000000000000000 -> NaN Invalid_operation 174 ddxor264 xor 0000000000000000 8000000000000000 -> NaN Invalid_operation 175 ddxor265 xor 0000000000000000 9000000000000000 -> NaN Invalid_operation 176 -- test MSD-1 177 ddxor270 xor 0200001000000000 1000100000000010 -> NaN Invalid_operation 178 ddxor271 xor 0700000100000000 1000010000000100 -> NaN Invalid_operation 179 ddxor272 xor 0800000010000000 1000001000001000 -> NaN Invalid_operation 180 ddxor273 xor 0900000001000000 1000000100010000 -> NaN Invalid_operation 181 ddxor274 xor 1000000000100000 0200000010100000 -> NaN Invalid_operation 182 ddxor275 xor 1000000000010000 0700000001000000 -> NaN Invalid_operation 183 ddxor276 xor 1000000000001000 0800000010100000 -> NaN Invalid_operation 184 ddxor277 xor 1000000000000100 0900000000010000 -> NaN Invalid_operation 185 -- test LSD 186 ddxor280 xor 0010000000000002 1000000100000001 -> NaN Invalid_operation 187 ddxor281 xor 0001000000000007 1000001000000011 -> NaN Invalid_operation 188 ddxor282 xor 0000100000000008 1000010000000001 -> NaN Invalid_operation 189 ddxor283 xor 0000010000000009 1000100000000001 -> NaN Invalid_operation 190 ddxor284 xor 1000001000000000 0001000000000002 -> NaN Invalid_operation 191 ddxor285 xor 1000000100000000 0010000000000007 -> NaN Invalid_operation 192 ddxor286 xor 1000000010000000 0100000000000008 -> NaN Invalid_operation 193 ddxor287 xor 1000000001000000 1000000000000009 -> NaN Invalid_operation 194 -- test Middie 195 ddxor288 xor 0010000020000000 1000001000000000 -> NaN Invalid_operation 196 ddxor289 xor 0001000070000001 1000000100000000 -> NaN Invalid_operation 197 ddxor290 xor 0000100080000010 1000000010000000 -> NaN Invalid_operation 198 ddxor291 xor 0000010090000100 1000000001000000 -> NaN Invalid_operation 199 ddxor292 xor 1000001000001000 0000000020100000 -> NaN Invalid_operation 200 ddxor293 xor 1000000100010000 0000000070010000 -> NaN Invalid_operation 201 ddxor294 xor 1000000010100000 0000000080001000 -> NaN Invalid_operation 202 ddxor295 xor 1000000001000000 0000000090000100 -> NaN Invalid_operation 203 -- signs 204 ddxor296 xor -1000000001000000 -0000010000000100 -> NaN Invalid_operation 205 ddxor297 xor -1000000001000000 0000000010000100 -> NaN Invalid_operation 206 ddxor298 xor 1000000001000000 -0000001000000100 -> NaN Invalid_operation 207 ddxor299 xor 1000000001000000 0000000011000100 -> 1000000010000100 208 209 -- Nmax, Nmin, Ntiny-like 210 ddxor331 xor 2 9.99999999E+299 -> NaN Invalid_operation 211 ddxor332 xor 3 1E-299 -> NaN Invalid_operation 212 ddxor333 xor 4 1.00000000E-299 -> NaN Invalid_operation 213 ddxor334 xor 5 1E-200 -> NaN Invalid_operation 214 ddxor335 xor 6 -1E-200 -> NaN Invalid_operation 215 ddxor336 xor 7 -1.00000000E-299 -> NaN Invalid_operation 216 ddxor337 xor 8 -1E-299 -> NaN Invalid_operation 217 ddxor338 xor 9 -9.99999999E+299 -> NaN Invalid_operation 218 ddxor341 xor 9.99999999E+299 -18 -> NaN Invalid_operation 219 ddxor342 xor 1E-299 01 -> NaN Invalid_operation 220 ddxor343 xor 1.00000000E-299 -18 -> NaN Invalid_operation 221 ddxor344 xor 1E-208 18 -> NaN Invalid_operation 222 ddxor345 xor -1E-207 -10 -> NaN Invalid_operation 223 ddxor346 xor -1.00000000E-299 18 -> NaN Invalid_operation 224 ddxor347 xor -1E-299 10 -> NaN Invalid_operation 225 ddxor348 xor -9.99999999E+299 -18 -> NaN Invalid_operation 226 227 -- A few other non-integers 228 ddxor361 xor 1.0 1 -> NaN Invalid_operation 229 ddxor362 xor 1E+1 1 -> NaN Invalid_operation 230 ddxor363 xor 0.0 1 -> NaN Invalid_operation 231 ddxor364 xor 0E+1 1 -> NaN Invalid_operation 232 ddxor365 xor 9.9 1 -> NaN Invalid_operation 233 ddxor366 xor 9E+1 1 -> NaN Invalid_operation 234 ddxor371 xor 0 1.0 -> NaN Invalid_operation 235 ddxor372 xor 0 1E+1 -> NaN Invalid_operation 236 ddxor373 xor 0 0.0 -> NaN Invalid_operation 237 ddxor374 xor 0 0E+1 -> NaN Invalid_operation 238 ddxor375 xor 0 9.9 -> NaN Invalid_operation 239 ddxor376 xor 0 9E+1 -> NaN Invalid_operation 240 241 -- All Specials are in error 242 ddxor780 xor -Inf -Inf -> NaN Invalid_operation 243 ddxor781 xor -Inf -1000 -> NaN Invalid_operation 244 ddxor782 xor -Inf -1 -> NaN Invalid_operation 245 ddxor783 xor -Inf -0 -> NaN Invalid_operation 246 ddxor784 xor -Inf 0 -> NaN Invalid_operation 247 ddxor785 xor -Inf 1 -> NaN Invalid_operation 248 ddxor786 xor -Inf 1000 -> NaN Invalid_operation 249 ddxor787 xor -1000 -Inf -> NaN Invalid_operation 250 ddxor788 xor -Inf -Inf -> NaN Invalid_operation 251 ddxor789 xor -1 -Inf -> NaN Invalid_operation 252 ddxor790 xor -0 -Inf -> NaN Invalid_operation 253 ddxor791 xor 0 -Inf -> NaN Invalid_operation 254 ddxor792 xor 1 -Inf -> NaN Invalid_operation 255 ddxor793 xor 1000 -Inf -> NaN Invalid_operation 256 ddxor794 xor Inf -Inf -> NaN Invalid_operation 257 258 ddxor800 xor Inf -Inf -> NaN Invalid_operation 259 ddxor801 xor Inf -1000 -> NaN Invalid_operation 260 ddxor802 xor Inf -1 -> NaN Invalid_operation 261 ddxor803 xor Inf -0 -> NaN Invalid_operation 262 ddxor804 xor Inf 0 -> NaN Invalid_operation 263 ddxor805 xor Inf 1 -> NaN Invalid_operation 264 ddxor806 xor Inf 1000 -> NaN Invalid_operation 265 ddxor807 xor Inf Inf -> NaN Invalid_operation 266 ddxor808 xor -1000 Inf -> NaN Invalid_operation 267 ddxor809 xor -Inf Inf -> NaN Invalid_operation 268 ddxor810 xor -1 Inf -> NaN Invalid_operation 269 ddxor811 xor -0 Inf -> NaN Invalid_operation 270 ddxor812 xor 0 Inf -> NaN Invalid_operation 271 ddxor813 xor 1 Inf -> NaN Invalid_operation 272 ddxor814 xor 1000 Inf -> NaN Invalid_operation 273 ddxor815 xor Inf Inf -> NaN Invalid_operation 274 275 ddxor821 xor NaN -Inf -> NaN Invalid_operation 276 ddxor822 xor NaN -1000 -> NaN Invalid_operation 277 ddxor823 xor NaN -1 -> NaN Invalid_operation 278 ddxor824 xor NaN -0 -> NaN Invalid_operation 279 ddxor825 xor NaN 0 -> NaN Invalid_operation 280 ddxor826 xor NaN 1 -> NaN Invalid_operation 281 ddxor827 xor NaN 1000 -> NaN Invalid_operation 282 ddxor828 xor NaN Inf -> NaN Invalid_operation 283 ddxor829 xor NaN NaN -> NaN Invalid_operation 284 ddxor830 xor -Inf NaN -> NaN Invalid_operation 285 ddxor831 xor -1000 NaN -> NaN Invalid_operation 286 ddxor832 xor -1 NaN -> NaN Invalid_operation 287 ddxor833 xor -0 NaN -> NaN Invalid_operation 288 ddxor834 xor 0 NaN -> NaN Invalid_operation 289 ddxor835 xor 1 NaN -> NaN Invalid_operation 290 ddxor836 xor 1000 NaN -> NaN Invalid_operation 291 ddxor837 xor Inf NaN -> NaN Invalid_operation 292 293 ddxor841 xor sNaN -Inf -> NaN Invalid_operation 294 ddxor842 xor sNaN -1000 -> NaN Invalid_operation 295 ddxor843 xor sNaN -1 -> NaN Invalid_operation 296 ddxor844 xor sNaN -0 -> NaN Invalid_operation 297 ddxor845 xor sNaN 0 -> NaN Invalid_operation 298 ddxor846 xor sNaN 1 -> NaN Invalid_operation 299 ddxor847 xor sNaN 1000 -> NaN Invalid_operation 300 ddxor848 xor sNaN NaN -> NaN Invalid_operation 301 ddxor849 xor sNaN sNaN -> NaN Invalid_operation 302 ddxor850 xor NaN sNaN -> NaN Invalid_operation 303 ddxor851 xor -Inf sNaN -> NaN Invalid_operation 304 ddxor852 xor -1000 sNaN -> NaN Invalid_operation 305 ddxor853 xor -1 sNaN -> NaN Invalid_operation 306 ddxor854 xor -0 sNaN -> NaN Invalid_operation 307 ddxor855 xor 0 sNaN -> NaN Invalid_operation 308 ddxor856 xor 1 sNaN -> NaN Invalid_operation 309 ddxor857 xor 1000 sNaN -> NaN Invalid_operation 310 ddxor858 xor Inf sNaN -> NaN Invalid_operation 311 ddxor859 xor NaN sNaN -> NaN Invalid_operation 312 313 -- propagating NaNs 314 ddxor861 xor NaN1 -Inf -> NaN Invalid_operation 315 ddxor862 xor +NaN2 -1000 -> NaN Invalid_operation 316 ddxor863 xor NaN3 1000 -> NaN Invalid_operation 317 ddxor864 xor NaN4 Inf -> NaN Invalid_operation 318 ddxor865 xor NaN5 +NaN6 -> NaN Invalid_operation 319 ddxor866 xor -Inf NaN7 -> NaN Invalid_operation 320 ddxor867 xor -1000 NaN8 -> NaN Invalid_operation 321 ddxor868 xor 1000 NaN9 -> NaN Invalid_operation 322 ddxor869 xor Inf +NaN10 -> NaN Invalid_operation 323 ddxor871 xor sNaN11 -Inf -> NaN Invalid_operation 324 ddxor872 xor sNaN12 -1000 -> NaN Invalid_operation 325 ddxor873 xor sNaN13 1000 -> NaN Invalid_operation 326 ddxor874 xor sNaN14 NaN17 -> NaN Invalid_operation 327 ddxor875 xor sNaN15 sNaN18 -> NaN Invalid_operation 328 ddxor876 xor NaN16 sNaN19 -> NaN Invalid_operation 329 ddxor877 xor -Inf +sNaN20 -> NaN Invalid_operation 330 ddxor878 xor -1000 sNaN21 -> NaN Invalid_operation 331 ddxor879 xor 1000 sNaN22 -> NaN Invalid_operation 332 ddxor880 xor Inf sNaN23 -> NaN Invalid_operation 333 ddxor881 xor +NaN25 +sNaN24 -> NaN Invalid_operation 334 ddxor882 xor -NaN26 NaN28 -> NaN Invalid_operation 335 ddxor883 xor -sNaN27 sNaN29 -> NaN Invalid_operation 336 ddxor884 xor 1000 -NaN30 -> NaN Invalid_operation 337 ddxor885 xor 1000 -sNaN31 -> NaN Invalid_operation 338
