Context Navigation

ddCompareSig.decTest

Last change on this file was 2, checked in by Yuri Dario, 15 years ago
Initial import for vendor code.
Property svn:eol-style set to `native`
File size: 27.1 KB

Line
1	------------------------------------------------------------------------
2	-- ddCompareSig.decTest -- decDouble comparison; all NaNs signal --
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@uk.ibm.com --
19	------------------------------------------------------------------------
20	version: 2.59
21
22	-- Note that we cannot assume add/subtract tests cover paths adequately,
23	-- here, because the code might be quite different (comparison cannot
24	-- overflow or underflow, so actual subtractions are not necessary).
25
26	-- All operands and results are decDoubles.
27	precision: 16
28	maxExponent: 384
29	minExponent: -383
30	extended: 1
31	clamp: 1
32	rounding: half_even
33
34	-- sanity checks
35	ddcms001 comparesig -2 -2 -> 0
36	ddcms002 comparesig -2 -1 -> -1
37	ddcms003 comparesig -2 0 -> -1
38	ddcms004 comparesig -2 1 -> -1
39	ddcms005 comparesig -2 2 -> -1
40	ddcms006 comparesig -1 -2 -> 1
41	ddcms007 comparesig -1 -1 -> 0
42	ddcms008 comparesig -1 0 -> -1
43	ddcms009 comparesig -1 1 -> -1
44	ddcms010 comparesig -1 2 -> -1
45	ddcms011 comparesig 0 -2 -> 1
46	ddcms012 comparesig 0 -1 -> 1
47	ddcms013 comparesig 0 0 -> 0
48	ddcms014 comparesig 0 1 -> -1
49	ddcms015 comparesig 0 2 -> -1
50	ddcms016 comparesig 1 -2 -> 1
51	ddcms017 comparesig 1 -1 -> 1
52	ddcms018 comparesig 1 0 -> 1
53	ddcms019 comparesig 1 1 -> 0
54	ddcms020 comparesig 1 2 -> -1
55	ddcms021 comparesig 2 -2 -> 1
56	ddcms022 comparesig 2 -1 -> 1
57	ddcms023 comparesig 2 0 -> 1
58	ddcms025 comparesig 2 1 -> 1
59	ddcms026 comparesig 2 2 -> 0
60
61	ddcms031 comparesig -20 -20 -> 0
62	ddcms032 comparesig -20 -10 -> -1
63	ddcms033 comparesig -20 00 -> -1
64	ddcms034 comparesig -20 10 -> -1
65	ddcms035 comparesig -20 20 -> -1
66	ddcms036 comparesig -10 -20 -> 1
67	ddcms037 comparesig -10 -10 -> 0
68	ddcms038 comparesig -10 00 -> -1
69	ddcms039 comparesig -10 10 -> -1
70	ddcms040 comparesig -10 20 -> -1
71	ddcms041 comparesig 00 -20 -> 1
72	ddcms042 comparesig 00 -10 -> 1
73	ddcms043 comparesig 00 00 -> 0
74	ddcms044 comparesig 00 10 -> -1
75	ddcms045 comparesig 00 20 -> -1
76	ddcms046 comparesig 10 -20 -> 1
77	ddcms047 comparesig 10 -10 -> 1
78	ddcms048 comparesig 10 00 -> 1
79	ddcms049 comparesig 10 10 -> 0
80	ddcms050 comparesig 10 20 -> -1
81	ddcms051 comparesig 20 -20 -> 1
82	ddcms052 comparesig 20 -10 -> 1
83	ddcms053 comparesig 20 00 -> 1
84	ddcms055 comparesig 20 10 -> 1
85	ddcms056 comparesig 20 20 -> 0
86
87	ddcms061 comparesig -2.0 -2.0 -> 0
88	ddcms062 comparesig -2.0 -1.0 -> -1
89	ddcms063 comparesig -2.0 0.0 -> -1
90	ddcms064 comparesig -2.0 1.0 -> -1
91	ddcms065 comparesig -2.0 2.0 -> -1
92	ddcms066 comparesig -1.0 -2.0 -> 1
93	ddcms067 comparesig -1.0 -1.0 -> 0
94	ddcms068 comparesig -1.0 0.0 -> -1
95	ddcms069 comparesig -1.0 1.0 -> -1
96	ddcms070 comparesig -1.0 2.0 -> -1
97	ddcms071 comparesig 0.0 -2.0 -> 1
98	ddcms072 comparesig 0.0 -1.0 -> 1
99	ddcms073 comparesig 0.0 0.0 -> 0
100	ddcms074 comparesig 0.0 1.0 -> -1
101	ddcms075 comparesig 0.0 2.0 -> -1
102	ddcms076 comparesig 1.0 -2.0 -> 1
103	ddcms077 comparesig 1.0 -1.0 -> 1
104	ddcms078 comparesig 1.0 0.0 -> 1
105	ddcms079 comparesig 1.0 1.0 -> 0
106	ddcms080 comparesig 1.0 2.0 -> -1
107	ddcms081 comparesig 2.0 -2.0 -> 1
108	ddcms082 comparesig 2.0 -1.0 -> 1
109	ddcms083 comparesig 2.0 0.0 -> 1
110	ddcms085 comparesig 2.0 1.0 -> 1
111	ddcms086 comparesig 2.0 2.0 -> 0
112
113	-- now some cases which might overflow if subtract were used
114	ddcms090 comparesig 9.999999999999999E+384 9.999999999999999E+384 -> 0
115	ddcms091 comparesig -9.999999999999999E+384 9.999999999999999E+384 -> -1
116	ddcms092 comparesig 9.999999999999999E+384 -9.999999999999999E+384 -> 1
117	ddcms093 comparesig -9.999999999999999E+384 -9.999999999999999E+384 -> 0
118
119	-- some differing length/exponent cases
120	ddcms100 comparesig 7.0 7.0 -> 0
121	ddcms101 comparesig 7.0 7 -> 0
122	ddcms102 comparesig 7 7.0 -> 0
123	ddcms103 comparesig 7E+0 7.0 -> 0
124	ddcms104 comparesig 70E-1 7.0 -> 0
125	ddcms105 comparesig 0.7E+1 7 -> 0
126	ddcms106 comparesig 70E-1 7 -> 0
127	ddcms107 comparesig 7.0 7E+0 -> 0
128	ddcms108 comparesig 7.0 70E-1 -> 0
129	ddcms109 comparesig 7 0.7E+1 -> 0
130	ddcms110 comparesig 7 70E-1 -> 0
131
132	ddcms120 comparesig 8.0 7.0 -> 1
133	ddcms121 comparesig 8.0 7 -> 1
134	ddcms122 comparesig 8 7.0 -> 1
135	ddcms123 comparesig 8E+0 7.0 -> 1
136	ddcms124 comparesig 80E-1 7.0 -> 1
137	ddcms125 comparesig 0.8E+1 7 -> 1
138	ddcms126 comparesig 80E-1 7 -> 1
139	ddcms127 comparesig 8.0 7E+0 -> 1
140	ddcms128 comparesig 8.0 70E-1 -> 1
141	ddcms129 comparesig 8 0.7E+1 -> 1
142	ddcms130 comparesig 8 70E-1 -> 1
143
144	ddcms140 comparesig 8.0 9.0 -> -1
145	ddcms141 comparesig 8.0 9 -> -1
146	ddcms142 comparesig 8 9.0 -> -1
147	ddcms143 comparesig 8E+0 9.0 -> -1
148	ddcms144 comparesig 80E-1 9.0 -> -1
149	ddcms145 comparesig 0.8E+1 9 -> -1
150	ddcms146 comparesig 80E-1 9 -> -1
151	ddcms147 comparesig 8.0 9E+0 -> -1
152	ddcms148 comparesig 8.0 90E-1 -> -1
153	ddcms149 comparesig 8 0.9E+1 -> -1
154	ddcms150 comparesig 8 90E-1 -> -1
155
156	-- and again, with sign changes -+ ..
157	ddcms200 comparesig -7.0 7.0 -> -1
158	ddcms201 comparesig -7.0 7 -> -1
159	ddcms202 comparesig -7 7.0 -> -1
160	ddcms203 comparesig -7E+0 7.0 -> -1
161	ddcms204 comparesig -70E-1 7.0 -> -1
162	ddcms205 comparesig -0.7E+1 7 -> -1
163	ddcms206 comparesig -70E-1 7 -> -1
164	ddcms207 comparesig -7.0 7E+0 -> -1
165	ddcms208 comparesig -7.0 70E-1 -> -1
166	ddcms209 comparesig -7 0.7E+1 -> -1
167	ddcms210 comparesig -7 70E-1 -> -1
168
169	ddcms220 comparesig -8.0 7.0 -> -1
170	ddcms221 comparesig -8.0 7 -> -1
171	ddcms222 comparesig -8 7.0 -> -1
172	ddcms223 comparesig -8E+0 7.0 -> -1
173	ddcms224 comparesig -80E-1 7.0 -> -1
174	ddcms225 comparesig -0.8E+1 7 -> -1
175	ddcms226 comparesig -80E-1 7 -> -1
176	ddcms227 comparesig -8.0 7E+0 -> -1
177	ddcms228 comparesig -8.0 70E-1 -> -1
178	ddcms229 comparesig -8 0.7E+1 -> -1
179	ddcms230 comparesig -8 70E-1 -> -1
180
181	ddcms240 comparesig -8.0 9.0 -> -1
182	ddcms241 comparesig -8.0 9 -> -1
183	ddcms242 comparesig -8 9.0 -> -1
184	ddcms243 comparesig -8E+0 9.0 -> -1
185	ddcms244 comparesig -80E-1 9.0 -> -1
186	ddcms245 comparesig -0.8E+1 9 -> -1
187	ddcms246 comparesig -80E-1 9 -> -1
188	ddcms247 comparesig -8.0 9E+0 -> -1
189	ddcms248 comparesig -8.0 90E-1 -> -1
190	ddcms249 comparesig -8 0.9E+1 -> -1
191	ddcms250 comparesig -8 90E-1 -> -1
192
193	-- and again, with sign changes +- ..
194	ddcms300 comparesig 7.0 -7.0 -> 1
195	ddcms301 comparesig 7.0 -7 -> 1
196	ddcms302 comparesig 7 -7.0 -> 1
197	ddcms303 comparesig 7E+0 -7.0 -> 1
198	ddcms304 comparesig 70E-1 -7.0 -> 1
199	ddcms305 comparesig .7E+1 -7 -> 1
200	ddcms306 comparesig 70E-1 -7 -> 1
201	ddcms307 comparesig 7.0 -7E+0 -> 1
202	ddcms308 comparesig 7.0 -70E-1 -> 1
203	ddcms309 comparesig 7 -.7E+1 -> 1
204	ddcms310 comparesig 7 -70E-1 -> 1
205
206	ddcms320 comparesig 8.0 -7.0 -> 1
207	ddcms321 comparesig 8.0 -7 -> 1
208	ddcms322 comparesig 8 -7.0 -> 1
209	ddcms323 comparesig 8E+0 -7.0 -> 1
210	ddcms324 comparesig 80E-1 -7.0 -> 1
211	ddcms325 comparesig .8E+1 -7 -> 1
212	ddcms326 comparesig 80E-1 -7 -> 1
213	ddcms327 comparesig 8.0 -7E+0 -> 1
214	ddcms328 comparesig 8.0 -70E-1 -> 1
215	ddcms329 comparesig 8 -.7E+1 -> 1
216	ddcms330 comparesig 8 -70E-1 -> 1
217
218	ddcms340 comparesig 8.0 -9.0 -> 1
219	ddcms341 comparesig 8.0 -9 -> 1
220	ddcms342 comparesig 8 -9.0 -> 1
221	ddcms343 comparesig 8E+0 -9.0 -> 1
222	ddcms344 comparesig 80E-1 -9.0 -> 1
223	ddcms345 comparesig .8E+1 -9 -> 1
224	ddcms346 comparesig 80E-1 -9 -> 1
225	ddcms347 comparesig 8.0 -9E+0 -> 1
226	ddcms348 comparesig 8.0 -90E-1 -> 1
227	ddcms349 comparesig 8 -.9E+1 -> 1
228	ddcms350 comparesig 8 -90E-1 -> 1
229
230	-- and again, with sign changes -- ..
231	ddcms400 comparesig -7.0 -7.0 -> 0
232	ddcms401 comparesig -7.0 -7 -> 0
233	ddcms402 comparesig -7 -7.0 -> 0
234	ddcms403 comparesig -7E+0 -7.0 -> 0
235	ddcms404 comparesig -70E-1 -7.0 -> 0
236	ddcms405 comparesig -.7E+1 -7 -> 0
237	ddcms406 comparesig -70E-1 -7 -> 0
238	ddcms407 comparesig -7.0 -7E+0 -> 0
239	ddcms408 comparesig -7.0 -70E-1 -> 0
240	ddcms409 comparesig -7 -.7E+1 -> 0
241	ddcms410 comparesig -7 -70E-1 -> 0
242
243	ddcms420 comparesig -8.0 -7.0 -> -1
244	ddcms421 comparesig -8.0 -7 -> -1
245	ddcms422 comparesig -8 -7.0 -> -1
246	ddcms423 comparesig -8E+0 -7.0 -> -1
247	ddcms424 comparesig -80E-1 -7.0 -> -1
248	ddcms425 comparesig -.8E+1 -7 -> -1
249	ddcms426 comparesig -80E-1 -7 -> -1
250	ddcms427 comparesig -8.0 -7E+0 -> -1
251	ddcms428 comparesig -8.0 -70E-1 -> -1
252	ddcms429 comparesig -8 -.7E+1 -> -1
253	ddcms430 comparesig -8 -70E-1 -> -1
254
255	ddcms440 comparesig -8.0 -9.0 -> 1
256	ddcms441 comparesig -8.0 -9 -> 1
257	ddcms442 comparesig -8 -9.0 -> 1
258	ddcms443 comparesig -8E+0 -9.0 -> 1
259	ddcms444 comparesig -80E-1 -9.0 -> 1
260	ddcms445 comparesig -.8E+1 -9 -> 1
261	ddcms446 comparesig -80E-1 -9 -> 1
262	ddcms447 comparesig -8.0 -9E+0 -> 1
263	ddcms448 comparesig -8.0 -90E-1 -> 1
264	ddcms449 comparesig -8 -.9E+1 -> 1
265	ddcms450 comparesig -8 -90E-1 -> 1
266
267
268	-- testcases that subtract to lots of zeros at boundaries [pgr]
269	ddcms473 comparesig 123.4560000000000E-89 123.456E-89 -> 0
270	ddcms474 comparesig 123.456000000000E+89 123.456E+89 -> 0
271	ddcms475 comparesig 123.45600000000E-89 123.456E-89 -> 0
272	ddcms476 comparesig 123.4560000000E+89 123.456E+89 -> 0
273	ddcms477 comparesig 123.456000000E-89 123.456E-89 -> 0
274	ddcms478 comparesig 123.45600000E+89 123.456E+89 -> 0
275	ddcms479 comparesig 123.4560000E-89 123.456E-89 -> 0
276	ddcms480 comparesig 123.456000E+89 123.456E+89 -> 0
277	ddcms481 comparesig 123.45600E-89 123.456E-89 -> 0
278	ddcms482 comparesig 123.4560E+89 123.456E+89 -> 0
279	ddcms483 comparesig 123.456E-89 123.456E-89 -> 0
280	ddcms487 comparesig 123.456E+89 123.4560000000000E+89 -> 0
281	ddcms488 comparesig 123.456E-89 123.456000000000E-89 -> 0
282	ddcms489 comparesig 123.456E+89 123.45600000000E+89 -> 0
283	ddcms490 comparesig 123.456E-89 123.4560000000E-89 -> 0
284	ddcms491 comparesig 123.456E+89 123.456000000E+89 -> 0
285	ddcms492 comparesig 123.456E-89 123.45600000E-89 -> 0
286	ddcms493 comparesig 123.456E+89 123.4560000E+89 -> 0
287	ddcms494 comparesig 123.456E-89 123.456000E-89 -> 0
288	ddcms495 comparesig 123.456E+89 123.45600E+89 -> 0
289	ddcms496 comparesig 123.456E-89 123.4560E-89 -> 0
290	ddcms497 comparesig 123.456E+89 123.456E+89 -> 0
291
292	-- wide-ranging, around precision; signs equal
293	ddcms500 comparesig 1 1E-15 -> 1
294	ddcms501 comparesig 1 1E-14 -> 1
295	ddcms502 comparesig 1 1E-13 -> 1
296	ddcms503 comparesig 1 1E-12 -> 1
297	ddcms504 comparesig 1 1E-11 -> 1
298	ddcms505 comparesig 1 1E-10 -> 1
299	ddcms506 comparesig 1 1E-9 -> 1
300	ddcms507 comparesig 1 1E-8 -> 1
301	ddcms508 comparesig 1 1E-7 -> 1
302	ddcms509 comparesig 1 1E-6 -> 1
303	ddcms510 comparesig 1 1E-5 -> 1
304	ddcms511 comparesig 1 1E-4 -> 1
305	ddcms512 comparesig 1 1E-3 -> 1
306	ddcms513 comparesig 1 1E-2 -> 1
307	ddcms514 comparesig 1 1E-1 -> 1
308	ddcms515 comparesig 1 1E-0 -> 0
309	ddcms516 comparesig 1 1E+1 -> -1
310	ddcms517 comparesig 1 1E+2 -> -1
311	ddcms518 comparesig 1 1E+3 -> -1
312	ddcms519 comparesig 1 1E+4 -> -1
313	ddcms521 comparesig 1 1E+5 -> -1
314	ddcms522 comparesig 1 1E+6 -> -1
315	ddcms523 comparesig 1 1E+7 -> -1
316	ddcms524 comparesig 1 1E+8 -> -1
317	ddcms525 comparesig 1 1E+9 -> -1
318	ddcms526 comparesig 1 1E+10 -> -1
319	ddcms527 comparesig 1 1E+11 -> -1
320	ddcms528 comparesig 1 1E+12 -> -1
321	ddcms529 comparesig 1 1E+13 -> -1
322	ddcms530 comparesig 1 1E+14 -> -1
323	ddcms531 comparesig 1 1E+15 -> -1
324	-- LR swap
325	ddcms540 comparesig 1E-15 1 -> -1
326	ddcms541 comparesig 1E-14 1 -> -1
327	ddcms542 comparesig 1E-13 1 -> -1
328	ddcms543 comparesig 1E-12 1 -> -1
329	ddcms544 comparesig 1E-11 1 -> -1
330	ddcms545 comparesig 1E-10 1 -> -1
331	ddcms546 comparesig 1E-9 1 -> -1
332	ddcms547 comparesig 1E-8 1 -> -1
333	ddcms548 comparesig 1E-7 1 -> -1
334	ddcms549 comparesig 1E-6 1 -> -1
335	ddcms550 comparesig 1E-5 1 -> -1
336	ddcms551 comparesig 1E-4 1 -> -1
337	ddcms552 comparesig 1E-3 1 -> -1
338	ddcms553 comparesig 1E-2 1 -> -1
339	ddcms554 comparesig 1E-1 1 -> -1
340	ddcms555 comparesig 1E-0 1 -> 0
341	ddcms556 comparesig 1E+1 1 -> 1
342	ddcms557 comparesig 1E+2 1 -> 1
343	ddcms558 comparesig 1E+3 1 -> 1
344	ddcms559 comparesig 1E+4 1 -> 1
345	ddcms561 comparesig 1E+5 1 -> 1
346	ddcms562 comparesig 1E+6 1 -> 1
347	ddcms563 comparesig 1E+7 1 -> 1
348	ddcms564 comparesig 1E+8 1 -> 1
349	ddcms565 comparesig 1E+9 1 -> 1
350	ddcms566 comparesig 1E+10 1 -> 1
351	ddcms567 comparesig 1E+11 1 -> 1
352	ddcms568 comparesig 1E+12 1 -> 1
353	ddcms569 comparesig 1E+13 1 -> 1
354	ddcms570 comparesig 1E+14 1 -> 1
355	ddcms571 comparesig 1E+15 1 -> 1
356	-- similar with a useful coefficient, one side only
357	ddcms580 comparesig 0.000000987654321 1E-15 -> 1
358	ddcms581 comparesig 0.000000987654321 1E-14 -> 1
359	ddcms582 comparesig 0.000000987654321 1E-13 -> 1
360	ddcms583 comparesig 0.000000987654321 1E-12 -> 1
361	ddcms584 comparesig 0.000000987654321 1E-11 -> 1
362	ddcms585 comparesig 0.000000987654321 1E-10 -> 1
363	ddcms586 comparesig 0.000000987654321 1E-9 -> 1
364	ddcms587 comparesig 0.000000987654321 1E-8 -> 1
365	ddcms588 comparesig 0.000000987654321 1E-7 -> 1
366	ddcms589 comparesig 0.000000987654321 1E-6 -> -1
367	ddcms590 comparesig 0.000000987654321 1E-5 -> -1
368	ddcms591 comparesig 0.000000987654321 1E-4 -> -1
369	ddcms592 comparesig 0.000000987654321 1E-3 -> -1
370	ddcms593 comparesig 0.000000987654321 1E-2 -> -1
371	ddcms594 comparesig 0.000000987654321 1E-1 -> -1
372	ddcms595 comparesig 0.000000987654321 1E-0 -> -1
373	ddcms596 comparesig 0.000000987654321 1E+1 -> -1
374	ddcms597 comparesig 0.000000987654321 1E+2 -> -1
375	ddcms598 comparesig 0.000000987654321 1E+3 -> -1
376	ddcms599 comparesig 0.000000987654321 1E+4 -> -1
377
378	-- check some unit-y traps
379	ddcms600 comparesig 12 12.2345 -> -1
380	ddcms601 comparesig 12.0 12.2345 -> -1
381	ddcms602 comparesig 12.00 12.2345 -> -1
382	ddcms603 comparesig 12.000 12.2345 -> -1
383	ddcms604 comparesig 12.0000 12.2345 -> -1
384	ddcms605 comparesig 12.00000 12.2345 -> -1
385	ddcms606 comparesig 12.000000 12.2345 -> -1
386	ddcms607 comparesig 12.0000000 12.2345 -> -1
387	ddcms608 comparesig 12.00000000 12.2345 -> -1
388	ddcms609 comparesig 12.000000000 12.2345 -> -1
389	ddcms610 comparesig 12.1234 12 -> 1
390	ddcms611 comparesig 12.1234 12.0 -> 1
391	ddcms612 comparesig 12.1234 12.00 -> 1
392	ddcms613 comparesig 12.1234 12.000 -> 1
393	ddcms614 comparesig 12.1234 12.0000 -> 1
394	ddcms615 comparesig 12.1234 12.00000 -> 1
395	ddcms616 comparesig 12.1234 12.000000 -> 1
396	ddcms617 comparesig 12.1234 12.0000000 -> 1
397	ddcms618 comparesig 12.1234 12.00000000 -> 1
398	ddcms619 comparesig 12.1234 12.000000000 -> 1
399	ddcms620 comparesig -12 -12.2345 -> 1
400	ddcms621 comparesig -12.0 -12.2345 -> 1
401	ddcms622 comparesig -12.00 -12.2345 -> 1
402	ddcms623 comparesig -12.000 -12.2345 -> 1
403	ddcms624 comparesig -12.0000 -12.2345 -> 1
404	ddcms625 comparesig -12.00000 -12.2345 -> 1
405	ddcms626 comparesig -12.000000 -12.2345 -> 1
406	ddcms627 comparesig -12.0000000 -12.2345 -> 1
407	ddcms628 comparesig -12.00000000 -12.2345 -> 1
408	ddcms629 comparesig -12.000000000 -12.2345 -> 1
409	ddcms630 comparesig -12.1234 -12 -> -1
410	ddcms631 comparesig -12.1234 -12.0 -> -1
411	ddcms632 comparesig -12.1234 -12.00 -> -1
412	ddcms633 comparesig -12.1234 -12.000 -> -1
413	ddcms634 comparesig -12.1234 -12.0000 -> -1
414	ddcms635 comparesig -12.1234 -12.00000 -> -1
415	ddcms636 comparesig -12.1234 -12.000000 -> -1
416	ddcms637 comparesig -12.1234 -12.0000000 -> -1
417	ddcms638 comparesig -12.1234 -12.00000000 -> -1
418	ddcms639 comparesig -12.1234 -12.000000000 -> -1
419
420	-- extended zeros
421	ddcms640 comparesig 0 0 -> 0
422	ddcms641 comparesig 0 -0 -> 0
423	ddcms642 comparesig 0 -0.0 -> 0
424	ddcms643 comparesig 0 0.0 -> 0
425	ddcms644 comparesig -0 0 -> 0
426	ddcms645 comparesig -0 -0 -> 0
427	ddcms646 comparesig -0 -0.0 -> 0
428	ddcms647 comparesig -0 0.0 -> 0
429	ddcms648 comparesig 0.0 0 -> 0
430	ddcms649 comparesig 0.0 -0 -> 0
431	ddcms650 comparesig 0.0 -0.0 -> 0
432	ddcms651 comparesig 0.0 0.0 -> 0
433	ddcms652 comparesig -0.0 0 -> 0
434	ddcms653 comparesig -0.0 -0 -> 0
435	ddcms654 comparesig -0.0 -0.0 -> 0
436	ddcms655 comparesig -0.0 0.0 -> 0
437
438	ddcms656 comparesig -0E1 0.0 -> 0
439	ddcms657 comparesig -0E2 0.0 -> 0
440	ddcms658 comparesig 0E1 0.0 -> 0
441	ddcms659 comparesig 0E2 0.0 -> 0
442	ddcms660 comparesig -0E1 0 -> 0
443	ddcms661 comparesig -0E2 0 -> 0
444	ddcms662 comparesig 0E1 0 -> 0
445	ddcms663 comparesig 0E2 0 -> 0
446	ddcms664 comparesig -0E1 -0E1 -> 0
447	ddcms665 comparesig -0E2 -0E1 -> 0
448	ddcms666 comparesig 0E1 -0E1 -> 0
449	ddcms667 comparesig 0E2 -0E1 -> 0
450	ddcms668 comparesig -0E1 -0E2 -> 0
451	ddcms669 comparesig -0E2 -0E2 -> 0
452	ddcms670 comparesig 0E1 -0E2 -> 0
453	ddcms671 comparesig 0E2 -0E2 -> 0
454	ddcms672 comparesig -0E1 0E1 -> 0
455	ddcms673 comparesig -0E2 0E1 -> 0
456	ddcms674 comparesig 0E1 0E1 -> 0
457	ddcms675 comparesig 0E2 0E1 -> 0
458	ddcms676 comparesig -0E1 0E2 -> 0
459	ddcms677 comparesig -0E2 0E2 -> 0
460	ddcms678 comparesig 0E1 0E2 -> 0
461	ddcms679 comparesig 0E2 0E2 -> 0
462
463	-- trailing zeros; unit-y
464	ddcms680 comparesig 12 12 -> 0
465	ddcms681 comparesig 12 12.0 -> 0
466	ddcms682 comparesig 12 12.00 -> 0
467	ddcms683 comparesig 12 12.000 -> 0
468	ddcms684 comparesig 12 12.0000 -> 0
469	ddcms685 comparesig 12 12.00000 -> 0
470	ddcms686 comparesig 12 12.000000 -> 0
471	ddcms687 comparesig 12 12.0000000 -> 0
472	ddcms688 comparesig 12 12.00000000 -> 0
473	ddcms689 comparesig 12 12.000000000 -> 0
474	ddcms690 comparesig 12 12 -> 0
475	ddcms691 comparesig 12.0 12 -> 0
476	ddcms692 comparesig 12.00 12 -> 0
477	ddcms693 comparesig 12.000 12 -> 0
478	ddcms694 comparesig 12.0000 12 -> 0
479	ddcms695 comparesig 12.00000 12 -> 0
480	ddcms696 comparesig 12.000000 12 -> 0
481	ddcms697 comparesig 12.0000000 12 -> 0
482	ddcms698 comparesig 12.00000000 12 -> 0
483	ddcms699 comparesig 12.000000000 12 -> 0
484
485	-- first, second, & last digit
486	ddcms700 comparesig 1234567890123456 1234567890123455 -> 1
487	ddcms701 comparesig 1234567890123456 1234567890123456 -> 0
488	ddcms702 comparesig 1234567890123456 1234567890123457 -> -1
489	ddcms703 comparesig 1234567890123456 0234567890123456 -> 1
490	ddcms704 comparesig 1234567890123456 1234567890123456 -> 0
491	ddcms705 comparesig 1234567890123456 2234567890123456 -> -1
492	ddcms706 comparesig 1134567890123456 1034567890123456 -> 1
493	ddcms707 comparesig 1134567890123456 1134567890123456 -> 0
494	ddcms708 comparesig 1134567890123456 1234567890123456 -> -1
495
496	-- miscellaneous
497	ddcms721 comparesig 12345678000 1 -> 1
498	ddcms722 comparesig 1 12345678000 -> -1
499	ddcms723 comparesig 1234567800 1 -> 1
500	ddcms724 comparesig 1 1234567800 -> -1
501	ddcms725 comparesig 1234567890 1 -> 1
502	ddcms726 comparesig 1 1234567890 -> -1
503	ddcms727 comparesig 1234567891 1 -> 1
504	ddcms728 comparesig 1 1234567891 -> -1
505	ddcms729 comparesig 12345678901 1 -> 1
506	ddcms730 comparesig 1 12345678901 -> -1
507	ddcms731 comparesig 1234567896 1 -> 1
508	ddcms732 comparesig 1 1234567896 -> -1
509
510	-- residue cases at lower precision
511	ddcms740 comparesig 1 0.9999999 -> 1
512	ddcms741 comparesig 1 0.999999 -> 1
513	ddcms742 comparesig 1 0.99999 -> 1
514	ddcms743 comparesig 1 1.0000 -> 0
515	ddcms744 comparesig 1 1.00001 -> -1
516	ddcms745 comparesig 1 1.000001 -> -1
517	ddcms746 comparesig 1 1.0000001 -> -1
518	ddcms750 comparesig 0.9999999 1 -> -1
519	ddcms751 comparesig 0.999999 1 -> -1
520	ddcms752 comparesig 0.99999 1 -> -1
521	ddcms753 comparesig 1.0000 1 -> 0
522	ddcms754 comparesig 1.00001 1 -> 1
523	ddcms755 comparesig 1.000001 1 -> 1
524	ddcms756 comparesig 1.0000001 1 -> 1
525
526	-- Specials
527	ddcms780 comparesig Inf -Inf -> 1
528	ddcms781 comparesig Inf -1000 -> 1
529	ddcms782 comparesig Inf -1 -> 1
530	ddcms783 comparesig Inf -0 -> 1
531	ddcms784 comparesig Inf 0 -> 1
532	ddcms785 comparesig Inf 1 -> 1
533	ddcms786 comparesig Inf 1000 -> 1
534	ddcms787 comparesig Inf Inf -> 0
535	ddcms788 comparesig -1000 Inf -> -1
536	ddcms789 comparesig -Inf Inf -> -1
537	ddcms790 comparesig -1 Inf -> -1
538	ddcms791 comparesig -0 Inf -> -1
539	ddcms792 comparesig 0 Inf -> -1
540	ddcms793 comparesig 1 Inf -> -1
541	ddcms794 comparesig 1000 Inf -> -1
542	ddcms795 comparesig Inf Inf -> 0
543
544	ddcms800 comparesig -Inf -Inf -> 0
545	ddcms801 comparesig -Inf -1000 -> -1
546	ddcms802 comparesig -Inf -1 -> -1
547	ddcms803 comparesig -Inf -0 -> -1
548	ddcms804 comparesig -Inf 0 -> -1
549	ddcms805 comparesig -Inf 1 -> -1
550	ddcms806 comparesig -Inf 1000 -> -1
551	ddcms807 comparesig -Inf Inf -> -1
552	ddcms808 comparesig -Inf -Inf -> 0
553	ddcms809 comparesig -1000 -Inf -> 1
554	ddcms810 comparesig -1 -Inf -> 1
555	ddcms811 comparesig -0 -Inf -> 1
556	ddcms812 comparesig 0 -Inf -> 1
557	ddcms813 comparesig 1 -Inf -> 1
558	ddcms814 comparesig 1000 -Inf -> 1
559	ddcms815 comparesig Inf -Inf -> 1
560
561	ddcms821 comparesig NaN -Inf -> NaN Invalid_operation
562	ddcms822 comparesig NaN -1000 -> NaN Invalid_operation
563	ddcms823 comparesig NaN -1 -> NaN Invalid_operation
564	ddcms824 comparesig NaN -0 -> NaN Invalid_operation
565	ddcms825 comparesig NaN 0 -> NaN Invalid_operation
566	ddcms826 comparesig NaN 1 -> NaN Invalid_operation
567	ddcms827 comparesig NaN 1000 -> NaN Invalid_operation
568	ddcms828 comparesig NaN Inf -> NaN Invalid_operation
569	ddcms829 comparesig NaN NaN -> NaN Invalid_operation
570	ddcms830 comparesig -Inf NaN -> NaN Invalid_operation
571	ddcms831 comparesig -1000 NaN -> NaN Invalid_operation
572	ddcms832 comparesig -1 NaN -> NaN Invalid_operation
573	ddcms833 comparesig -0 NaN -> NaN Invalid_operation
574	ddcms834 comparesig 0 NaN -> NaN Invalid_operation
575	ddcms835 comparesig 1 NaN -> NaN Invalid_operation
576	ddcms836 comparesig 1000 NaN -> NaN Invalid_operation
577	ddcms837 comparesig Inf NaN -> NaN Invalid_operation
578	ddcms838 comparesig -NaN -NaN -> -NaN Invalid_operation
579	ddcms839 comparesig +NaN -NaN -> NaN Invalid_operation
580	ddcms840 comparesig -NaN +NaN -> -NaN Invalid_operation
581
582	ddcms841 comparesig sNaN -Inf -> NaN Invalid_operation
583	ddcms842 comparesig sNaN -1000 -> NaN Invalid_operation
584	ddcms843 comparesig sNaN -1 -> NaN Invalid_operation
585	ddcms844 comparesig sNaN -0 -> NaN Invalid_operation
586	ddcms845 comparesig sNaN 0 -> NaN Invalid_operation
587	ddcms846 comparesig sNaN 1 -> NaN Invalid_operation
588	ddcms847 comparesig sNaN 1000 -> NaN Invalid_operation
589	ddcms848 comparesig sNaN NaN -> NaN Invalid_operation
590	ddcms849 comparesig sNaN sNaN -> NaN Invalid_operation
591	ddcms850 comparesig NaN sNaN -> NaN Invalid_operation
592	ddcms851 comparesig -Inf sNaN -> NaN Invalid_operation
593	ddcms852 comparesig -1000 sNaN -> NaN Invalid_operation
594	ddcms853 comparesig -1 sNaN -> NaN Invalid_operation
595	ddcms854 comparesig -0 sNaN -> NaN Invalid_operation
596	ddcms855 comparesig 0 sNaN -> NaN Invalid_operation
597	ddcms856 comparesig 1 sNaN -> NaN Invalid_operation
598	ddcms857 comparesig 1000 sNaN -> NaN Invalid_operation
599	ddcms858 comparesig Inf sNaN -> NaN Invalid_operation
600	ddcms859 comparesig NaN sNaN -> NaN Invalid_operation
601
602	-- propagating NaNs
603	ddcms860 comparesig NaN9 -Inf -> NaN9 Invalid_operation
604	ddcms861 comparesig NaN8 999 -> NaN8 Invalid_operation
605	ddcms862 comparesig NaN77 Inf -> NaN77 Invalid_operation
606	ddcms863 comparesig -NaN67 NaN5 -> -NaN67 Invalid_operation
607	ddcms864 comparesig -Inf -NaN4 -> -NaN4 Invalid_operation
608	ddcms865 comparesig -999 -NaN33 -> -NaN33 Invalid_operation
609	ddcms866 comparesig Inf NaN2 -> NaN2 Invalid_operation
610	ddcms867 comparesig -NaN41 -NaN42 -> -NaN41 Invalid_operation
611	ddcms868 comparesig +NaN41 -NaN42 -> NaN41 Invalid_operation
612	ddcms869 comparesig -NaN41 +NaN42 -> -NaN41 Invalid_operation
613	ddcms870 comparesig +NaN41 +NaN42 -> NaN41 Invalid_operation
614
615	ddcms871 comparesig -sNaN99 -Inf -> -NaN99 Invalid_operation
616	ddcms872 comparesig sNaN98 -11 -> NaN98 Invalid_operation
617	ddcms873 comparesig sNaN97 NaN -> NaN97 Invalid_operation
618	ddcms874 comparesig sNaN16 sNaN94 -> NaN16 Invalid_operation
619	ddcms875 comparesig NaN85 sNaN83 -> NaN83 Invalid_operation
620	ddcms876 comparesig -Inf sNaN92 -> NaN92 Invalid_operation
621	ddcms877 comparesig 088 sNaN81 -> NaN81 Invalid_operation
622	ddcms878 comparesig Inf sNaN90 -> NaN90 Invalid_operation
623	ddcms879 comparesig NaN -sNaN89 -> -NaN89 Invalid_operation
624
625	-- wide range
626	ddcms880 comparesig +1.23456789012345E-0 9E+384 -> -1
627	ddcms881 comparesig 9E+384 +1.23456789012345E-0 -> 1
628	ddcms882 comparesig +0.100 9E-383 -> 1
629	ddcms883 comparesig 9E-383 +0.100 -> -1
630	ddcms885 comparesig -1.23456789012345E-0 9E+384 -> -1
631	ddcms886 comparesig 9E+384 -1.23456789012345E-0 -> 1
632	ddcms887 comparesig -0.100 9E-383 -> -1
633	ddcms888 comparesig 9E-383 -0.100 -> 1
634
635	-- signs
636	ddcms901 comparesig 1e+77 1e+11 -> 1
637	ddcms902 comparesig 1e+77 -1e+11 -> 1
638	ddcms903 comparesig -1e+77 1e+11 -> -1
639	ddcms904 comparesig -1e+77 -1e+11 -> -1
640	ddcms905 comparesig 1e-77 1e-11 -> -1
641	ddcms906 comparesig 1e-77 -1e-11 -> 1
642	ddcms907 comparesig -1e-77 1e-11 -> -1
643	ddcms908 comparesig -1e-77 -1e-11 -> 1
644
645	-- Null tests
646	ddcms990 comparesig 10 # -> NaN Invalid_operation
647	ddcms991 comparesig # 10 -> NaN Invalid_operation

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format