| blob | f16537a35d7863b63faa0df4a6fc418877150399 |
1 ------------------------------------------------------------------------\r
2 -- ddCompareTotalMag.decTest -- decDouble comparison; abs. total order--\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 -- Note that we cannot assume add/subtract tests cover paths adequately,\r
23 -- here, because the code might be quite different (comparison cannot\r
24 -- overflow or underflow, so actual subtractions are not necessary).\r
25 -- Similarly, comparetotal will have some radically different paths\r
26 -- than compare.\r
27 \r
28 -- All operands and results are decDoubles.\r
29 precision: 16\r
30 maxExponent: 384\r
31 minExponent: -383\r
32 extended: 1\r
33 clamp: 1\r
34 rounding: half_even\r
35 \r
36 -- sanity checks\r
37 ddctm001 comparetotmag -2 -2 -> 0\r
38 ddctm002 comparetotmag -2 -1 -> 1\r
39 ddctm003 comparetotmag -2 0 -> 1\r
40 ddctm004 comparetotmag -2 1 -> 1\r
41 ddctm005 comparetotmag -2 2 -> 0\r
42 ddctm006 comparetotmag -1 -2 -> -1\r
43 ddctm007 comparetotmag -1 -1 -> 0\r
44 ddctm008 comparetotmag -1 0 -> 1\r
45 ddctm009 comparetotmag -1 1 -> 0\r
46 ddctm010 comparetotmag -1 2 -> -1\r
47 ddctm011 comparetotmag 0 -2 -> -1\r
48 ddctm012 comparetotmag 0 -1 -> -1\r
49 ddctm013 comparetotmag 0 0 -> 0\r
50 ddctm014 comparetotmag 0 1 -> -1\r
51 ddctm015 comparetotmag 0 2 -> -1\r
52 ddctm016 comparetotmag 1 -2 -> -1\r
53 ddctm017 comparetotmag 1 -1 -> 0\r
54 ddctm018 comparetotmag 1 0 -> 1\r
55 ddctm019 comparetotmag 1 1 -> 0\r
56 ddctm020 comparetotmag 1 2 -> -1\r
57 ddctm021 comparetotmag 2 -2 -> 0\r
58 ddctm022 comparetotmag 2 -1 -> 1\r
59 ddctm023 comparetotmag 2 0 -> 1\r
60 ddctm025 comparetotmag 2 1 -> 1\r
61 ddctm026 comparetotmag 2 2 -> 0\r
62 \r
63 ddctm031 comparetotmag -20 -20 -> 0\r
64 ddctm032 comparetotmag -20 -10 -> 1\r
65 ddctm033 comparetotmag -20 00 -> 1\r
66 ddctm034 comparetotmag -20 10 -> 1\r
67 ddctm035 comparetotmag -20 20 -> 0\r
68 ddctm036 comparetotmag -10 -20 -> -1\r
69 ddctm037 comparetotmag -10 -10 -> 0\r
70 ddctm038 comparetotmag -10 00 -> 1\r
71 ddctm039 comparetotmag -10 10 -> 0\r
72 ddctm040 comparetotmag -10 20 -> -1\r
73 ddctm041 comparetotmag 00 -20 -> -1\r
74 ddctm042 comparetotmag 00 -10 -> -1\r
75 ddctm043 comparetotmag 00 00 -> 0\r
76 ddctm044 comparetotmag 00 10 -> -1\r
77 ddctm045 comparetotmag 00 20 -> -1\r
78 ddctm046 comparetotmag 10 -20 -> -1\r
79 ddctm047 comparetotmag 10 -10 -> 0\r
80 ddctm048 comparetotmag 10 00 -> 1\r
81 ddctm049 comparetotmag 10 10 -> 0\r
82 ddctm050 comparetotmag 10 20 -> -1\r
83 ddctm051 comparetotmag 20 -20 -> 0\r
84 ddctm052 comparetotmag 20 -10 -> 1\r
85 ddctm053 comparetotmag 20 00 -> 1\r
86 ddctm055 comparetotmag 20 10 -> 1\r
87 ddctm056 comparetotmag 20 20 -> 0\r
88 \r
89 ddctm061 comparetotmag -2.0 -2.0 -> 0\r
90 ddctm062 comparetotmag -2.0 -1.0 -> 1\r
91 ddctm063 comparetotmag -2.0 0.0 -> 1\r
92 ddctm064 comparetotmag -2.0 1.0 -> 1\r
93 ddctm065 comparetotmag -2.0 2.0 -> 0\r
94 ddctm066 comparetotmag -1.0 -2.0 -> -1\r
95 ddctm067 comparetotmag -1.0 -1.0 -> 0\r
96 ddctm068 comparetotmag -1.0 0.0 -> 1\r
97 ddctm069 comparetotmag -1.0 1.0 -> 0\r
98 ddctm070 comparetotmag -1.0 2.0 -> -1\r
99 ddctm071 comparetotmag 0.0 -2.0 -> -1\r
100 ddctm072 comparetotmag 0.0 -1.0 -> -1\r
101 ddctm073 comparetotmag 0.0 0.0 -> 0\r
102 ddctm074 comparetotmag 0.0 1.0 -> -1\r
103 ddctm075 comparetotmag 0.0 2.0 -> -1\r
104 ddctm076 comparetotmag 1.0 -2.0 -> -1\r
105 ddctm077 comparetotmag 1.0 -1.0 -> 0\r
106 ddctm078 comparetotmag 1.0 0.0 -> 1\r
107 ddctm079 comparetotmag 1.0 1.0 -> 0\r
108 ddctm080 comparetotmag 1.0 2.0 -> -1\r
109 ddctm081 comparetotmag 2.0 -2.0 -> 0\r
110 ddctm082 comparetotmag 2.0 -1.0 -> 1\r
111 ddctm083 comparetotmag 2.0 0.0 -> 1\r
112 ddctm085 comparetotmag 2.0 1.0 -> 1\r
113 ddctm086 comparetotmag 2.0 2.0 -> 0\r
114 \r
115 -- now some cases which might overflow if subtract were used\r
116 ddctm090 comparetotmag 9.99999999E+384 9.99999999E+384 -> 0\r
117 ddctm091 comparetotmag -9.99999999E+384 9.99999999E+384 -> 0\r
118 ddctm092 comparetotmag 9.99999999E+384 -9.99999999E+384 -> 0\r
119 ddctm093 comparetotmag -9.99999999E+384 -9.99999999E+384 -> 0\r
120 \r
121 -- some differing length/exponent cases\r
122 -- in this first group, compare would compare all equal\r
123 ddctm100 comparetotmag 7.0 7.0 -> 0\r
124 ddctm101 comparetotmag 7.0 7 -> -1\r
125 ddctm102 comparetotmag 7 7.0 -> 1\r
126 ddctm103 comparetotmag 7E+0 7.0 -> 1\r
127 ddctm104 comparetotmag 70E-1 7.0 -> 0\r
128 ddctm105 comparetotmag 0.7E+1 7 -> 0\r
129 ddctm106 comparetotmag 70E-1 7 -> -1\r
130 ddctm107 comparetotmag 7.0 7E+0 -> -1\r
131 ddctm108 comparetotmag 7.0 70E-1 -> 0\r
132 ddctm109 comparetotmag 7 0.7E+1 -> 0\r
133 ddctm110 comparetotmag 7 70E-1 -> 1\r
134 \r
135 ddctm120 comparetotmag 8.0 7.0 -> 1\r
136 ddctm121 comparetotmag 8.0 7 -> 1\r
137 ddctm122 comparetotmag 8 7.0 -> 1\r
138 ddctm123 comparetotmag 8E+0 7.0 -> 1\r
139 ddctm124 comparetotmag 80E-1 7.0 -> 1\r
140 ddctm125 comparetotmag 0.8E+1 7 -> 1\r
141 ddctm126 comparetotmag 80E-1 7 -> 1\r
142 ddctm127 comparetotmag 8.0 7E+0 -> 1\r
143 ddctm128 comparetotmag 8.0 70E-1 -> 1\r
144 ddctm129 comparetotmag 8 0.7E+1 -> 1\r
145 ddctm130 comparetotmag 8 70E-1 -> 1\r
146 \r
147 ddctm140 comparetotmag 8.0 9.0 -> -1\r
148 ddctm141 comparetotmag 8.0 9 -> -1\r
149 ddctm142 comparetotmag 8 9.0 -> -1\r
150 ddctm143 comparetotmag 8E+0 9.0 -> -1\r
151 ddctm144 comparetotmag 80E-1 9.0 -> -1\r
152 ddctm145 comparetotmag 0.8E+1 9 -> -1\r
153 ddctm146 comparetotmag 80E-1 9 -> -1\r
154 ddctm147 comparetotmag 8.0 9E+0 -> -1\r
155 ddctm148 comparetotmag 8.0 90E-1 -> -1\r
156 ddctm149 comparetotmag 8 0.9E+1 -> -1\r
157 ddctm150 comparetotmag 8 90E-1 -> -1\r
158 \r
159 -- and again, with sign changes -+ ..\r
160 ddctm200 comparetotmag -7.0 7.0 -> 0\r
161 ddctm201 comparetotmag -7.0 7 -> -1\r
162 ddctm202 comparetotmag -7 7.0 -> 1\r
163 ddctm203 comparetotmag -7E+0 7.0 -> 1\r
164 ddctm204 comparetotmag -70E-1 7.0 -> 0\r
165 ddctm205 comparetotmag -0.7E+1 7 -> 0\r
166 ddctm206 comparetotmag -70E-1 7 -> -1\r
167 ddctm207 comparetotmag -7.0 7E+0 -> -1\r
168 ddctm208 comparetotmag -7.0 70E-1 -> 0\r
169 ddctm209 comparetotmag -7 0.7E+1 -> 0\r
170 ddctm210 comparetotmag -7 70E-1 -> 1\r
171 \r
172 ddctm220 comparetotmag -8.0 7.0 -> 1\r
173 ddctm221 comparetotmag -8.0 7 -> 1\r
174 ddctm222 comparetotmag -8 7.0 -> 1\r
175 ddctm223 comparetotmag -8E+0 7.0 -> 1\r
176 ddctm224 comparetotmag -80E-1 7.0 -> 1\r
177 ddctm225 comparetotmag -0.8E+1 7 -> 1\r
178 ddctm226 comparetotmag -80E-1 7 -> 1\r
179 ddctm227 comparetotmag -8.0 7E+0 -> 1\r
180 ddctm228 comparetotmag -8.0 70E-1 -> 1\r
181 ddctm229 comparetotmag -8 0.7E+1 -> 1\r
182 ddctm230 comparetotmag -8 70E-1 -> 1\r
183 \r
184 ddctm240 comparetotmag -8.0 9.0 -> -1\r
185 ddctm241 comparetotmag -8.0 9 -> -1\r
186 ddctm242 comparetotmag -8 9.0 -> -1\r
187 ddctm243 comparetotmag -8E+0 9.0 -> -1\r
188 ddctm244 comparetotmag -80E-1 9.0 -> -1\r
189 ddctm245 comparetotmag -0.8E+1 9 -> -1\r
190 ddctm246 comparetotmag -80E-1 9 -> -1\r
191 ddctm247 comparetotmag -8.0 9E+0 -> -1\r
192 ddctm248 comparetotmag -8.0 90E-1 -> -1\r
193 ddctm249 comparetotmag -8 0.9E+1 -> -1\r
194 ddctm250 comparetotmag -8 90E-1 -> -1\r
195 \r
196 -- and again, with sign changes +- ..\r
197 ddctm300 comparetotmag 7.0 -7.0 -> 0\r
198 ddctm301 comparetotmag 7.0 -7 -> -1\r
199 ddctm302 comparetotmag 7 -7.0 -> 1\r
200 ddctm303 comparetotmag 7E+0 -7.0 -> 1\r
201 ddctm304 comparetotmag 70E-1 -7.0 -> 0\r
202 ddctm305 comparetotmag .7E+1 -7 -> 0\r
203 ddctm306 comparetotmag 70E-1 -7 -> -1\r
204 ddctm307 comparetotmag 7.0 -7E+0 -> -1\r
205 ddctm308 comparetotmag 7.0 -70E-1 -> 0\r
206 ddctm309 comparetotmag 7 -.7E+1 -> 0\r
207 ddctm310 comparetotmag 7 -70E-1 -> 1\r
208 \r
209 ddctm320 comparetotmag 8.0 -7.0 -> 1\r
210 ddctm321 comparetotmag 8.0 -7 -> 1\r
211 ddctm322 comparetotmag 8 -7.0 -> 1\r
212 ddctm323 comparetotmag 8E+0 -7.0 -> 1\r
213 ddctm324 comparetotmag 80E-1 -7.0 -> 1\r
214 ddctm325 comparetotmag .8E+1 -7 -> 1\r
215 ddctm326 comparetotmag 80E-1 -7 -> 1\r
216 ddctm327 comparetotmag 8.0 -7E+0 -> 1\r
217 ddctm328 comparetotmag 8.0 -70E-1 -> 1\r
218 ddctm329 comparetotmag 8 -.7E+1 -> 1\r
219 ddctm330 comparetotmag 8 -70E-1 -> 1\r
220 \r
221 ddctm340 comparetotmag 8.0 -9.0 -> -1\r
222 ddctm341 comparetotmag 8.0 -9 -> -1\r
223 ddctm342 comparetotmag 8 -9.0 -> -1\r
224 ddctm343 comparetotmag 8E+0 -9.0 -> -1\r
225 ddctm344 comparetotmag 80E-1 -9.0 -> -1\r
226 ddctm345 comparetotmag .8E+1 -9 -> -1\r
227 ddctm346 comparetotmag 80E-1 -9 -> -1\r
228 ddctm347 comparetotmag 8.0 -9E+0 -> -1\r
229 ddctm348 comparetotmag 8.0 -90E-1 -> -1\r
230 ddctm349 comparetotmag 8 -.9E+1 -> -1\r
231 ddctm350 comparetotmag 8 -90E-1 -> -1\r
232 \r
233 -- and again, with sign changes -- ..\r
234 ddctm400 comparetotmag -7.0 -7.0 -> 0\r
235 ddctm401 comparetotmag -7.0 -7 -> -1\r
236 ddctm402 comparetotmag -7 -7.0 -> 1\r
237 ddctm403 comparetotmag -7E+0 -7.0 -> 1\r
238 ddctm404 comparetotmag -70E-1 -7.0 -> 0\r
239 ddctm405 comparetotmag -.7E+1 -7 -> 0\r
240 ddctm406 comparetotmag -70E-1 -7 -> -1\r
241 ddctm407 comparetotmag -7.0 -7E+0 -> -1\r
242 ddctm408 comparetotmag -7.0 -70E-1 -> 0\r
243 ddctm409 comparetotmag -7 -.7E+1 -> 0\r
244 ddctm410 comparetotmag -7 -70E-1 -> 1\r
245 \r
246 ddctm420 comparetotmag -8.0 -7.0 -> 1\r
247 ddctm421 comparetotmag -8.0 -7 -> 1\r
248 ddctm422 comparetotmag -8 -7.0 -> 1\r
249 ddctm423 comparetotmag -8E+0 -7.0 -> 1\r
250 ddctm424 comparetotmag -80E-1 -7.0 -> 1\r
251 ddctm425 comparetotmag -.8E+1 -7 -> 1\r
252 ddctm426 comparetotmag -80E-1 -7 -> 1\r
253 ddctm427 comparetotmag -8.0 -7E+0 -> 1\r
254 ddctm428 comparetotmag -8.0 -70E-1 -> 1\r
255 ddctm429 comparetotmag -8 -.7E+1 -> 1\r
256 ddctm430 comparetotmag -8 -70E-1 -> 1\r
257 \r
258 ddctm440 comparetotmag -8.0 -9.0 -> -1\r
259 ddctm441 comparetotmag -8.0 -9 -> -1\r
260 ddctm442 comparetotmag -8 -9.0 -> -1\r
261 ddctm443 comparetotmag -8E+0 -9.0 -> -1\r
262 ddctm444 comparetotmag -80E-1 -9.0 -> -1\r
263 ddctm445 comparetotmag -.8E+1 -9 -> -1\r
264 ddctm446 comparetotmag -80E-1 -9 -> -1\r
265 ddctm447 comparetotmag -8.0 -9E+0 -> -1\r
266 ddctm448 comparetotmag -8.0 -90E-1 -> -1\r
267 ddctm449 comparetotmag -8 -.9E+1 -> -1\r
268 ddctm450 comparetotmag -8 -90E-1 -> -1\r
269 \r
270 \r
271 -- testcases that subtract to lots of zeros at boundaries [pgr]\r
272 ddctm473 comparetotmag 123.4560000000000E-89 123.456E-89 -> -1\r
273 ddctm474 comparetotmag 123.456000000000E+89 123.456E+89 -> -1\r
274 ddctm475 comparetotmag 123.45600000000E-89 123.456E-89 -> -1\r
275 ddctm476 comparetotmag 123.4560000000E+89 123.456E+89 -> -1\r
276 ddctm477 comparetotmag 123.456000000E-89 123.456E-89 -> -1\r
277 ddctm478 comparetotmag 123.45600000E+89 123.456E+89 -> -1\r
278 ddctm479 comparetotmag 123.4560000E-89 123.456E-89 -> -1\r
279 ddctm480 comparetotmag 123.456000E+89 123.456E+89 -> -1\r
280 ddctm481 comparetotmag 123.45600E-89 123.456E-89 -> -1\r
281 ddctm482 comparetotmag 123.4560E+89 123.456E+89 -> -1\r
282 ddctm483 comparetotmag 123.456E-89 123.456E-89 -> 0\r
283 ddctm487 comparetotmag 123.456E+89 123.4560000000000E+89 -> 1\r
284 ddctm488 comparetotmag 123.456E-89 123.456000000000E-89 -> 1\r
285 ddctm489 comparetotmag 123.456E+89 123.45600000000E+89 -> 1\r
286 ddctm490 comparetotmag 123.456E-89 123.4560000000E-89 -> 1\r
287 ddctm491 comparetotmag 123.456E+89 123.456000000E+89 -> 1\r
288 ddctm492 comparetotmag 123.456E-89 123.45600000E-89 -> 1\r
289 ddctm493 comparetotmag 123.456E+89 123.4560000E+89 -> 1\r
290 ddctm494 comparetotmag 123.456E-89 123.456000E-89 -> 1\r
291 ddctm495 comparetotmag 123.456E+89 123.45600E+89 -> 1\r
292 ddctm496 comparetotmag 123.456E-89 123.4560E-89 -> 1\r
293 ddctm497 comparetotmag 123.456E+89 123.456E+89 -> 0\r
294 \r
295 -- wide-ranging, around precision; signs equal\r
296 ddctm498 comparetotmag 1 1E-17 -> 1\r
297 ddctm499 comparetotmag 1 1E-16 -> 1\r
298 ddctm500 comparetotmag 1 1E-15 -> 1\r
299 ddctm501 comparetotmag 1 1E-14 -> 1\r
300 ddctm502 comparetotmag 1 1E-13 -> 1\r
301 ddctm503 comparetotmag 1 1E-12 -> 1\r
302 ddctm504 comparetotmag 1 1E-11 -> 1\r
303 ddctm505 comparetotmag 1 1E-10 -> 1\r
304 ddctm506 comparetotmag 1 1E-9 -> 1\r
305 ddctm507 comparetotmag 1 1E-8 -> 1\r
306 ddctm508 comparetotmag 1 1E-7 -> 1\r
307 ddctm509 comparetotmag 1 1E-6 -> 1\r
308 ddctm510 comparetotmag 1 1E-5 -> 1\r
309 ddctm511 comparetotmag 1 1E-4 -> 1\r
310 ddctm512 comparetotmag 1 1E-3 -> 1\r
311 ddctm513 comparetotmag 1 1E-2 -> 1\r
312 ddctm514 comparetotmag 1 1E-1 -> 1\r
313 ddctm515 comparetotmag 1 1E-0 -> 0\r
314 ddctm516 comparetotmag 1 1E+1 -> -1\r
315 ddctm517 comparetotmag 1 1E+2 -> -1\r
316 ddctm518 comparetotmag 1 1E+3 -> -1\r
317 ddctm519 comparetotmag 1 1E+4 -> -1\r
318 ddctm521 comparetotmag 1 1E+5 -> -1\r
319 ddctm522 comparetotmag 1 1E+6 -> -1\r
320 ddctm523 comparetotmag 1 1E+7 -> -1\r
321 ddctm524 comparetotmag 1 1E+8 -> -1\r
322 ddctm525 comparetotmag 1 1E+9 -> -1\r
323 ddctm526 comparetotmag 1 1E+10 -> -1\r
324 ddctm527 comparetotmag 1 1E+11 -> -1\r
325 ddctm528 comparetotmag 1 1E+12 -> -1\r
326 ddctm529 comparetotmag 1 1E+13 -> -1\r
327 ddctm530 comparetotmag 1 1E+14 -> -1\r
328 ddctm531 comparetotmag 1 1E+15 -> -1\r
329 ddctm532 comparetotmag 1 1E+16 -> -1\r
330 ddctm533 comparetotmag 1 1E+17 -> -1\r
331 -- LR swap\r
332 ddctm538 comparetotmag 1E-17 1 -> -1\r
333 ddctm539 comparetotmag 1E-16 1 -> -1\r
334 ddctm540 comparetotmag 1E-15 1 -> -1\r
335 ddctm541 comparetotmag 1E-14 1 -> -1\r
336 ddctm542 comparetotmag 1E-13 1 -> -1\r
337 ddctm543 comparetotmag 1E-12 1 -> -1\r
338 ddctm544 comparetotmag 1E-11 1 -> -1\r
339 ddctm545 comparetotmag 1E-10 1 -> -1\r
340 ddctm546 comparetotmag 1E-9 1 -> -1\r
341 ddctm547 comparetotmag 1E-8 1 -> -1\r
342 ddctm548 comparetotmag 1E-7 1 -> -1\r
343 ddctm549 comparetotmag 1E-6 1 -> -1\r
344 ddctm550 comparetotmag 1E-5 1 -> -1\r
345 ddctm551 comparetotmag 1E-4 1 -> -1\r
346 ddctm552 comparetotmag 1E-3 1 -> -1\r
347 ddctm553 comparetotmag 1E-2 1 -> -1\r
348 ddctm554 comparetotmag 1E-1 1 -> -1\r
349 ddctm555 comparetotmag 1E-0 1 -> 0\r
350 ddctm556 comparetotmag 1E+1 1 -> 1\r
351 ddctm557 comparetotmag 1E+2 1 -> 1\r
352 ddctm558 comparetotmag 1E+3 1 -> 1\r
353 ddctm559 comparetotmag 1E+4 1 -> 1\r
354 ddctm561 comparetotmag 1E+5 1 -> 1\r
355 ddctm562 comparetotmag 1E+6 1 -> 1\r
356 ddctm563 comparetotmag 1E+7 1 -> 1\r
357 ddctm564 comparetotmag 1E+8 1 -> 1\r
358 ddctm565 comparetotmag 1E+9 1 -> 1\r
359 ddctm566 comparetotmag 1E+10 1 -> 1\r
360 ddctm567 comparetotmag 1E+11 1 -> 1\r
361 ddctm568 comparetotmag 1E+12 1 -> 1\r
362 ddctm569 comparetotmag 1E+13 1 -> 1\r
363 ddctm570 comparetotmag 1E+14 1 -> 1\r
364 ddctm571 comparetotmag 1E+15 1 -> 1\r
365 ddctm572 comparetotmag 1E+16 1 -> 1\r
366 ddctm573 comparetotmag 1E+17 1 -> 1\r
367 -- similar with a useful coefficient, one side only\r
368 ddctm578 comparetotmag 0.000000987654321 1E-17 -> 1\r
369 ddctm579 comparetotmag 0.000000987654321 1E-16 -> 1\r
370 ddctm580 comparetotmag 0.000000987654321 1E-15 -> 1\r
371 ddctm581 comparetotmag 0.000000987654321 1E-14 -> 1\r
372 ddctm582 comparetotmag 0.000000987654321 1E-13 -> 1\r
373 ddctm583 comparetotmag 0.000000987654321 1E-12 -> 1\r
374 ddctm584 comparetotmag 0.000000987654321 1E-11 -> 1\r
375 ddctm585 comparetotmag 0.000000987654321 1E-10 -> 1\r
376 ddctm586 comparetotmag 0.000000987654321 1E-9 -> 1\r
377 ddctm587 comparetotmag 0.000000987654321 1E-8 -> 1\r
378 ddctm588 comparetotmag 0.000000987654321 1E-7 -> 1\r
379 ddctm589 comparetotmag 0.000000987654321 1E-6 -> -1\r
380 ddctm590 comparetotmag 0.000000987654321 1E-5 -> -1\r
381 ddctm591 comparetotmag 0.000000987654321 1E-4 -> -1\r
382 ddctm592 comparetotmag 0.000000987654321 1E-3 -> -1\r
383 ddctm593 comparetotmag 0.000000987654321 1E-2 -> -1\r
384 ddctm594 comparetotmag 0.000000987654321 1E-1 -> -1\r
385 ddctm595 comparetotmag 0.000000987654321 1E-0 -> -1\r
386 ddctm596 comparetotmag 0.000000987654321 1E+1 -> -1\r
387 ddctm597 comparetotmag 0.000000987654321 1E+2 -> -1\r
388 ddctm598 comparetotmag 0.000000987654321 1E+3 -> -1\r
389 ddctm599 comparetotmag 0.000000987654321 1E+4 -> -1\r
390 \r
391 -- check some unit-y traps\r
392 ddctm600 comparetotmag 12 12.2345 -> -1\r
393 ddctm601 comparetotmag 12.0 12.2345 -> -1\r
394 ddctm602 comparetotmag 12.00 12.2345 -> -1\r
395 ddctm603 comparetotmag 12.000 12.2345 -> -1\r
396 ddctm604 comparetotmag 12.0000 12.2345 -> -1\r
397 ddctm605 comparetotmag 12.00000 12.2345 -> -1\r
398 ddctm606 comparetotmag 12.000000 12.2345 -> -1\r
399 ddctm607 comparetotmag 12.0000000 12.2345 -> -1\r
400 ddctm608 comparetotmag 12.00000000 12.2345 -> -1\r
401 ddctm609 comparetotmag 12.000000000 12.2345 -> -1\r
402 ddctm610 comparetotmag 12.1234 12 -> 1\r
403 ddctm611 comparetotmag 12.1234 12.0 -> 1\r
404 ddctm612 comparetotmag 12.1234 12.00 -> 1\r
405 ddctm613 comparetotmag 12.1234 12.000 -> 1\r
406 ddctm614 comparetotmag 12.1234 12.0000 -> 1\r
407 ddctm615 comparetotmag 12.1234 12.00000 -> 1\r
408 ddctm616 comparetotmag 12.1234 12.000000 -> 1\r
409 ddctm617 comparetotmag 12.1234 12.0000000 -> 1\r
410 ddctm618 comparetotmag 12.1234 12.00000000 -> 1\r
411 ddctm619 comparetotmag 12.1234 12.000000000 -> 1\r
412 ddctm620 comparetotmag -12 -12.2345 -> -1\r
413 ddctm621 comparetotmag -12.0 -12.2345 -> -1\r
414 ddctm622 comparetotmag -12.00 -12.2345 -> -1\r
415 ddctm623 comparetotmag -12.000 -12.2345 -> -1\r
416 ddctm624 comparetotmag -12.0000 -12.2345 -> -1\r
417 ddctm625 comparetotmag -12.00000 -12.2345 -> -1\r
418 ddctm626 comparetotmag -12.000000 -12.2345 -> -1\r
419 ddctm627 comparetotmag -12.0000000 -12.2345 -> -1\r
420 ddctm628 comparetotmag -12.00000000 -12.2345 -> -1\r
421 ddctm629 comparetotmag -12.000000000 -12.2345 -> -1\r
422 ddctm630 comparetotmag -12.1234 -12 -> 1\r
423 ddctm631 comparetotmag -12.1234 -12.0 -> 1\r
424 ddctm632 comparetotmag -12.1234 -12.00 -> 1\r
425 ddctm633 comparetotmag -12.1234 -12.000 -> 1\r
426 ddctm634 comparetotmag -12.1234 -12.0000 -> 1\r
427 ddctm635 comparetotmag -12.1234 -12.00000 -> 1\r
428 ddctm636 comparetotmag -12.1234 -12.000000 -> 1\r
429 ddctm637 comparetotmag -12.1234 -12.0000000 -> 1\r
430 ddctm638 comparetotmag -12.1234 -12.00000000 -> 1\r
431 ddctm639 comparetotmag -12.1234 -12.000000000 -> 1\r
432 \r
433 -- extended zeros\r
434 ddctm640 comparetotmag 0 0 -> 0\r
435 ddctm641 comparetotmag 0 -0 -> 0\r
436 ddctm642 comparetotmag 0 -0.0 -> 1\r
437 ddctm643 comparetotmag 0 0.0 -> 1\r
438 ddctm644 comparetotmag -0 0 -> 0\r
439 ddctm645 comparetotmag -0 -0 -> 0\r
440 ddctm646 comparetotmag -0 -0.0 -> 1\r
441 ddctm647 comparetotmag -0 0.0 -> 1\r
442 ddctm648 comparetotmag 0.0 0 -> -1\r
443 ddctm649 comparetotmag 0.0 -0 -> -1\r
444 ddctm650 comparetotmag 0.0 -0.0 -> 0\r
445 ddctm651 comparetotmag 0.0 0.0 -> 0\r
446 ddctm652 comparetotmag -0.0 0 -> -1\r
447 ddctm653 comparetotmag -0.0 -0 -> -1\r
448 ddctm654 comparetotmag -0.0 -0.0 -> 0\r
449 ddctm655 comparetotmag -0.0 0.0 -> 0\r
450 \r
451 ddctm656 comparetotmag -0E1 0.0 -> 1\r
452 ddctm657 comparetotmag -0E2 0.0 -> 1\r
453 ddctm658 comparetotmag 0E1 0.0 -> 1\r
454 ddctm659 comparetotmag 0E2 0.0 -> 1\r
455 ddctm660 comparetotmag -0E1 0 -> 1\r
456 ddctm661 comparetotmag -0E2 0 -> 1\r
457 ddctm662 comparetotmag 0E1 0 -> 1\r
458 ddctm663 comparetotmag 0E2 0 -> 1\r
459 ddctm664 comparetotmag -0E1 -0E1 -> 0\r
460 ddctm665 comparetotmag -0E2 -0E1 -> 1\r
461 ddctm666 comparetotmag 0E1 -0E1 -> 0\r
462 ddctm667 comparetotmag 0E2 -0E1 -> 1\r
463 ddctm668 comparetotmag -0E1 -0E2 -> -1\r
464 ddctm669 comparetotmag -0E2 -0E2 -> 0\r
465 ddctm670 comparetotmag 0E1 -0E2 -> -1\r
466 ddctm671 comparetotmag 0E2 -0E2 -> 0\r
467 ddctm672 comparetotmag -0E1 0E1 -> 0\r
468 ddctm673 comparetotmag -0E2 0E1 -> 1\r
469 ddctm674 comparetotmag 0E1 0E1 -> 0\r
470 ddctm675 comparetotmag 0E2 0E1 -> 1\r
471 ddctm676 comparetotmag -0E1 0E2 -> -1\r
472 ddctm677 comparetotmag -0E2 0E2 -> 0\r
473 ddctm678 comparetotmag 0E1 0E2 -> -1\r
474 ddctm679 comparetotmag 0E2 0E2 -> 0\r
475 \r
476 -- trailing zeros; unit-y\r
477 ddctm680 comparetotmag 12 12 -> 0\r
478 ddctm681 comparetotmag 12 12.0 -> 1\r
479 ddctm682 comparetotmag 12 12.00 -> 1\r
480 ddctm683 comparetotmag 12 12.000 -> 1\r
481 ddctm684 comparetotmag 12 12.0000 -> 1\r
482 ddctm685 comparetotmag 12 12.00000 -> 1\r
483 ddctm686 comparetotmag 12 12.000000 -> 1\r
484 ddctm687 comparetotmag 12 12.0000000 -> 1\r
485 ddctm688 comparetotmag 12 12.00000000 -> 1\r
486 ddctm689 comparetotmag 12 12.000000000 -> 1\r
487 ddctm690 comparetotmag 12 12 -> 0\r
488 ddctm691 comparetotmag 12.0 12 -> -1\r
489 ddctm692 comparetotmag 12.00 12 -> -1\r
490 ddctm693 comparetotmag 12.000 12 -> -1\r
491 ddctm694 comparetotmag 12.0000 12 -> -1\r
492 ddctm695 comparetotmag 12.00000 12 -> -1\r
493 ddctm696 comparetotmag 12.000000 12 -> -1\r
494 ddctm697 comparetotmag 12.0000000 12 -> -1\r
495 ddctm698 comparetotmag 12.00000000 12 -> -1\r
496 ddctm699 comparetotmag 12.000000000 12 -> -1\r
497 \r
498 -- old long operand checks\r
499 ddctm701 comparetotmag 12345678000 1 -> 1\r
500 ddctm702 comparetotmag 1 12345678000 -> -1\r
501 ddctm703 comparetotmag 1234567800 1 -> 1\r
502 ddctm704 comparetotmag 1 1234567800 -> -1\r
503 ddctm705 comparetotmag 1234567890 1 -> 1\r
504 ddctm706 comparetotmag 1 1234567890 -> -1\r
505 ddctm707 comparetotmag 1234567891 1 -> 1\r
506 ddctm708 comparetotmag 1 1234567891 -> -1\r
507 ddctm709 comparetotmag 12345678901 1 -> 1\r
508 ddctm710 comparetotmag 1 12345678901 -> -1\r
509 ddctm711 comparetotmag 1234567896 1 -> 1\r
510 ddctm712 comparetotmag 1 1234567896 -> -1\r
511 ddctm713 comparetotmag -1234567891 1 -> 1\r
512 ddctm714 comparetotmag 1 -1234567891 -> -1\r
513 ddctm715 comparetotmag -12345678901 1 -> 1\r
514 ddctm716 comparetotmag 1 -12345678901 -> -1\r
515 ddctm717 comparetotmag -1234567896 1 -> 1\r
516 ddctm718 comparetotmag 1 -1234567896 -> -1\r
517 \r
518 -- old residue cases\r
519 ddctm740 comparetotmag 1 0.9999999 -> 1\r
520 ddctm741 comparetotmag 1 0.999999 -> 1\r
521 ddctm742 comparetotmag 1 0.99999 -> 1\r
522 ddctm743 comparetotmag 1 1.0000 -> 1\r
523 ddctm744 comparetotmag 1 1.00001 -> -1\r
524 ddctm745 comparetotmag 1 1.000001 -> -1\r
525 ddctm746 comparetotmag 1 1.0000001 -> -1\r
526 ddctm750 comparetotmag 0.9999999 1 -> -1\r
527 ddctm751 comparetotmag 0.999999 1 -> -1\r
528 ddctm752 comparetotmag 0.99999 1 -> -1\r
529 ddctm753 comparetotmag 1.0000 1 -> -1\r
530 ddctm754 comparetotmag 1.00001 1 -> 1\r
531 ddctm755 comparetotmag 1.000001 1 -> 1\r
532 ddctm756 comparetotmag 1.0000001 1 -> 1\r
533 \r
534 -- Specials\r
535 ddctm780 comparetotmag Inf -Inf -> 0\r
536 ddctm781 comparetotmag Inf -1000 -> 1\r
537 ddctm782 comparetotmag Inf -1 -> 1\r
538 ddctm783 comparetotmag Inf -0 -> 1\r
539 ddctm784 comparetotmag Inf 0 -> 1\r
540 ddctm785 comparetotmag Inf 1 -> 1\r
541 ddctm786 comparetotmag Inf 1000 -> 1\r
542 ddctm787 comparetotmag Inf Inf -> 0\r
543 ddctm788 comparetotmag -1000 Inf -> -1\r
544 ddctm789 comparetotmag -Inf Inf -> 0\r
545 ddctm790 comparetotmag -1 Inf -> -1\r
546 ddctm791 comparetotmag -0 Inf -> -1\r
547 ddctm792 comparetotmag 0 Inf -> -1\r
548 ddctm793 comparetotmag 1 Inf -> -1\r
549 ddctm794 comparetotmag 1000 Inf -> -1\r
550 ddctm795 comparetotmag Inf Inf -> 0\r
551 \r
552 ddctm800 comparetotmag -Inf -Inf -> 0\r
553 ddctm801 comparetotmag -Inf -1000 -> 1\r
554 ddctm802 comparetotmag -Inf -1 -> 1\r
555 ddctm803 comparetotmag -Inf -0 -> 1\r
556 ddctm804 comparetotmag -Inf 0 -> 1\r
557 ddctm805 comparetotmag -Inf 1 -> 1\r
558 ddctm806 comparetotmag -Inf 1000 -> 1\r
559 ddctm807 comparetotmag -Inf Inf -> 0\r
560 ddctm808 comparetotmag -Inf -Inf -> 0\r
561 ddctm809 comparetotmag -1000 -Inf -> -1\r
562 ddctm810 comparetotmag -1 -Inf -> -1\r
563 ddctm811 comparetotmag -0 -Inf -> -1\r
564 ddctm812 comparetotmag 0 -Inf -> -1\r
565 ddctm813 comparetotmag 1 -Inf -> -1\r
566 ddctm814 comparetotmag 1000 -Inf -> -1\r
567 ddctm815 comparetotmag Inf -Inf -> 0\r
568 \r
569 ddctm821 comparetotmag NaN -Inf -> 1\r
570 ddctm822 comparetotmag NaN -1000 -> 1\r
571 ddctm823 comparetotmag NaN -1 -> 1\r
572 ddctm824 comparetotmag NaN -0 -> 1\r
573 ddctm825 comparetotmag NaN 0 -> 1\r
574 ddctm826 comparetotmag NaN 1 -> 1\r
575 ddctm827 comparetotmag NaN 1000 -> 1\r
576 ddctm828 comparetotmag NaN Inf -> 1\r
577 ddctm829 comparetotmag NaN NaN -> 0\r
578 ddctm830 comparetotmag -Inf NaN -> -1\r
579 ddctm831 comparetotmag -1000 NaN -> -1\r
580 ddctm832 comparetotmag -1 NaN -> -1\r
581 ddctm833 comparetotmag -0 NaN -> -1\r
582 ddctm834 comparetotmag 0 NaN -> -1\r
583 ddctm835 comparetotmag 1 NaN -> -1\r
584 ddctm836 comparetotmag 1000 NaN -> -1\r
585 ddctm837 comparetotmag Inf NaN -> -1\r
586 ddctm838 comparetotmag -NaN -NaN -> 0\r
587 ddctm839 comparetotmag +NaN -NaN -> 0\r
588 ddctm840 comparetotmag -NaN +NaN -> 0\r
589 \r
590 ddctm841 comparetotmag sNaN -sNaN -> 0\r
591 ddctm842 comparetotmag sNaN -NaN -> -1\r
592 ddctm843 comparetotmag sNaN -Inf -> 1\r
593 ddctm844 comparetotmag sNaN -1000 -> 1\r
594 ddctm845 comparetotmag sNaN -1 -> 1\r
595 ddctm846 comparetotmag sNaN -0 -> 1\r
596 ddctm847 comparetotmag sNaN 0 -> 1\r
597 ddctm848 comparetotmag sNaN 1 -> 1\r
598 ddctm849 comparetotmag sNaN 1000 -> 1\r
599 ddctm850 comparetotmag sNaN NaN -> -1\r
600 ddctm851 comparetotmag sNaN sNaN -> 0\r
601 \r
602 ddctm852 comparetotmag -sNaN sNaN -> 0\r
603 ddctm853 comparetotmag -NaN sNaN -> 1\r
604 ddctm854 comparetotmag -Inf sNaN -> -1\r
605 ddctm855 comparetotmag -1000 sNaN -> -1\r
606 ddctm856 comparetotmag -1 sNaN -> -1\r
607 ddctm857 comparetotmag -0 sNaN -> -1\r
608 ddctm858 comparetotmag 0 sNaN -> -1\r
609 ddctm859 comparetotmag 1 sNaN -> -1\r
610 ddctm860 comparetotmag 1000 sNaN -> -1\r
611 ddctm861 comparetotmag Inf sNaN -> -1\r
612 ddctm862 comparetotmag NaN sNaN -> 1\r
613 ddctm863 comparetotmag sNaN sNaN -> 0\r
614 \r
615 ddctm871 comparetotmag -sNaN -sNaN -> 0\r
616 ddctm872 comparetotmag -sNaN -NaN -> -1\r
617 ddctm873 comparetotmag -sNaN -Inf -> 1\r
618 ddctm874 comparetotmag -sNaN -1000 -> 1\r
619 ddctm875 comparetotmag -sNaN -1 -> 1\r
620 ddctm876 comparetotmag -sNaN -0 -> 1\r
621 ddctm877 comparetotmag -sNaN 0 -> 1\r
622 ddctm878 comparetotmag -sNaN 1 -> 1\r
623 ddctm879 comparetotmag -sNaN 1000 -> 1\r
624 ddctm880 comparetotmag -sNaN NaN -> -1\r
625 ddctm881 comparetotmag -sNaN sNaN -> 0\r
626 \r
627 ddctm882 comparetotmag -sNaN -sNaN -> 0\r
628 ddctm883 comparetotmag -NaN -sNaN -> 1\r
629 ddctm884 comparetotmag -Inf -sNaN -> -1\r
630 ddctm885 comparetotmag -1000 -sNaN -> -1\r
631 ddctm886 comparetotmag -1 -sNaN -> -1\r
632 ddctm887 comparetotmag -0 -sNaN -> -1\r
633 ddctm888 comparetotmag 0 -sNaN -> -1\r
634 ddctm889 comparetotmag 1 -sNaN -> -1\r
635 ddctm890 comparetotmag 1000 -sNaN -> -1\r
636 ddctm891 comparetotmag Inf -sNaN -> -1\r
637 ddctm892 comparetotmag NaN -sNaN -> 1\r
638 ddctm893 comparetotmag sNaN -sNaN -> 0\r
639 \r
640 -- NaNs with payload\r
641 ddctm960 comparetotmag NaN9 -Inf -> 1\r
642 ddctm961 comparetotmag NaN8 999 -> 1\r
643 ddctm962 comparetotmag NaN77 Inf -> 1\r
644 ddctm963 comparetotmag -NaN67 NaN5 -> 1\r
645 ddctm964 comparetotmag -Inf -NaN4 -> -1\r
646 ddctm965 comparetotmag -999 -NaN33 -> -1\r
647 ddctm966 comparetotmag Inf NaN2 -> -1\r
648 \r
649 ddctm970 comparetotmag -NaN41 -NaN42 -> -1\r
650 ddctm971 comparetotmag +NaN41 -NaN42 -> -1\r
651 ddctm972 comparetotmag -NaN41 +NaN42 -> -1\r
652 ddctm973 comparetotmag +NaN41 +NaN42 -> -1\r
653 ddctm974 comparetotmag -NaN42 -NaN01 -> 1\r
654 ddctm975 comparetotmag +NaN42 -NaN01 -> 1\r
655 ddctm976 comparetotmag -NaN42 +NaN01 -> 1\r
656 ddctm977 comparetotmag +NaN42 +NaN01 -> 1\r
657 \r
658 ddctm980 comparetotmag -sNaN771 -sNaN772 -> -1\r
659 ddctm981 comparetotmag +sNaN771 -sNaN772 -> -1\r
660 ddctm982 comparetotmag -sNaN771 +sNaN772 -> -1\r
661 ddctm983 comparetotmag +sNaN771 +sNaN772 -> -1\r
662 ddctm984 comparetotmag -sNaN772 -sNaN771 -> 1\r
663 ddctm985 comparetotmag +sNaN772 -sNaN771 -> 1\r
664 ddctm986 comparetotmag -sNaN772 +sNaN771 -> 1\r
665 ddctm987 comparetotmag +sNaN772 +sNaN771 -> 1\r
666 \r
667 ddctm991 comparetotmag -sNaN99 -Inf -> 1\r
668 ddctm992 comparetotmag sNaN98 -11 -> 1\r
669 ddctm993 comparetotmag sNaN97 NaN -> -1\r
670 ddctm994 comparetotmag sNaN16 sNaN94 -> -1\r
671 ddctm995 comparetotmag NaN85 sNaN83 -> 1\r
672 ddctm996 comparetotmag -Inf sNaN92 -> -1\r
673 ddctm997 comparetotmag 088 sNaN81 -> -1\r
674 ddctm998 comparetotmag Inf sNaN90 -> -1\r
675 ddctm999 comparetotmag NaN -sNaN89 -> 1\r
676 \r
677 -- spread zeros\r
678 ddctm1110 comparetotmag 0E-383 0 -> -1\r
679 ddctm1111 comparetotmag 0E-383 -0 -> -1\r
680 ddctm1112 comparetotmag -0E-383 0 -> -1\r
681 ddctm1113 comparetotmag -0E-383 -0 -> -1\r
682 ddctm1114 comparetotmag 0E-383 0E+384 -> -1\r
683 ddctm1115 comparetotmag 0E-383 -0E+384 -> -1\r
684 ddctm1116 comparetotmag -0E-383 0E+384 -> -1\r
685 ddctm1117 comparetotmag -0E-383 -0E+384 -> -1\r
686 ddctm1118 comparetotmag 0 0E+384 -> -1\r
687 ddctm1119 comparetotmag 0 -0E+384 -> -1\r
688 ddctm1120 comparetotmag -0 0E+384 -> -1\r
689 ddctm1121 comparetotmag -0 -0E+384 -> -1\r
690 \r
691 ddctm1130 comparetotmag 0E+384 0 -> 1\r
692 ddctm1131 comparetotmag 0E+384 -0 -> 1\r
693 ddctm1132 comparetotmag -0E+384 0 -> 1\r
694 ddctm1133 comparetotmag -0E+384 -0 -> 1\r
695 ddctm1134 comparetotmag 0E+384 0E-383 -> 1\r
696 ddctm1135 comparetotmag 0E+384 -0E-383 -> 1\r
697 ddctm1136 comparetotmag -0E+384 0E-383 -> 1\r
698 ddctm1137 comparetotmag -0E+384 -0E-383 -> 1\r
699 ddctm1138 comparetotmag 0 0E-383 -> 1\r
700 ddctm1139 comparetotmag 0 -0E-383 -> 1\r
701 ddctm1140 comparetotmag -0 0E-383 -> 1\r
702 ddctm1141 comparetotmag -0 -0E-383 -> 1\r
703 \r
704 -- Null tests\r
705 ddctm9990 comparetotmag 10 # -> NaN Invalid_operation\r
706 ddctm9991 comparetotmag # 10 -> NaN Invalid_operation\r