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