~ubuntu-branches/ubuntu/maverick/python3.1/maverick

« back to all changes in this revision

Viewing changes to Lib/test/decimaltestdata/dqCompare.decTest

  • Committer: Bazaar Package Importer
  • Author(s): Matthias Klose
  • Date: 2009-03-23 00:01:27 UTC
  • Revision ID: james.westby@ubuntu.com-20090323000127-5fstfxju4ufrhthq
Tags: upstream-3.1~a1+20090322
ImportĀ upstreamĀ versionĀ 3.1~a1+20090322

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
------------------------------------------------------------------------
 
2
-- dqCompare.decTest -- decQuad comparison that allows quiet NaNs     --
 
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.58
 
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 decQuads.
 
27
extended:    1
 
28
clamp:       1
 
29
precision:   34
 
30
maxExponent: 6144
 
31
minExponent: -6143
 
32
rounding:    half_even
 
33
 
 
34
-- sanity checks
 
35
dqcom001 compare  -2  -2  -> 0
 
36
dqcom002 compare  -2  -1  -> -1
 
37
dqcom003 compare  -2   0  -> -1
 
38
dqcom004 compare  -2   1  -> -1
 
39
dqcom005 compare  -2   2  -> -1
 
40
dqcom006 compare  -1  -2  -> 1
 
41
dqcom007 compare  -1  -1  -> 0
 
42
dqcom008 compare  -1   0  -> -1
 
43
dqcom009 compare  -1   1  -> -1
 
44
dqcom010 compare  -1   2  -> -1
 
45
dqcom011 compare   0  -2  -> 1
 
46
dqcom012 compare   0  -1  -> 1
 
47
dqcom013 compare   0   0  -> 0
 
48
dqcom014 compare   0   1  -> -1
 
49
dqcom015 compare   0   2  -> -1
 
50
dqcom016 compare   1  -2  -> 1
 
51
dqcom017 compare   1  -1  -> 1
 
52
dqcom018 compare   1   0  -> 1
 
53
dqcom019 compare   1   1  -> 0
 
54
dqcom020 compare   1   2  -> -1
 
55
dqcom021 compare   2  -2  -> 1
 
56
dqcom022 compare   2  -1  -> 1
 
57
dqcom023 compare   2   0  -> 1
 
58
dqcom025 compare   2   1  -> 1
 
59
dqcom026 compare   2   2  -> 0
 
60
 
 
61
dqcom031 compare  -20  -20  -> 0
 
62
dqcom032 compare  -20  -10  -> -1
 
63
dqcom033 compare  -20   00  -> -1
 
64
dqcom034 compare  -20   10  -> -1
 
65
dqcom035 compare  -20   20  -> -1
 
66
dqcom036 compare  -10  -20  -> 1
 
67
dqcom037 compare  -10  -10  -> 0
 
68
dqcom038 compare  -10   00  -> -1
 
69
dqcom039 compare  -10   10  -> -1
 
70
dqcom040 compare  -10   20  -> -1
 
71
dqcom041 compare   00  -20  -> 1
 
72
dqcom042 compare   00  -10  -> 1
 
73
dqcom043 compare   00   00  -> 0
 
74
dqcom044 compare   00   10  -> -1
 
75
dqcom045 compare   00   20  -> -1
 
76
dqcom046 compare   10  -20  -> 1
 
77
dqcom047 compare   10  -10  -> 1
 
78
dqcom048 compare   10   00  -> 1
 
79
dqcom049 compare   10   10  -> 0
 
80
dqcom050 compare   10   20  -> -1
 
81
dqcom051 compare   20  -20  -> 1
 
82
dqcom052 compare   20  -10  -> 1
 
83
dqcom053 compare   20   00  -> 1
 
84
dqcom055 compare   20   10  -> 1
 
85
dqcom056 compare   20   20  -> 0
 
86
 
 
87
dqcom061 compare  -2.0  -2.0  -> 0
 
88
dqcom062 compare  -2.0  -1.0  -> -1
 
89
dqcom063 compare  -2.0   0.0  -> -1
 
90
dqcom064 compare  -2.0   1.0  -> -1
 
91
dqcom065 compare  -2.0   2.0  -> -1
 
92
dqcom066 compare  -1.0  -2.0  -> 1
 
93
dqcom067 compare  -1.0  -1.0  -> 0
 
94
dqcom068 compare  -1.0   0.0  -> -1
 
95
dqcom069 compare  -1.0   1.0  -> -1
 
96
dqcom070 compare  -1.0   2.0  -> -1
 
97
dqcom071 compare   0.0  -2.0  -> 1
 
98
dqcom072 compare   0.0  -1.0  -> 1
 
99
dqcom073 compare   0.0   0.0  -> 0
 
100
dqcom074 compare   0.0   1.0  -> -1
 
101
dqcom075 compare   0.0   2.0  -> -1
 
102
dqcom076 compare   1.0  -2.0  -> 1
 
103
dqcom077 compare   1.0  -1.0  -> 1
 
104
dqcom078 compare   1.0   0.0  -> 1
 
105
dqcom079 compare   1.0   1.0  -> 0
 
106
dqcom080 compare   1.0   2.0  -> -1
 
107
dqcom081 compare   2.0  -2.0  -> 1
 
108
dqcom082 compare   2.0  -1.0  -> 1
 
109
dqcom083 compare   2.0   0.0  -> 1
 
110
dqcom085 compare   2.0   1.0  -> 1
 
111
dqcom086 compare   2.0   2.0  -> 0
 
112
 
 
113
-- now some cases which might overflow if subtract were used
 
114
dqcom090 compare  9.999999999999999999999999999999999E+6144 9.999999999999999999999999999999999E+6144  -> 0
 
115
dqcom091 compare -9.999999999999999999999999999999999E+6144 9.999999999999999999999999999999999E+6144  -> -1
 
116
dqcom092 compare  9.999999999999999999999999999999999E+6144 -9.999999999999999999999999999999999E+6144 -> 1
 
117
dqcom093 compare -9.999999999999999999999999999999999E+6144 -9.999999999999999999999999999999999E+6144 -> 0
 
118
 
 
119
-- some differing length/exponent cases
 
120
dqcom100 compare   7.0    7.0    -> 0
 
121
dqcom101 compare   7.0    7      -> 0
 
122
dqcom102 compare   7      7.0    -> 0
 
123
dqcom103 compare   7E+0   7.0    -> 0
 
124
dqcom104 compare   70E-1  7.0    -> 0
 
125
dqcom105 compare   0.7E+1 7      -> 0
 
126
dqcom106 compare   70E-1  7      -> 0
 
127
dqcom107 compare   7.0    7E+0   -> 0
 
128
dqcom108 compare   7.0    70E-1  -> 0
 
129
dqcom109 compare   7      0.7E+1 -> 0
 
130
dqcom110 compare   7      70E-1  -> 0
 
131
 
 
132
dqcom120 compare   8.0    7.0    -> 1
 
133
dqcom121 compare   8.0    7      -> 1
 
134
dqcom122 compare   8      7.0    -> 1
 
135
dqcom123 compare   8E+0   7.0    -> 1
 
136
dqcom124 compare   80E-1  7.0    -> 1
 
137
dqcom125 compare   0.8E+1 7      -> 1
 
138
dqcom126 compare   80E-1  7      -> 1
 
139
dqcom127 compare   8.0    7E+0   -> 1
 
140
dqcom128 compare   8.0    70E-1  -> 1
 
141
dqcom129 compare   8      0.7E+1  -> 1
 
142
dqcom130 compare   8      70E-1  -> 1
 
143
 
 
144
dqcom140 compare   8.0    9.0    -> -1
 
145
dqcom141 compare   8.0    9      -> -1
 
146
dqcom142 compare   8      9.0    -> -1
 
147
dqcom143 compare   8E+0   9.0    -> -1
 
148
dqcom144 compare   80E-1  9.0    -> -1
 
149
dqcom145 compare   0.8E+1 9      -> -1
 
150
dqcom146 compare   80E-1  9      -> -1
 
151
dqcom147 compare   8.0    9E+0   -> -1
 
152
dqcom148 compare   8.0    90E-1  -> -1
 
153
dqcom149 compare   8      0.9E+1 -> -1
 
154
dqcom150 compare   8      90E-1  -> -1
 
155
 
 
156
-- and again, with sign changes -+ ..
 
157
dqcom200 compare  -7.0    7.0    -> -1
 
158
dqcom201 compare  -7.0    7      -> -1
 
159
dqcom202 compare  -7      7.0    -> -1
 
160
dqcom203 compare  -7E+0   7.0    -> -1
 
161
dqcom204 compare  -70E-1  7.0    -> -1
 
162
dqcom205 compare  -0.7E+1 7      -> -1
 
163
dqcom206 compare  -70E-1  7      -> -1
 
164
dqcom207 compare  -7.0    7E+0   -> -1
 
165
dqcom208 compare  -7.0    70E-1  -> -1
 
166
dqcom209 compare  -7      0.7E+1 -> -1
 
167
dqcom210 compare  -7      70E-1  -> -1
 
168
 
 
169
dqcom220 compare  -8.0    7.0    -> -1
 
170
dqcom221 compare  -8.0    7      -> -1
 
171
dqcom222 compare  -8      7.0    -> -1
 
172
dqcom223 compare  -8E+0   7.0    -> -1
 
173
dqcom224 compare  -80E-1  7.0    -> -1
 
174
dqcom225 compare  -0.8E+1 7      -> -1
 
175
dqcom226 compare  -80E-1  7      -> -1
 
176
dqcom227 compare  -8.0    7E+0   -> -1
 
177
dqcom228 compare  -8.0    70E-1  -> -1
 
178
dqcom229 compare  -8      0.7E+1 -> -1
 
179
dqcom230 compare  -8      70E-1  -> -1
 
180
 
 
181
dqcom240 compare  -8.0    9.0    -> -1
 
182
dqcom241 compare  -8.0    9      -> -1
 
183
dqcom242 compare  -8      9.0    -> -1
 
184
dqcom243 compare  -8E+0   9.0    -> -1
 
185
dqcom244 compare  -80E-1  9.0    -> -1
 
186
dqcom245 compare  -0.8E+1 9      -> -1
 
187
dqcom246 compare  -80E-1  9      -> -1
 
188
dqcom247 compare  -8.0    9E+0   -> -1
 
189
dqcom248 compare  -8.0    90E-1  -> -1
 
190
dqcom249 compare  -8      0.9E+1 -> -1
 
191
dqcom250 compare  -8      90E-1  -> -1
 
192
 
 
193
-- and again, with sign changes +- ..
 
194
dqcom300 compare   7.0    -7.0    -> 1
 
195
dqcom301 compare   7.0    -7      -> 1
 
196
dqcom302 compare   7      -7.0    -> 1
 
197
dqcom303 compare   7E+0   -7.0    -> 1
 
198
dqcom304 compare   70E-1  -7.0    -> 1
 
199
dqcom305 compare   .7E+1  -7      -> 1
 
200
dqcom306 compare   70E-1  -7      -> 1
 
201
dqcom307 compare   7.0    -7E+0   -> 1
 
202
dqcom308 compare   7.0    -70E-1  -> 1
 
203
dqcom309 compare   7      -.7E+1  -> 1
 
204
dqcom310 compare   7      -70E-1  -> 1
 
205
 
 
206
dqcom320 compare   8.0    -7.0    -> 1
 
207
dqcom321 compare   8.0    -7      -> 1
 
208
dqcom322 compare   8      -7.0    -> 1
 
209
dqcom323 compare   8E+0   -7.0    -> 1
 
210
dqcom324 compare   80E-1  -7.0    -> 1
 
211
dqcom325 compare   .8E+1  -7      -> 1
 
212
dqcom326 compare   80E-1  -7      -> 1
 
213
dqcom327 compare   8.0    -7E+0   -> 1
 
214
dqcom328 compare   8.0    -70E-1  -> 1
 
215
dqcom329 compare   8      -.7E+1  -> 1
 
216
dqcom330 compare   8      -70E-1  -> 1
 
217
 
 
218
dqcom340 compare   8.0    -9.0    -> 1
 
219
dqcom341 compare   8.0    -9      -> 1
 
220
dqcom342 compare   8      -9.0    -> 1
 
221
dqcom343 compare   8E+0   -9.0    -> 1
 
222
dqcom344 compare   80E-1  -9.0    -> 1
 
223
dqcom345 compare   .8E+1  -9      -> 1
 
224
dqcom346 compare   80E-1  -9      -> 1
 
225
dqcom347 compare   8.0    -9E+0   -> 1
 
226
dqcom348 compare   8.0    -90E-1  -> 1
 
227
dqcom349 compare   8      -.9E+1  -> 1
 
228
dqcom350 compare   8      -90E-1  -> 1
 
229
 
 
230
-- and again, with sign changes -- ..
 
231
dqcom400 compare   -7.0    -7.0    -> 0
 
232
dqcom401 compare   -7.0    -7      -> 0
 
233
dqcom402 compare   -7      -7.0    -> 0
 
234
dqcom403 compare   -7E+0   -7.0    -> 0
 
235
dqcom404 compare   -70E-1  -7.0    -> 0
 
236
dqcom405 compare   -.7E+1  -7      -> 0
 
237
dqcom406 compare   -70E-1  -7      -> 0
 
238
dqcom407 compare   -7.0    -7E+0   -> 0
 
239
dqcom408 compare   -7.0    -70E-1  -> 0
 
240
dqcom409 compare   -7      -.7E+1  -> 0
 
241
dqcom410 compare   -7      -70E-1  -> 0
 
242
 
 
243
dqcom420 compare   -8.0    -7.0    -> -1
 
244
dqcom421 compare   -8.0    -7      -> -1
 
245
dqcom422 compare   -8      -7.0    -> -1
 
246
dqcom423 compare   -8E+0   -7.0    -> -1
 
247
dqcom424 compare   -80E-1  -7.0    -> -1
 
248
dqcom425 compare   -.8E+1  -7      -> -1
 
249
dqcom426 compare   -80E-1  -7      -> -1
 
250
dqcom427 compare   -8.0    -7E+0   -> -1
 
251
dqcom428 compare   -8.0    -70E-1  -> -1
 
252
dqcom429 compare   -8      -.7E+1  -> -1
 
253
dqcom430 compare   -8      -70E-1  -> -1
 
254
 
 
255
dqcom440 compare   -8.0    -9.0    -> 1
 
256
dqcom441 compare   -8.0    -9      -> 1
 
257
dqcom442 compare   -8      -9.0    -> 1
 
258
dqcom443 compare   -8E+0   -9.0    -> 1
 
259
dqcom444 compare   -80E-1  -9.0    -> 1
 
260
dqcom445 compare   -.8E+1  -9      -> 1
 
261
dqcom446 compare   -80E-1  -9      -> 1
 
262
dqcom447 compare   -8.0    -9E+0   -> 1
 
263
dqcom448 compare   -8.0    -90E-1  -> 1
 
264
dqcom449 compare   -8      -.9E+1  -> 1
 
265
dqcom450 compare   -8      -90E-1  -> 1
 
266
 
 
267
-- misalignment traps for little-endian
 
268
dqcom451 compare      1.0       0.1  -> 1
 
269
dqcom452 compare      0.1       1.0  -> -1
 
270
dqcom453 compare     10.0       0.1  -> 1
 
271
dqcom454 compare      0.1      10.0  -> -1
 
272
dqcom455 compare      100       1.0  -> 1
 
273
dqcom456 compare      1.0       100  -> -1
 
274
dqcom457 compare     1000      10.0  -> 1
 
275
dqcom458 compare     10.0      1000  -> -1
 
276
dqcom459 compare    10000     100.0  -> 1
 
277
dqcom460 compare    100.0     10000  -> -1
 
278
dqcom461 compare   100000    1000.0  -> 1
 
279
dqcom462 compare   1000.0    100000  -> -1
 
280
dqcom463 compare  1000000   10000.0  -> 1
 
281
dqcom464 compare  10000.0   1000000  -> -1
 
282
 
 
283
-- testcases that subtract to lots of zeros at boundaries [pgr]
 
284
dqcom473 compare 123.9999999999999999994560000000000E-89 123.999999999999999999456E-89 -> 0
 
285
dqcom474 compare 123.999999999999999999456000000000E+89 123.999999999999999999456E+89 -> 0
 
286
dqcom475 compare 123.99999999999999999945600000000E-89 123.999999999999999999456E-89 -> 0
 
287
dqcom476 compare 123.9999999999999999994560000000E+89 123.999999999999999999456E+89 -> 0
 
288
dqcom477 compare 123.999999999999999999456000000E-89 123.999999999999999999456E-89 -> 0
 
289
dqcom478 compare 123.99999999999999999945600000E+89 123.999999999999999999456E+89 -> 0
 
290
dqcom479 compare 123.9999999999999999994560000E-89 123.999999999999999999456E-89 -> 0
 
291
dqcom480 compare 123.999999999999999999456000E+89 123.999999999999999999456E+89 -> 0
 
292
dqcom481 compare 123.99999999999999999945600E-89 123.999999999999999999456E-89 -> 0
 
293
dqcom482 compare 123.9999999999999999994560E+89 123.999999999999999999456E+89 -> 0
 
294
dqcom483 compare 123.999999999999999999456E-89 123.999999999999999999456E-89 -> 0
 
295
dqcom487 compare 123.999999999999999999456E+89 123.9999999999999999994560000000000E+89 -> 0
 
296
dqcom488 compare 123.999999999999999999456E-89 123.999999999999999999456000000000E-89 -> 0
 
297
dqcom489 compare 123.999999999999999999456E+89 123.99999999999999999945600000000E+89 -> 0
 
298
dqcom490 compare 123.999999999999999999456E-89 123.9999999999999999994560000000E-89 -> 0
 
299
dqcom491 compare 123.999999999999999999456E+89 123.999999999999999999456000000E+89 -> 0
 
300
dqcom492 compare 123.999999999999999999456E-89 123.99999999999999999945600000E-89 -> 0
 
301
dqcom493 compare 123.999999999999999999456E+89 123.9999999999999999994560000E+89 -> 0
 
302
dqcom494 compare 123.999999999999999999456E-89 123.999999999999999999456000E-89 -> 0
 
303
dqcom495 compare 123.999999999999999999456E+89 123.99999999999999999945600E+89 -> 0
 
304
dqcom496 compare 123.999999999999999999456E-89 123.9999999999999999994560E-89 -> 0
 
305
dqcom497 compare 123.999999999999999999456E+89 123.999999999999999999456E+89 -> 0
 
306
 
 
307
-- wide-ranging, around precision; signs equal
 
308
dqcom500 compare    1     1E-15    -> 1
 
309
dqcom501 compare    1     1E-14    -> 1
 
310
dqcom502 compare    1     1E-13    -> 1
 
311
dqcom503 compare    1     1E-12    -> 1
 
312
dqcom504 compare    1     1E-11    -> 1
 
313
dqcom505 compare    1     1E-10    -> 1
 
314
dqcom506 compare    1     1E-9     -> 1
 
315
dqcom507 compare    1     1E-8     -> 1
 
316
dqcom508 compare    1     1E-7     -> 1
 
317
dqcom509 compare    1     1E-6     -> 1
 
318
dqcom510 compare    1     1E-5     -> 1
 
319
dqcom511 compare    1     1E-4     -> 1
 
320
dqcom512 compare    1     1E-3     -> 1
 
321
dqcom513 compare    1     1E-2     -> 1
 
322
dqcom514 compare    1     1E-1     -> 1
 
323
dqcom515 compare    1     1E-0     -> 0
 
324
dqcom516 compare    1     1E+1     -> -1
 
325
dqcom517 compare    1     1E+2     -> -1
 
326
dqcom518 compare    1     1E+3     -> -1
 
327
dqcom519 compare    1     1E+4     -> -1
 
328
dqcom521 compare    1     1E+5     -> -1
 
329
dqcom522 compare    1     1E+6     -> -1
 
330
dqcom523 compare    1     1E+7     -> -1
 
331
dqcom524 compare    1     1E+8     -> -1
 
332
dqcom525 compare    1     1E+9     -> -1
 
333
dqcom526 compare    1     1E+10    -> -1
 
334
dqcom527 compare    1     1E+11    -> -1
 
335
dqcom528 compare    1     1E+12    -> -1
 
336
dqcom529 compare    1     1E+13    -> -1
 
337
dqcom530 compare    1     1E+14    -> -1
 
338
dqcom531 compare    1     1E+15    -> -1
 
339
-- LR swap
 
340
dqcom540 compare    1E-15  1       -> -1
 
341
dqcom541 compare    1E-14  1       -> -1
 
342
dqcom542 compare    1E-13  1       -> -1
 
343
dqcom543 compare    1E-12  1       -> -1
 
344
dqcom544 compare    1E-11  1       -> -1
 
345
dqcom545 compare    1E-10  1       -> -1
 
346
dqcom546 compare    1E-9   1       -> -1
 
347
dqcom547 compare    1E-8   1       -> -1
 
348
dqcom548 compare    1E-7   1       -> -1
 
349
dqcom549 compare    1E-6   1       -> -1
 
350
dqcom550 compare    1E-5   1       -> -1
 
351
dqcom551 compare    1E-4   1       -> -1
 
352
dqcom552 compare    1E-3   1       -> -1
 
353
dqcom553 compare    1E-2   1       -> -1
 
354
dqcom554 compare    1E-1   1       -> -1
 
355
dqcom555 compare    1E-0   1       ->  0
 
356
dqcom556 compare    1E+1   1       ->  1
 
357
dqcom557 compare    1E+2   1       ->  1
 
358
dqcom558 compare    1E+3   1       ->  1
 
359
dqcom559 compare    1E+4   1       ->  1
 
360
dqcom561 compare    1E+5   1       ->  1
 
361
dqcom562 compare    1E+6   1       ->  1
 
362
dqcom563 compare    1E+7   1       ->  1
 
363
dqcom564 compare    1E+8   1       ->  1
 
364
dqcom565 compare    1E+9   1       ->  1
 
365
dqcom566 compare    1E+10  1       ->  1
 
366
dqcom567 compare    1E+11  1       ->  1
 
367
dqcom568 compare    1E+12  1       ->  1
 
368
dqcom569 compare    1E+13  1       ->  1
 
369
dqcom570 compare    1E+14  1       ->  1
 
370
dqcom571 compare    1E+15  1       ->  1
 
371
-- similar with a useful coefficient, one side only
 
372
dqcom580 compare  0.000000987654321     1E-15    -> 1
 
373
dqcom581 compare  0.000000987654321     1E-14    -> 1
 
374
dqcom582 compare  0.000000987654321     1E-13    -> 1
 
375
dqcom583 compare  0.000000987654321     1E-12    -> 1
 
376
dqcom584 compare  0.000000987654321     1E-11    -> 1
 
377
dqcom585 compare  0.000000987654321     1E-10    -> 1
 
378
dqcom586 compare  0.000000987654321     1E-9     -> 1
 
379
dqcom587 compare  0.000000987654321     1E-8     -> 1
 
380
dqcom588 compare  0.000000987654321     1E-7     -> 1
 
381
dqcom589 compare  0.000000987654321     1E-6     -> -1
 
382
dqcom590 compare  0.000000987654321     1E-5     -> -1
 
383
dqcom591 compare  0.000000987654321     1E-4     -> -1
 
384
dqcom592 compare  0.000000987654321     1E-3     -> -1
 
385
dqcom593 compare  0.000000987654321     1E-2     -> -1
 
386
dqcom594 compare  0.000000987654321     1E-1     -> -1
 
387
dqcom595 compare  0.000000987654321     1E-0     -> -1
 
388
dqcom596 compare  0.000000987654321     1E+1     -> -1
 
389
dqcom597 compare  0.000000987654321     1E+2     -> -1
 
390
dqcom598 compare  0.000000987654321     1E+3     -> -1
 
391
dqcom599 compare  0.000000987654321     1E+4     -> -1
 
392
 
 
393
-- check some unit-y traps
 
394
dqcom600 compare   12            12.2345 -> -1
 
395
dqcom601 compare   12.0          12.2345 -> -1
 
396
dqcom602 compare   12.00         12.2345 -> -1
 
397
dqcom603 compare   12.000        12.2345 -> -1
 
398
dqcom604 compare   12.0000       12.2345 -> -1
 
399
dqcom605 compare   12.00000      12.2345 -> -1
 
400
dqcom606 compare   12.000000     12.2345 -> -1
 
401
dqcom607 compare   12.0000000    12.2345 -> -1
 
402
dqcom608 compare   12.00000000   12.2345 -> -1
 
403
dqcom609 compare   12.000000000  12.2345 -> -1
 
404
dqcom610 compare   12.1234 12            ->  1
 
405
dqcom611 compare   12.1234 12.0          ->  1
 
406
dqcom612 compare   12.1234 12.00         ->  1
 
407
dqcom613 compare   12.1234 12.000        ->  1
 
408
dqcom614 compare   12.1234 12.0000       ->  1
 
409
dqcom615 compare   12.1234 12.00000      ->  1
 
410
dqcom616 compare   12.1234 12.000000     ->  1
 
411
dqcom617 compare   12.1234 12.0000000    ->  1
 
412
dqcom618 compare   12.1234 12.00000000   ->  1
 
413
dqcom619 compare   12.1234 12.000000000  ->  1
 
414
dqcom620 compare  -12           -12.2345 ->  1
 
415
dqcom621 compare  -12.0         -12.2345 ->  1
 
416
dqcom622 compare  -12.00        -12.2345 ->  1
 
417
dqcom623 compare  -12.000       -12.2345 ->  1
 
418
dqcom624 compare  -12.0000      -12.2345 ->  1
 
419
dqcom625 compare  -12.00000     -12.2345 ->  1
 
420
dqcom626 compare  -12.000000    -12.2345 ->  1
 
421
dqcom627 compare  -12.0000000   -12.2345 ->  1
 
422
dqcom628 compare  -12.00000000  -12.2345 ->  1
 
423
dqcom629 compare  -12.000000000 -12.2345 ->  1
 
424
dqcom630 compare  -12.1234 -12           -> -1
 
425
dqcom631 compare  -12.1234 -12.0         -> -1
 
426
dqcom632 compare  -12.1234 -12.00        -> -1
 
427
dqcom633 compare  -12.1234 -12.000       -> -1
 
428
dqcom634 compare  -12.1234 -12.0000      -> -1
 
429
dqcom635 compare  -12.1234 -12.00000     -> -1
 
430
dqcom636 compare  -12.1234 -12.000000    -> -1
 
431
dqcom637 compare  -12.1234 -12.0000000   -> -1
 
432
dqcom638 compare  -12.1234 -12.00000000  -> -1
 
433
dqcom639 compare  -12.1234 -12.000000000 -> -1
 
434
 
 
435
-- extended zeros
 
436
dqcom640 compare   0     0   -> 0
 
437
dqcom641 compare   0    -0   -> 0
 
438
dqcom642 compare   0    -0.0 -> 0
 
439
dqcom643 compare   0     0.0 -> 0
 
440
dqcom644 compare  -0     0   -> 0
 
441
dqcom645 compare  -0    -0   -> 0
 
442
dqcom646 compare  -0    -0.0 -> 0
 
443
dqcom647 compare  -0     0.0 -> 0
 
444
dqcom648 compare   0.0   0   -> 0
 
445
dqcom649 compare   0.0  -0   -> 0
 
446
dqcom650 compare   0.0  -0.0 -> 0
 
447
dqcom651 compare   0.0   0.0 -> 0
 
448
dqcom652 compare  -0.0   0   -> 0
 
449
dqcom653 compare  -0.0  -0   -> 0
 
450
dqcom654 compare  -0.0  -0.0 -> 0
 
451
dqcom655 compare  -0.0   0.0 -> 0
 
452
 
 
453
dqcom656 compare  -0E1   0.0 -> 0
 
454
dqcom657 compare  -0E2   0.0 -> 0
 
455
dqcom658 compare   0E1   0.0 -> 0
 
456
dqcom659 compare   0E2   0.0 -> 0
 
457
dqcom660 compare  -0E1   0   -> 0
 
458
dqcom661 compare  -0E2   0   -> 0
 
459
dqcom662 compare   0E1   0   -> 0
 
460
dqcom663 compare   0E2   0   -> 0
 
461
dqcom664 compare  -0E1  -0E1 -> 0
 
462
dqcom665 compare  -0E2  -0E1 -> 0
 
463
dqcom666 compare   0E1  -0E1 -> 0
 
464
dqcom667 compare   0E2  -0E1 -> 0
 
465
dqcom668 compare  -0E1  -0E2 -> 0
 
466
dqcom669 compare  -0E2  -0E2 -> 0
 
467
dqcom670 compare   0E1  -0E2 -> 0
 
468
dqcom671 compare   0E2  -0E2 -> 0
 
469
dqcom672 compare  -0E1   0E1 -> 0
 
470
dqcom673 compare  -0E2   0E1 -> 0
 
471
dqcom674 compare   0E1   0E1 -> 0
 
472
dqcom675 compare   0E2   0E1 -> 0
 
473
dqcom676 compare  -0E1   0E2 -> 0
 
474
dqcom677 compare  -0E2   0E2 -> 0
 
475
dqcom678 compare   0E1   0E2 -> 0
 
476
dqcom679 compare   0E2   0E2 -> 0
 
477
 
 
478
-- trailing zeros; unit-y
 
479
dqcom680 compare   12    12           -> 0
 
480
dqcom681 compare   12    12.0         -> 0
 
481
dqcom682 compare   12    12.00        -> 0
 
482
dqcom683 compare   12    12.000       -> 0
 
483
dqcom684 compare   12    12.0000      -> 0
 
484
dqcom685 compare   12    12.00000     -> 0
 
485
dqcom686 compare   12    12.000000    -> 0
 
486
dqcom687 compare   12    12.0000000   -> 0
 
487
dqcom688 compare   12    12.00000000  -> 0
 
488
dqcom689 compare   12    12.000000000 -> 0
 
489
dqcom690 compare   12              12 -> 0
 
490
dqcom691 compare   12.0            12 -> 0
 
491
dqcom692 compare   12.00           12 -> 0
 
492
dqcom693 compare   12.000          12 -> 0
 
493
dqcom694 compare   12.0000         12 -> 0
 
494
dqcom695 compare   12.00000        12 -> 0
 
495
dqcom696 compare   12.000000       12 -> 0
 
496
dqcom697 compare   12.0000000      12 -> 0
 
497
dqcom698 compare   12.00000000     12 -> 0
 
498
dqcom699 compare   12.000000000    12 -> 0
 
499
 
 
500
-- first, second, & last digit
 
501
dqcom700 compare   1234567899999999999999999990123456 1234567899999999999999999990123455 -> 1
 
502
dqcom701 compare   1234567899999999999999999990123456 1234567899999999999999999990123456 -> 0
 
503
dqcom702 compare   1234567899999999999999999990123456 1234567899999999999999999990123457 -> -1
 
504
dqcom703 compare   1234567899999999999999999990123456 0234567899999999999999999990123456 -> 1
 
505
dqcom704 compare   1234567899999999999999999990123456 1234567899999999999999999990123456 -> 0
 
506
dqcom705 compare   1234567899999999999999999990123456 2234567899999999999999999990123456 -> -1
 
507
dqcom706 compare   1134567899999999999999999990123456 1034567899999999999999999990123456 -> 1
 
508
dqcom707 compare   1134567899999999999999999990123456 1134567899999999999999999990123456 -> 0
 
509
dqcom708 compare   1134567899999999999999999990123456 1234567899999999999999999990123456 -> -1
 
510
 
 
511
-- miscellaneous
 
512
dqcom721 compare 12345678000 1 -> 1
 
513
dqcom722 compare 1 12345678000 -> -1
 
514
dqcom723 compare 1234567800  1 -> 1
 
515
dqcom724 compare 1 1234567800  -> -1
 
516
dqcom725 compare 1234567890  1 -> 1
 
517
dqcom726 compare 1 1234567890  -> -1
 
518
dqcom727 compare 1234567891  1 -> 1
 
519
dqcom728 compare 1 1234567891  -> -1
 
520
dqcom729 compare 12345678901 1 -> 1
 
521
dqcom730 compare 1 12345678901 -> -1
 
522
dqcom731 compare 1234567896  1 -> 1
 
523
dqcom732 compare 1 1234567896  -> -1
 
524
 
 
525
-- residue cases at lower precision
 
526
dqcom740 compare  1  0.9999999  -> 1
 
527
dqcom741 compare  1  0.999999   -> 1
 
528
dqcom742 compare  1  0.99999    -> 1
 
529
dqcom743 compare  1  1.0000     -> 0
 
530
dqcom744 compare  1  1.00001    -> -1
 
531
dqcom745 compare  1  1.000001   -> -1
 
532
dqcom746 compare  1  1.0000001  -> -1
 
533
dqcom750 compare  0.9999999  1  -> -1
 
534
dqcom751 compare  0.999999   1  -> -1
 
535
dqcom752 compare  0.99999    1  -> -1
 
536
dqcom753 compare  1.0000     1  -> 0
 
537
dqcom754 compare  1.00001    1  -> 1
 
538
dqcom755 compare  1.000001   1  -> 1
 
539
dqcom756 compare  1.0000001  1  -> 1
 
540
 
 
541
-- Specials
 
542
dqcom780 compare  Inf  -Inf   ->  1
 
543
dqcom781 compare  Inf  -1000  ->  1
 
544
dqcom782 compare  Inf  -1     ->  1
 
545
dqcom783 compare  Inf  -0     ->  1
 
546
dqcom784 compare  Inf   0     ->  1
 
547
dqcom785 compare  Inf   1     ->  1
 
548
dqcom786 compare  Inf   1000  ->  1
 
549
dqcom787 compare  Inf   Inf   ->  0
 
550
dqcom788 compare -1000  Inf   -> -1
 
551
dqcom789 compare -Inf   Inf   -> -1
 
552
dqcom790 compare -1     Inf   -> -1
 
553
dqcom791 compare -0     Inf   -> -1
 
554
dqcom792 compare  0     Inf   -> -1
 
555
dqcom793 compare  1     Inf   -> -1
 
556
dqcom794 compare  1000  Inf   -> -1
 
557
dqcom795 compare  Inf   Inf   ->  0
 
558
 
 
559
dqcom800 compare -Inf  -Inf   ->  0
 
560
dqcom801 compare -Inf  -1000  -> -1
 
561
dqcom802 compare -Inf  -1     -> -1
 
562
dqcom803 compare -Inf  -0     -> -1
 
563
dqcom804 compare -Inf   0     -> -1
 
564
dqcom805 compare -Inf   1     -> -1
 
565
dqcom806 compare -Inf   1000  -> -1
 
566
dqcom807 compare -Inf   Inf   -> -1
 
567
dqcom808 compare -Inf  -Inf   ->  0
 
568
dqcom809 compare -1000 -Inf   ->  1
 
569
dqcom810 compare -1    -Inf   ->  1
 
570
dqcom811 compare -0    -Inf   ->  1
 
571
dqcom812 compare  0    -Inf   ->  1
 
572
dqcom813 compare  1    -Inf   ->  1
 
573
dqcom814 compare  1000 -Inf   ->  1
 
574
dqcom815 compare  Inf  -Inf   ->  1
 
575
 
 
576
dqcom821 compare  NaN -Inf    ->  NaN
 
577
dqcom822 compare  NaN -1000   ->  NaN
 
578
dqcom823 compare  NaN -1      ->  NaN
 
579
dqcom824 compare  NaN -0      ->  NaN
 
580
dqcom825 compare  NaN  0      ->  NaN
 
581
dqcom826 compare  NaN  1      ->  NaN
 
582
dqcom827 compare  NaN  1000   ->  NaN
 
583
dqcom828 compare  NaN  Inf    ->  NaN
 
584
dqcom829 compare  NaN  NaN    ->  NaN
 
585
dqcom830 compare -Inf  NaN    ->  NaN
 
586
dqcom831 compare -1000 NaN    ->  NaN
 
587
dqcom832 compare -1    NaN    ->  NaN
 
588
dqcom833 compare -0    NaN    ->  NaN
 
589
dqcom834 compare  0    NaN    ->  NaN
 
590
dqcom835 compare  1    NaN    ->  NaN
 
591
dqcom836 compare  1000 NaN    ->  NaN
 
592
dqcom837 compare  Inf  NaN    ->  NaN
 
593
dqcom838 compare -NaN -NaN    -> -NaN
 
594
dqcom839 compare +NaN -NaN    ->  NaN
 
595
dqcom840 compare -NaN +NaN    -> -NaN
 
596
 
 
597
dqcom841 compare  sNaN -Inf   ->  NaN  Invalid_operation
 
598
dqcom842 compare  sNaN -1000  ->  NaN  Invalid_operation
 
599
dqcom843 compare  sNaN -1     ->  NaN  Invalid_operation
 
600
dqcom844 compare  sNaN -0     ->  NaN  Invalid_operation
 
601
dqcom845 compare  sNaN  0     ->  NaN  Invalid_operation
 
602
dqcom846 compare  sNaN  1     ->  NaN  Invalid_operation
 
603
dqcom847 compare  sNaN  1000  ->  NaN  Invalid_operation
 
604
dqcom848 compare  sNaN  NaN   ->  NaN  Invalid_operation
 
605
dqcom849 compare  sNaN sNaN   ->  NaN  Invalid_operation
 
606
dqcom850 compare  NaN  sNaN   ->  NaN  Invalid_operation
 
607
dqcom851 compare -Inf  sNaN   ->  NaN  Invalid_operation
 
608
dqcom852 compare -1000 sNaN   ->  NaN  Invalid_operation
 
609
dqcom853 compare -1    sNaN   ->  NaN  Invalid_operation
 
610
dqcom854 compare -0    sNaN   ->  NaN  Invalid_operation
 
611
dqcom855 compare  0    sNaN   ->  NaN  Invalid_operation
 
612
dqcom856 compare  1    sNaN   ->  NaN  Invalid_operation
 
613
dqcom857 compare  1000 sNaN   ->  NaN  Invalid_operation
 
614
dqcom858 compare  Inf  sNaN   ->  NaN  Invalid_operation
 
615
dqcom859 compare  NaN  sNaN   ->  NaN  Invalid_operation
 
616
 
 
617
-- propagating NaNs
 
618
dqcom860 compare  NaN9 -Inf   ->  NaN9
 
619
dqcom861 compare  NaN8  999   ->  NaN8
 
620
dqcom862 compare  NaN77 Inf   ->  NaN77
 
621
dqcom863 compare -NaN67 NaN5  -> -NaN67
 
622
dqcom864 compare -Inf  -NaN4  -> -NaN4
 
623
dqcom865 compare -999  -NaN33 -> -NaN33
 
624
dqcom866 compare  Inf   NaN2  ->  NaN2
 
625
dqcom867 compare -NaN41 -NaN42 -> -NaN41
 
626
dqcom868 compare +NaN41 -NaN42 ->  NaN41
 
627
dqcom869 compare -NaN41 +NaN42 -> -NaN41
 
628
dqcom870 compare +NaN41 +NaN42 ->  NaN41
 
629
 
 
630
dqcom871 compare -sNaN99 -Inf    -> -NaN99 Invalid_operation
 
631
dqcom872 compare  sNaN98 -11     ->  NaN98 Invalid_operation
 
632
dqcom873 compare  sNaN97  NaN    ->  NaN97 Invalid_operation
 
633
dqcom874 compare  sNaN16 sNaN94  ->  NaN16 Invalid_operation
 
634
dqcom875 compare  NaN85  sNaN83  ->  NaN83 Invalid_operation
 
635
dqcom876 compare -Inf    sNaN92  ->  NaN92 Invalid_operation
 
636
dqcom877 compare  088    sNaN81  ->  NaN81 Invalid_operation
 
637
dqcom878 compare  Inf    sNaN90  ->  NaN90 Invalid_operation
 
638
dqcom879 compare  NaN   -sNaN89  -> -NaN89 Invalid_operation
 
639
 
 
640
-- wide range
 
641
dqcom880 compare +1.23456789012345E-0 9E+6144 -> -1
 
642
dqcom881 compare 9E+6144 +1.23456789012345E-0 ->  1
 
643
dqcom882 compare +0.100 9E-6143               ->  1
 
644
dqcom883 compare 9E-6143 +0.100               -> -1
 
645
dqcom885 compare -1.23456789012345E-0 9E+6144 -> -1
 
646
dqcom886 compare 9E+6144 -1.23456789012345E-0 ->  1
 
647
dqcom887 compare -0.100 9E-6143               -> -1
 
648
dqcom888 compare 9E-6143 -0.100               ->  1
 
649
 
 
650
-- signs
 
651
dqcom901 compare  1e+77  1e+11 ->  1
 
652
dqcom902 compare  1e+77 -1e+11 ->  1
 
653
dqcom903 compare -1e+77  1e+11 -> -1
 
654
dqcom904 compare -1e+77 -1e+11 -> -1
 
655
dqcom905 compare  1e-77  1e-11 -> -1
 
656
dqcom906 compare  1e-77 -1e-11 ->  1
 
657
dqcom907 compare -1e-77  1e-11 -> -1
 
658
dqcom908 compare -1e-77 -1e-11 ->  1
 
659
 
 
660
-- full alignment range, both ways
 
661
dqcomp1001 compare 1 1.000000000000000000000000000000000  -> 0
 
662
dqcomp1002 compare 1 1.00000000000000000000000000000000   -> 0
 
663
dqcomp1003 compare 1 1.0000000000000000000000000000000    -> 0
 
664
dqcomp1004 compare 1 1.000000000000000000000000000000     -> 0
 
665
dqcomp1005 compare 1 1.00000000000000000000000000000      -> 0
 
666
dqcomp1006 compare 1 1.0000000000000000000000000000       -> 0
 
667
dqcomp1007 compare 1 1.000000000000000000000000000        -> 0
 
668
dqcomp1008 compare 1 1.00000000000000000000000000         -> 0
 
669
dqcomp1009 compare 1 1.0000000000000000000000000          -> 0
 
670
dqcomp1010 compare 1 1.000000000000000000000000           -> 0
 
671
dqcomp1011 compare 1 1.00000000000000000000000            -> 0
 
672
dqcomp1012 compare 1 1.0000000000000000000000             -> 0
 
673
dqcomp1013 compare 1 1.000000000000000000000              -> 0
 
674
dqcomp1014 compare 1 1.00000000000000000000               -> 0
 
675
dqcomp1015 compare 1 1.0000000000000000000                -> 0
 
676
dqcomp1016 compare 1 1.000000000000000000                 -> 0
 
677
dqcomp1017 compare 1 1.00000000000000000                  -> 0
 
678
dqcomp1018 compare 1 1.0000000000000000                   -> 0
 
679
dqcomp1019 compare 1 1.000000000000000  -> 0
 
680
dqcomp1020 compare 1 1.00000000000000   -> 0
 
681
dqcomp1021 compare 1 1.0000000000000    -> 0
 
682
dqcomp1022 compare 1 1.000000000000     -> 0
 
683
dqcomp1023 compare 1 1.00000000000      -> 0
 
684
dqcomp1024 compare 1 1.0000000000       -> 0
 
685
dqcomp1025 compare 1 1.000000000        -> 0
 
686
dqcomp1026 compare 1 1.00000000         -> 0
 
687
dqcomp1027 compare 1 1.0000000          -> 0
 
688
dqcomp1028 compare 1 1.000000           -> 0
 
689
dqcomp1029 compare 1 1.00000            -> 0
 
690
dqcomp1030 compare 1 1.0000             -> 0
 
691
dqcomp1031 compare 1 1.000              -> 0
 
692
dqcomp1032 compare 1 1.00               -> 0
 
693
dqcomp1033 compare 1 1.0                -> 0
 
694
 
 
695
dqcomp1041 compare 1.000000000000000000000000000000000  1 -> 0
 
696
dqcomp1042 compare 1.00000000000000000000000000000000   1 -> 0
 
697
dqcomp1043 compare 1.0000000000000000000000000000000    1 -> 0
 
698
dqcomp1044 compare 1.000000000000000000000000000000     1 -> 0
 
699
dqcomp1045 compare 1.00000000000000000000000000000      1 -> 0
 
700
dqcomp1046 compare 1.0000000000000000000000000000       1 -> 0
 
701
dqcomp1047 compare 1.000000000000000000000000000        1 -> 0
 
702
dqcomp1048 compare 1.00000000000000000000000000         1 -> 0
 
703
dqcomp1049 compare 1.0000000000000000000000000          1 -> 0
 
704
dqcomp1050 compare 1.000000000000000000000000           1 -> 0
 
705
dqcomp1051 compare 1.00000000000000000000000            1 -> 0
 
706
dqcomp1052 compare 1.0000000000000000000000             1 -> 0
 
707
dqcomp1053 compare 1.000000000000000000000              1 -> 0
 
708
dqcomp1054 compare 1.00000000000000000000               1 -> 0
 
709
dqcomp1055 compare 1.0000000000000000000                1 -> 0
 
710
dqcomp1056 compare 1.000000000000000000                 1 -> 0
 
711
dqcomp1057 compare 1.00000000000000000                  1 -> 0
 
712
dqcomp1058 compare 1.0000000000000000                   1 -> 0
 
713
dqcomp1059 compare 1.000000000000000  1 -> 0
 
714
dqcomp1060 compare 1.00000000000000   1 -> 0
 
715
dqcomp1061 compare 1.0000000000000    1 -> 0
 
716
dqcomp1062 compare 1.000000000000     1 -> 0
 
717
dqcomp1063 compare 1.00000000000      1 -> 0
 
718
dqcomp1064 compare 1.0000000000       1 -> 0
 
719
dqcomp1065 compare 1.000000000        1 -> 0
 
720
dqcomp1066 compare 1.00000000         1 -> 0
 
721
dqcomp1067 compare 1.0000000          1 -> 0
 
722
dqcomp1068 compare 1.000000           1 -> 0
 
723
dqcomp1069 compare 1.00000            1 -> 0
 
724
dqcomp1070 compare 1.0000             1 -> 0
 
725
dqcomp1071 compare 1.000              1 -> 0
 
726
dqcomp1072 compare 1.00               1 -> 0
 
727
dqcomp1073 compare 1.0                1 -> 0
 
728
 
 
729
-- check MSD always detected non-zero
 
730
dqcomp1080 compare 0 0.000000000000000000000000000000000  -> 0
 
731
dqcomp1081 compare 0 1.000000000000000000000000000000000  -> -1
 
732
dqcomp1082 compare 0 2.000000000000000000000000000000000  -> -1
 
733
dqcomp1083 compare 0 3.000000000000000000000000000000000  -> -1
 
734
dqcomp1084 compare 0 4.000000000000000000000000000000000  -> -1
 
735
dqcomp1085 compare 0 5.000000000000000000000000000000000  -> -1
 
736
dqcomp1086 compare 0 6.000000000000000000000000000000000  -> -1
 
737
dqcomp1087 compare 0 7.000000000000000000000000000000000  -> -1
 
738
dqcomp1088 compare 0 8.000000000000000000000000000000000  -> -1
 
739
dqcomp1089 compare 0 9.000000000000000000000000000000000  -> -1
 
740
dqcomp1090 compare 0.000000000000000000000000000000000  0 -> 0
 
741
dqcomp1091 compare 1.000000000000000000000000000000000  0 -> 1
 
742
dqcomp1092 compare 2.000000000000000000000000000000000  0 -> 1
 
743
dqcomp1093 compare 3.000000000000000000000000000000000  0 -> 1
 
744
dqcomp1094 compare 4.000000000000000000000000000000000  0 -> 1
 
745
dqcomp1095 compare 5.000000000000000000000000000000000  0 -> 1
 
746
dqcomp1096 compare 6.000000000000000000000000000000000  0 -> 1
 
747
dqcomp1097 compare 7.000000000000000000000000000000000  0 -> 1
 
748
dqcomp1098 compare 8.000000000000000000000000000000000  0 -> 1
 
749
dqcomp1099 compare 9.000000000000000000000000000000000  0 -> 1
 
750
 
 
751
-- Null tests
 
752
dqcom990 compare 10  # -> NaN Invalid_operation
 
753
dqcom991 compare  # 10 -> NaN Invalid_operation