]>
Commit | Line | Data |
---|---|---|
4710c53d | 1 | ------------------------------------------------------------------------\r |
2 | -- minus.decTest -- decimal negation --\r | |
3 | -- Copyright (c) IBM Corporation, 1981, 2008. All rights reserved. --\r | |
4 | ------------------------------------------------------------------------\r | |
5 | -- Please see the document "General Decimal Arithmetic Testcases" --\r | |
6 | -- at http://www2.hursley.ibm.com/decimal for the description of --\r | |
7 | -- these testcases. --\r | |
8 | -- --\r | |
9 | -- These testcases are experimental ('beta' versions), and they --\r | |
10 | -- may contain errors. They are offered on an as-is basis. In --\r | |
11 | -- particular, achieving the same results as the tests here is not --\r | |
12 | -- a guarantee that an implementation complies with any Standard --\r | |
13 | -- or specification. The tests are not exhaustive. --\r | |
14 | -- --\r | |
15 | -- Please send comments, suggestions, and corrections to the author: --\r | |
16 | -- Mike Cowlishaw, IBM Fellow --\r | |
17 | -- IBM UK, PO Box 31, Birmingham Road, Warwick CV34 5JL, UK --\r | |
18 | -- mfc@uk.ibm.com --\r | |
19 | ------------------------------------------------------------------------\r | |
20 | version: 2.59\r | |
21 | \r | |
22 | -- This set of tests primarily tests the existence of the operator.\r | |
23 | -- Subtraction, rounding, and more overflows are tested elsewhere.\r | |
24 | \r | |
25 | extended: 1\r | |
26 | precision: 9\r | |
27 | rounding: half_up\r | |
28 | maxExponent: 384\r | |
29 | minexponent: -383\r | |
30 | \r | |
31 | minx001 minus '1' -> '-1'\r | |
32 | minx002 minus '-1' -> '1'\r | |
33 | minx003 minus '1.00' -> '-1.00'\r | |
34 | minx004 minus '-1.00' -> '1.00'\r | |
35 | minx005 minus '0' -> '0'\r | |
36 | minx006 minus '0.00' -> '0.00'\r | |
37 | minx007 minus '00.0' -> '0.0'\r | |
38 | minx008 minus '00.00' -> '0.00'\r | |
39 | minx009 minus '00' -> '0'\r | |
40 | \r | |
41 | minx010 minus '-2' -> '2'\r | |
42 | minx011 minus '2' -> '-2'\r | |
43 | minx012 minus '-2.00' -> '2.00'\r | |
44 | minx013 minus '2.00' -> '-2.00'\r | |
45 | minx014 minus '-0' -> '0'\r | |
46 | minx015 minus '-0.00' -> '0.00'\r | |
47 | minx016 minus '-00.0' -> '0.0'\r | |
48 | minx017 minus '-00.00' -> '0.00'\r | |
49 | minx018 minus '-00' -> '0'\r | |
50 | \r | |
51 | -- "lhs" zeros in plus and minus have exponent = operand\r | |
52 | minx020 minus '-0E3' -> '0E+3'\r | |
53 | minx021 minus '-0E2' -> '0E+2'\r | |
54 | minx022 minus '-0E1' -> '0E+1'\r | |
55 | minx023 minus '-0E0' -> '0'\r | |
56 | minx024 minus '+0E0' -> '0'\r | |
57 | minx025 minus '+0E1' -> '0E+1'\r | |
58 | minx026 minus '+0E2' -> '0E+2'\r | |
59 | minx027 minus '+0E3' -> '0E+3'\r | |
60 | \r | |
61 | minx030 minus '-5E3' -> '5E+3'\r | |
62 | minx031 minus '-5E8' -> '5E+8'\r | |
63 | minx032 minus '-5E13' -> '5E+13'\r | |
64 | minx033 minus '-5E18' -> '5E+18'\r | |
65 | minx034 minus '+5E3' -> '-5E+3'\r | |
66 | minx035 minus '+5E8' -> '-5E+8'\r | |
67 | minx036 minus '+5E13' -> '-5E+13'\r | |
68 | minx037 minus '+5E18' -> '-5E+18'\r | |
69 | \r | |
70 | minx050 minus '-2000000' -> '2000000'\r | |
71 | minx051 minus '2000000' -> '-2000000'\r | |
72 | precision: 7\r | |
73 | minx052 minus '-2000000' -> '2000000'\r | |
74 | minx053 minus '2000000' -> '-2000000'\r | |
75 | precision: 6\r | |
76 | minx054 minus '-2000000' -> '2.00000E+6' Rounded\r | |
77 | minx055 minus '2000000' -> '-2.00000E+6' Rounded\r | |
78 | precision: 3\r | |
79 | minx056 minus '-2000000' -> '2.00E+6' Rounded\r | |
80 | minx057 minus '2000000' -> '-2.00E+6' Rounded\r | |
81 | \r | |
82 | -- more fixed, potential LHS swaps/overlays if done by 0 subtract x\r | |
83 | precision: 9\r | |
84 | minx060 minus '56267E-10' -> '-0.0000056267'\r | |
85 | minx061 minus '56267E-5' -> '-0.56267'\r | |
86 | minx062 minus '56267E-2' -> '-562.67'\r | |
87 | minx063 minus '56267E-1' -> '-5626.7'\r | |
88 | minx065 minus '56267E-0' -> '-56267'\r | |
89 | minx066 minus '56267E+0' -> '-56267'\r | |
90 | minx067 minus '56267E+1' -> '-5.6267E+5'\r | |
91 | minx068 minus '56267E+2' -> '-5.6267E+6'\r | |
92 | minx069 minus '56267E+3' -> '-5.6267E+7'\r | |
93 | minx070 minus '56267E+4' -> '-5.6267E+8'\r | |
94 | minx071 minus '56267E+5' -> '-5.6267E+9'\r | |
95 | minx072 minus '56267E+6' -> '-5.6267E+10'\r | |
96 | minx080 minus '-56267E-10' -> '0.0000056267'\r | |
97 | minx081 minus '-56267E-5' -> '0.56267'\r | |
98 | minx082 minus '-56267E-2' -> '562.67'\r | |
99 | minx083 minus '-56267E-1' -> '5626.7'\r | |
100 | minx085 minus '-56267E-0' -> '56267'\r | |
101 | minx086 minus '-56267E+0' -> '56267'\r | |
102 | minx087 minus '-56267E+1' -> '5.6267E+5'\r | |
103 | minx088 minus '-56267E+2' -> '5.6267E+6'\r | |
104 | minx089 minus '-56267E+3' -> '5.6267E+7'\r | |
105 | minx090 minus '-56267E+4' -> '5.6267E+8'\r | |
106 | minx091 minus '-56267E+5' -> '5.6267E+9'\r | |
107 | minx092 minus '-56267E+6' -> '5.6267E+10'\r | |
108 | \r | |
109 | \r | |
110 | -- overflow tests\r | |
111 | maxexponent: 999999999\r | |
112 | minexponent: -999999999\r | |
113 | precision: 3\r | |
114 | minx100 minus 9.999E+999999999 -> -Infinity Inexact Overflow Rounded\r | |
115 | minx101 minus -9.999E+999999999 -> Infinity Inexact Overflow Rounded\r | |
116 | \r | |
117 | -- subnormals and underflow\r | |
118 | precision: 3\r | |
119 | maxexponent: 999\r | |
120 | minexponent: -999\r | |
121 | minx110 minus 1.00E-999 -> -1.00E-999\r | |
122 | minx111 minus 0.1E-999 -> -1E-1000 Subnormal\r | |
123 | minx112 minus 0.10E-999 -> -1.0E-1000 Subnormal\r | |
124 | minx113 minus 0.100E-999 -> -1.0E-1000 Subnormal Rounded\r | |
125 | minx114 minus 0.01E-999 -> -1E-1001 Subnormal\r | |
126 | -- next is rounded to Emin\r | |
127 | minx115 minus 0.999E-999 -> -1.00E-999 Inexact Rounded Subnormal Underflow\r | |
128 | minx116 minus 0.099E-999 -> -1.0E-1000 Inexact Rounded Subnormal Underflow\r | |
129 | minx117 minus 0.009E-999 -> -1E-1001 Inexact Rounded Subnormal Underflow\r | |
130 | minx118 minus 0.001E-999 -> -0E-1001 Inexact Rounded Subnormal Underflow Clamped\r | |
131 | minx119 minus 0.0009E-999 -> -0E-1001 Inexact Rounded Subnormal Underflow Clamped\r | |
132 | minx120 minus 0.0001E-999 -> -0E-1001 Inexact Rounded Subnormal Underflow Clamped\r | |
133 | \r | |
134 | minx130 minus -1.00E-999 -> 1.00E-999\r | |
135 | minx131 minus -0.1E-999 -> 1E-1000 Subnormal\r | |
136 | minx132 minus -0.10E-999 -> 1.0E-1000 Subnormal\r | |
137 | minx133 minus -0.100E-999 -> 1.0E-1000 Subnormal Rounded\r | |
138 | minx134 minus -0.01E-999 -> 1E-1001 Subnormal\r | |
139 | -- next is rounded to Emin\r | |
140 | minx135 minus -0.999E-999 -> 1.00E-999 Inexact Rounded Subnormal Underflow\r | |
141 | minx136 minus -0.099E-999 -> 1.0E-1000 Inexact Rounded Subnormal Underflow\r | |
142 | minx137 minus -0.009E-999 -> 1E-1001 Inexact Rounded Subnormal Underflow\r | |
143 | minx138 minus -0.001E-999 -> 0E-1001 Inexact Rounded Subnormal Underflow Clamped\r | |
144 | minx139 minus -0.0009E-999 -> 0E-1001 Inexact Rounded Subnormal Underflow Clamped\r | |
145 | minx140 minus -0.0001E-999 -> 0E-1001 Inexact Rounded Subnormal Underflow Clamped\r | |
146 | \r | |
147 | \r | |
148 | -- long operand checks\r | |
149 | maxexponent: 999\r | |
150 | minexponent: -999\r | |
151 | precision: 9\r | |
152 | minx301 minus 12345678000 -> -1.23456780E+10 Rounded\r | |
153 | minx302 minus 1234567800 -> -1.23456780E+9 Rounded\r | |
154 | minx303 minus 1234567890 -> -1.23456789E+9 Rounded\r | |
155 | minx304 minus 1234567891 -> -1.23456789E+9 Inexact Rounded\r | |
156 | minx305 minus 12345678901 -> -1.23456789E+10 Inexact Rounded\r | |
157 | minx306 minus 1234567896 -> -1.23456790E+9 Inexact Rounded\r | |
158 | \r | |
159 | precision: 15\r | |
160 | -- still checking\r | |
161 | minx321 minus 12345678000 -> -12345678000\r | |
162 | minx322 minus 1234567800 -> -1234567800\r | |
163 | minx323 minus 1234567890 -> -1234567890\r | |
164 | minx324 minus 1234567891 -> -1234567891\r | |
165 | minx325 minus 12345678901 -> -12345678901\r | |
166 | minx326 minus 1234567896 -> -1234567896\r | |
167 | \r | |
168 | -- specials\r | |
169 | minx420 minus 'Inf' -> '-Infinity'\r | |
170 | minx421 minus '-Inf' -> 'Infinity'\r | |
171 | minx422 minus NaN -> NaN\r | |
172 | minx423 minus sNaN -> NaN Invalid_operation\r | |
173 | minx424 minus NaN255 -> NaN255\r | |
174 | minx425 minus sNaN256 -> NaN256 Invalid_operation\r | |
175 | minx426 minus -NaN -> -NaN\r | |
176 | minx427 minus -sNaN -> -NaN Invalid_operation\r | |
177 | minx428 minus -NaN255 -> -NaN255\r | |
178 | minx429 minus -sNaN256 -> -NaN256 Invalid_operation\r | |
179 | \r | |
180 | -- Null tests\r | |
181 | minx900 minus # -> NaN Invalid_operation\r | |
182 | \r |