+++ /dev/null
-------------------------------------------------------------------------\r
--- dqShift.decTest -- shift decQuad coefficient left or right --\r
--- Copyright (c) IBM Corporation, 1981, 2008. All rights reserved. --\r
-------------------------------------------------------------------------\r
--- Please see the document "General Decimal Arithmetic Testcases" --\r
--- at http://www2.hursley.ibm.com/decimal for the description of --\r
--- these testcases. --\r
--- --\r
--- These testcases are experimental ('beta' versions), and they --\r
--- may contain errors. They are offered on an as-is basis. In --\r
--- particular, achieving the same results as the tests here is not --\r
--- a guarantee that an implementation complies with any Standard --\r
--- or specification. The tests are not exhaustive. --\r
--- --\r
--- Please send comments, suggestions, and corrections to the author: --\r
--- Mike Cowlishaw, IBM Fellow --\r
--- IBM UK, PO Box 31, Birmingham Road, Warwick CV34 5JL, UK --\r
--- mfc@uk.ibm.com --\r
-------------------------------------------------------------------------\r
-version: 2.59\r
-\r
-extended: 1\r
-clamp: 1\r
-precision: 34\r
-maxExponent: 6144\r
-minExponent: -6143\r
-rounding: half_even\r
-\r
--- Sanity check\r
-dqshi001 shift 0 0 -> 0\r
-dqshi002 shift 0 2 -> 0\r
-dqshi003 shift 1 2 -> 100\r
-dqshi004 shift 1 33 -> 1000000000000000000000000000000000\r
-dqshi005 shift 1 34 -> 0\r
-dqshi006 shift 1 -1 -> 0\r
-dqshi007 shift 0 -2 -> 0\r
-dqshi008 shift 1234567890123456789012345678901234 -1 -> 123456789012345678901234567890123\r
-dqshi009 shift 1234567890123456789012345678901234 -33 -> 1\r
-dqshi010 shift 1234567890123456789012345678901234 -34 -> 0\r
-dqshi011 shift 9934567890123456789012345678901234 -33 -> 9\r
-dqshi012 shift 9934567890123456789012345678901234 -34 -> 0\r
-\r
--- rhs must be an integer\r
-dqshi015 shift 1 1.5 -> NaN Invalid_operation\r
-dqshi016 shift 1 1.0 -> NaN Invalid_operation\r
-dqshi017 shift 1 0.1 -> NaN Invalid_operation\r
-dqshi018 shift 1 0.0 -> NaN Invalid_operation\r
-dqshi019 shift 1 1E+1 -> NaN Invalid_operation\r
-dqshi020 shift 1 1E+99 -> NaN Invalid_operation\r
-dqshi021 shift 1 Inf -> NaN Invalid_operation\r
-dqshi022 shift 1 -Inf -> NaN Invalid_operation\r
--- and |rhs| <= precision\r
-dqshi025 shift 1 -1000 -> NaN Invalid_operation\r
-dqshi026 shift 1 -35 -> NaN Invalid_operation\r
-dqshi027 shift 1 35 -> NaN Invalid_operation\r
-dqshi028 shift 1 1000 -> NaN Invalid_operation\r
-\r
--- full shifting pattern\r
-dqshi030 shift 1234567890123456789012345678901234 -34 -> 0\r
-dqshi031 shift 1234567890123456789012345678901234 -33 -> 1\r
-dqshi032 shift 1234567890123456789012345678901234 -32 -> 12\r
-dqshi033 shift 1234567890123456789012345678901234 -31 -> 123\r
-dqshi034 shift 1234567890123456789012345678901234 -30 -> 1234\r
-dqshi035 shift 1234567890123456789012345678901234 -29 -> 12345\r
-dqshi036 shift 1234567890123456789012345678901234 -28 -> 123456\r
-dqshi037 shift 1234567890123456789012345678901234 -27 -> 1234567\r
-dqshi038 shift 1234567890123456789012345678901234 -26 -> 12345678\r
-dqshi039 shift 1234567890123456789012345678901234 -25 -> 123456789\r
-dqshi040 shift 1234567890123456789012345678901234 -24 -> 1234567890\r
-dqshi041 shift 1234567890123456789012345678901234 -23 -> 12345678901\r
-dqshi042 shift 1234567890123456789012345678901234 -22 -> 123456789012\r
-dqshi043 shift 1234567890123456789012345678901234 -21 -> 1234567890123\r
-dqshi044 shift 1234567890123456789012345678901234 -20 -> 12345678901234\r
-dqshi045 shift 1234567890123456789012345678901234 -19 -> 123456789012345\r
-dqshi047 shift 1234567890123456789012345678901234 -18 -> 1234567890123456\r
-dqshi048 shift 1234567890123456789012345678901234 -17 -> 12345678901234567\r
-dqshi049 shift 1234567890123456789012345678901234 -16 -> 123456789012345678\r
-dqshi050 shift 1234567890123456789012345678901234 -15 -> 1234567890123456789\r
-dqshi051 shift 1234567890123456789012345678901234 -14 -> 12345678901234567890\r
-dqshi052 shift 1234567890123456789012345678901234 -13 -> 123456789012345678901\r
-dqshi053 shift 1234567890123456789012345678901234 -12 -> 1234567890123456789012\r
-dqshi054 shift 1234567890123456789012345678901234 -11 -> 12345678901234567890123\r
-dqshi055 shift 1234567890123456789012345678901234 -10 -> 123456789012345678901234\r
-dqshi056 shift 1234567890123456789012345678901234 -9 -> 1234567890123456789012345\r
-dqshi057 shift 1234567890123456789012345678901234 -8 -> 12345678901234567890123456\r
-dqshi058 shift 1234567890123456789012345678901234 -7 -> 123456789012345678901234567\r
-dqshi059 shift 1234567890123456789012345678901234 -6 -> 1234567890123456789012345678\r
-dqshi060 shift 1234567890123456789012345678901234 -5 -> 12345678901234567890123456789\r
-dqshi061 shift 1234567890123456789012345678901234 -4 -> 123456789012345678901234567890\r
-dqshi062 shift 1234567890123456789012345678901234 -3 -> 1234567890123456789012345678901\r
-dqshi063 shift 1234567890123456789012345678901234 -2 -> 12345678901234567890123456789012\r
-dqshi064 shift 1234567890123456789012345678901234 -1 -> 123456789012345678901234567890123\r
-dqshi065 shift 1234567890123456789012345678901234 -0 -> 1234567890123456789012345678901234\r
-\r
-dqshi066 shift 1234567890123456789012345678901234 +0 -> 1234567890123456789012345678901234\r
-dqshi067 shift 1234567890123456789012345678901234 +1 -> 2345678901234567890123456789012340\r
-dqshi068 shift 1234567890123456789012345678901234 +2 -> 3456789012345678901234567890123400\r
-dqshi069 shift 1234567890123456789012345678901234 +3 -> 4567890123456789012345678901234000\r
-dqshi070 shift 1234567890123456789012345678901234 +4 -> 5678901234567890123456789012340000\r
-dqshi071 shift 1234567890123456789012345678901234 +5 -> 6789012345678901234567890123400000\r
-dqshi072 shift 1234567890123456789012345678901234 +6 -> 7890123456789012345678901234000000\r
-dqshi073 shift 1234567890123456789012345678901234 +7 -> 8901234567890123456789012340000000\r
-dqshi074 shift 1234567890123456789012345678901234 +8 -> 9012345678901234567890123400000000\r
-dqshi075 shift 1234567890123456789012345678901234 +9 -> 123456789012345678901234000000000\r
-dqshi076 shift 1234567890123456789012345678901234 +10 -> 1234567890123456789012340000000000\r
-dqshi077 shift 1234567890123456789012345678901234 +11 -> 2345678901234567890123400000000000\r
-dqshi078 shift 1234567890123456789012345678901234 +12 -> 3456789012345678901234000000000000\r
-dqshi079 shift 1234567890123456789012345678901234 +13 -> 4567890123456789012340000000000000\r
-dqshi080 shift 1234567890123456789012345678901234 +14 -> 5678901234567890123400000000000000\r
-dqshi081 shift 1234567890123456789012345678901234 +15 -> 6789012345678901234000000000000000\r
-dqshi082 shift 1234567890123456789012345678901234 +16 -> 7890123456789012340000000000000000\r
-dqshi083 shift 1234567890123456789012345678901234 +17 -> 8901234567890123400000000000000000\r
-dqshi084 shift 1234567890123456789012345678901234 +18 -> 9012345678901234000000000000000000\r
-dqshi085 shift 1234567890123456789012345678901234 +19 -> 123456789012340000000000000000000\r
-dqshi086 shift 1234567890123456789012345678901234 +20 -> 1234567890123400000000000000000000\r
-dqshi087 shift 1234567890123456789012345678901234 +21 -> 2345678901234000000000000000000000\r
-dqshi088 shift 1234567890123456789012345678901234 +22 -> 3456789012340000000000000000000000\r
-dqshi089 shift 1234567890123456789012345678901234 +23 -> 4567890123400000000000000000000000\r
-dqshi090 shift 1234567890123456789012345678901234 +24 -> 5678901234000000000000000000000000\r
-dqshi091 shift 1234567890123456789012345678901234 +25 -> 6789012340000000000000000000000000\r
-dqshi092 shift 1234567890123456789012345678901234 +26 -> 7890123400000000000000000000000000\r
-dqshi093 shift 1234567890123456789012345678901234 +27 -> 8901234000000000000000000000000000\r
-dqshi094 shift 1234567890123456789012345678901234 +28 -> 9012340000000000000000000000000000\r
-dqshi095 shift 1234567890123456789012345678901234 +29 -> 123400000000000000000000000000000\r
-dqshi096 shift 1234567890123456789012345678901234 +30 -> 1234000000000000000000000000000000\r
-dqshi097 shift 1234567890123456789012345678901234 +31 -> 2340000000000000000000000000000000\r
-dqshi098 shift 1234567890123456789012345678901234 +32 -> 3400000000000000000000000000000000\r
-dqshi099 shift 1234567890123456789012345678901234 +33 -> 4000000000000000000000000000000000\r
-dqshi100 shift 1234567890123456789012345678901234 +34 -> 0\r
-\r
--- zeros\r
-dqshi270 shift 0E-10 +29 -> 0E-10\r
-dqshi271 shift 0E-10 -29 -> 0E-10\r
-dqshi272 shift 0.000 +29 -> 0.000\r
-dqshi273 shift 0.000 -29 -> 0.000\r
-dqshi274 shift 0E+10 +29 -> 0E+10\r
-dqshi275 shift 0E+10 -29 -> 0E+10\r
-dqshi276 shift -0E-10 +29 -> -0E-10\r
-dqshi277 shift -0E-10 -29 -> -0E-10\r
-dqshi278 shift -0.000 +29 -> -0.000\r
-dqshi279 shift -0.000 -29 -> -0.000\r
-dqshi280 shift -0E+10 +29 -> -0E+10\r
-dqshi281 shift -0E+10 -29 -> -0E+10\r
-\r
--- Nmax, Nmin, Ntiny\r
-dqshi141 shift 9.999999999999999999999999999999999E+6144 -1 -> 9.99999999999999999999999999999999E+6143\r
-dqshi142 shift 9.999999999999999999999999999999999E+6144 -33 -> 9E+6111\r
-dqshi143 shift 9.999999999999999999999999999999999E+6144 1 -> 9.999999999999999999999999999999990E+6144\r
-dqshi144 shift 9.999999999999999999999999999999999E+6144 33 -> 9.000000000000000000000000000000000E+6144\r
-dqshi145 shift 1E-6143 -1 -> 0E-6143\r
-dqshi146 shift 1E-6143 -33 -> 0E-6143\r
-dqshi147 shift 1E-6143 1 -> 1.0E-6142\r
-dqshi148 shift 1E-6143 33 -> 1.000000000000000000000000000000000E-6110\r
-dqshi151 shift 1.000000000000000000000000000000000E-6143 -1 -> 1.00000000000000000000000000000000E-6144\r
-dqshi152 shift 1.000000000000000000000000000000000E-6143 -33 -> 1E-6176\r
-dqshi153 shift 1.000000000000000000000000000000000E-6143 1 -> 0E-6176\r
-dqshi154 shift 1.000000000000000000000000000000000E-6143 33 -> 0E-6176\r
-dqshi155 shift 9.000000000000000000000000000000000E-6143 -1 -> 9.00000000000000000000000000000000E-6144\r
-dqshi156 shift 9.000000000000000000000000000000000E-6143 -33 -> 9E-6176\r
-dqshi157 shift 9.000000000000000000000000000000000E-6143 1 -> 0E-6176\r
-dqshi158 shift 9.000000000000000000000000000000000E-6143 33 -> 0E-6176\r
-dqshi160 shift 1E-6176 -1 -> 0E-6176\r
-dqshi161 shift 1E-6176 -33 -> 0E-6176\r
-dqshi162 shift 1E-6176 1 -> 1.0E-6175\r
-dqshi163 shift 1E-6176 33 -> 1.000000000000000000000000000000000E-6143\r
--- negatives\r
-dqshi171 shift -9.999999999999999999999999999999999E+6144 -1 -> -9.99999999999999999999999999999999E+6143\r
-dqshi172 shift -9.999999999999999999999999999999999E+6144 -33 -> -9E+6111\r
-dqshi173 shift -9.999999999999999999999999999999999E+6144 1 -> -9.999999999999999999999999999999990E+6144\r
-dqshi174 shift -9.999999999999999999999999999999999E+6144 33 -> -9.000000000000000000000000000000000E+6144\r
-dqshi175 shift -1E-6143 -1 -> -0E-6143\r
-dqshi176 shift -1E-6143 -33 -> -0E-6143\r
-dqshi177 shift -1E-6143 1 -> -1.0E-6142\r
-dqshi178 shift -1E-6143 33 -> -1.000000000000000000000000000000000E-6110\r
-dqshi181 shift -1.000000000000000000000000000000000E-6143 -1 -> -1.00000000000000000000000000000000E-6144\r
-dqshi182 shift -1.000000000000000000000000000000000E-6143 -33 -> -1E-6176\r
-dqshi183 shift -1.000000000000000000000000000000000E-6143 1 -> -0E-6176\r
-dqshi184 shift -1.000000000000000000000000000000000E-6143 33 -> -0E-6176\r
-dqshi185 shift -9.000000000000000000000000000000000E-6143 -1 -> -9.00000000000000000000000000000000E-6144\r
-dqshi186 shift -9.000000000000000000000000000000000E-6143 -33 -> -9E-6176\r
-dqshi187 shift -9.000000000000000000000000000000000E-6143 1 -> -0E-6176\r
-dqshi188 shift -9.000000000000000000000000000000000E-6143 33 -> -0E-6176\r
-dqshi190 shift -1E-6176 -1 -> -0E-6176\r
-dqshi191 shift -1E-6176 -33 -> -0E-6176\r
-dqshi192 shift -1E-6176 1 -> -1.0E-6175\r
-dqshi193 shift -1E-6176 33 -> -1.000000000000000000000000000000000E-6143\r
-\r
--- more negatives (of sanities)\r
-dqshi201 shift -0 0 -> -0\r
-dqshi202 shift -0 2 -> -0\r
-dqshi203 shift -1 2 -> -100\r
-dqshi204 shift -1 33 -> -1000000000000000000000000000000000\r
-dqshi205 shift -1 34 -> -0\r
-dqshi206 shift -1 -1 -> -0\r
-dqshi207 shift -0 -2 -> -0\r
-dqshi208 shift -1234567890123456789012345678901234 -1 -> -123456789012345678901234567890123\r
-dqshi209 shift -1234567890123456789012345678901234 -33 -> -1\r
-dqshi210 shift -1234567890123456789012345678901234 -34 -> -0\r
-dqshi211 shift -9934567890123456789012345678901234 -33 -> -9\r
-dqshi212 shift -9934567890123456789012345678901234 -34 -> -0\r
-\r
-\r
--- Specials; NaNs are handled as usual\r
-dqshi781 shift -Inf -8 -> -Infinity\r
-dqshi782 shift -Inf -1 -> -Infinity\r
-dqshi783 shift -Inf -0 -> -Infinity\r
-dqshi784 shift -Inf 0 -> -Infinity\r
-dqshi785 shift -Inf 1 -> -Infinity\r
-dqshi786 shift -Inf 8 -> -Infinity\r
-dqshi787 shift -1000 -Inf -> NaN Invalid_operation\r
-dqshi788 shift -Inf -Inf -> NaN Invalid_operation\r
-dqshi789 shift -1 -Inf -> NaN Invalid_operation\r
-dqshi790 shift -0 -Inf -> NaN Invalid_operation\r
-dqshi791 shift 0 -Inf -> NaN Invalid_operation\r
-dqshi792 shift 1 -Inf -> NaN Invalid_operation\r
-dqshi793 shift 1000 -Inf -> NaN Invalid_operation\r
-dqshi794 shift Inf -Inf -> NaN Invalid_operation\r
-\r
-dqshi800 shift Inf -Inf -> NaN Invalid_operation\r
-dqshi801 shift Inf -8 -> Infinity\r
-dqshi802 shift Inf -1 -> Infinity\r
-dqshi803 shift Inf -0 -> Infinity\r
-dqshi804 shift Inf 0 -> Infinity\r
-dqshi805 shift Inf 1 -> Infinity\r
-dqshi806 shift Inf 8 -> Infinity\r
-dqshi807 shift Inf Inf -> NaN Invalid_operation\r
-dqshi808 shift -1000 Inf -> NaN Invalid_operation\r
-dqshi809 shift -Inf Inf -> NaN Invalid_operation\r
-dqshi810 shift -1 Inf -> NaN Invalid_operation\r
-dqshi811 shift -0 Inf -> NaN Invalid_operation\r
-dqshi812 shift 0 Inf -> NaN Invalid_operation\r
-dqshi813 shift 1 Inf -> NaN Invalid_operation\r
-dqshi814 shift 1000 Inf -> NaN Invalid_operation\r
-dqshi815 shift Inf Inf -> NaN Invalid_operation\r
-\r
-dqshi821 shift NaN -Inf -> NaN\r
-dqshi822 shift NaN -1000 -> NaN\r
-dqshi823 shift NaN -1 -> NaN\r
-dqshi824 shift NaN -0 -> NaN\r
-dqshi825 shift NaN 0 -> NaN\r
-dqshi826 shift NaN 1 -> NaN\r
-dqshi827 shift NaN 1000 -> NaN\r
-dqshi828 shift NaN Inf -> NaN\r
-dqshi829 shift NaN NaN -> NaN\r
-dqshi830 shift -Inf NaN -> NaN\r
-dqshi831 shift -1000 NaN -> NaN\r
-dqshi832 shift -1 NaN -> NaN\r
-dqshi833 shift -0 NaN -> NaN\r
-dqshi834 shift 0 NaN -> NaN\r
-dqshi835 shift 1 NaN -> NaN\r
-dqshi836 shift 1000 NaN -> NaN\r
-dqshi837 shift Inf NaN -> NaN\r
-\r
-dqshi841 shift sNaN -Inf -> NaN Invalid_operation\r
-dqshi842 shift sNaN -1000 -> NaN Invalid_operation\r
-dqshi843 shift sNaN -1 -> NaN Invalid_operation\r
-dqshi844 shift sNaN -0 -> NaN Invalid_operation\r
-dqshi845 shift sNaN 0 -> NaN Invalid_operation\r
-dqshi846 shift sNaN 1 -> NaN Invalid_operation\r
-dqshi847 shift sNaN 1000 -> NaN Invalid_operation\r
-dqshi848 shift sNaN NaN -> NaN Invalid_operation\r
-dqshi849 shift sNaN sNaN -> NaN Invalid_operation\r
-dqshi850 shift NaN sNaN -> NaN Invalid_operation\r
-dqshi851 shift -Inf sNaN -> NaN Invalid_operation\r
-dqshi852 shift -1000 sNaN -> NaN Invalid_operation\r
-dqshi853 shift -1 sNaN -> NaN Invalid_operation\r
-dqshi854 shift -0 sNaN -> NaN Invalid_operation\r
-dqshi855 shift 0 sNaN -> NaN Invalid_operation\r
-dqshi856 shift 1 sNaN -> NaN Invalid_operation\r
-dqshi857 shift 1000 sNaN -> NaN Invalid_operation\r
-dqshi858 shift Inf sNaN -> NaN Invalid_operation\r
-dqshi859 shift NaN sNaN -> NaN Invalid_operation\r
-\r
--- propagating NaNs\r
-dqshi861 shift NaN1 -Inf -> NaN1\r
-dqshi862 shift +NaN2 -1000 -> NaN2\r
-dqshi863 shift NaN3 1000 -> NaN3\r
-dqshi864 shift NaN4 Inf -> NaN4\r
-dqshi865 shift NaN5 +NaN6 -> NaN5\r
-dqshi866 shift -Inf NaN7 -> NaN7\r
-dqshi867 shift -1000 NaN8 -> NaN8\r
-dqshi868 shift 1000 NaN9 -> NaN9\r
-dqshi869 shift Inf +NaN10 -> NaN10\r
-dqshi871 shift sNaN11 -Inf -> NaN11 Invalid_operation\r
-dqshi872 shift sNaN12 -1000 -> NaN12 Invalid_operation\r
-dqshi873 shift sNaN13 1000 -> NaN13 Invalid_operation\r
-dqshi874 shift sNaN14 NaN17 -> NaN14 Invalid_operation\r
-dqshi875 shift sNaN15 sNaN18 -> NaN15 Invalid_operation\r
-dqshi876 shift NaN16 sNaN19 -> NaN19 Invalid_operation\r
-dqshi877 shift -Inf +sNaN20 -> NaN20 Invalid_operation\r
-dqshi878 shift -1000 sNaN21 -> NaN21 Invalid_operation\r
-dqshi879 shift 1000 sNaN22 -> NaN22 Invalid_operation\r
-dqshi880 shift Inf sNaN23 -> NaN23 Invalid_operation\r
-dqshi881 shift +NaN25 +sNaN24 -> NaN24 Invalid_operation\r
-dqshi882 shift -NaN26 NaN28 -> -NaN26\r
-dqshi883 shift -sNaN27 sNaN29 -> -NaN27 Invalid_operation\r
-dqshi884 shift 1000 -NaN30 -> -NaN30\r
-dqshi885 shift 1000 -sNaN31 -> -NaN31 Invalid_operation\r