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