1
------------------------------------------------------------------------
2
-- comparetotmag.decTest -- decimal comparison, abs. total ordering --
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 --
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. --
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 --
19
------------------------------------------------------------------------
22
-- Note that it cannot be assumed that add/subtract tests cover paths
23
-- for this operation adequately, here, because the code might be
24
-- quite different (comparison cannot overflow or underflow, so
25
-- actual subtractions are not necessary). Similarly, comparetotal
26
-- will have some radically different paths than compare.
35
ctmx001 comparetotmag -2 -2 -> 0
36
ctmx002 comparetotmag -2 -1 -> 1
37
ctmx003 comparetotmag -2 0 -> 1
38
ctmx004 comparetotmag -2 1 -> 1
39
ctmx005 comparetotmag -2 2 -> 0
40
ctmx006 comparetotmag -1 -2 -> -1
41
ctmx007 comparetotmag -1 -1 -> 0
42
ctmx008 comparetotmag -1 0 -> 1
43
ctmx009 comparetotmag -1 1 -> 0
44
ctmx010 comparetotmag -1 2 -> -1
45
ctmx011 comparetotmag 0 -2 -> -1
46
ctmx012 comparetotmag 0 -1 -> -1
47
ctmx013 comparetotmag 0 0 -> 0
48
ctmx014 comparetotmag 0 1 -> -1
49
ctmx015 comparetotmag 0 2 -> -1
50
ctmx016 comparetotmag 1 -2 -> -1
51
ctmx017 comparetotmag 1 -1 -> 0
52
ctmx018 comparetotmag 1 0 -> 1
53
ctmx019 comparetotmag 1 1 -> 0
54
ctmx020 comparetotmag 1 2 -> -1
55
ctmx021 comparetotmag 2 -2 -> 0
56
ctmx022 comparetotmag 2 -1 -> 1
57
ctmx023 comparetotmag 2 0 -> 1
58
ctmx025 comparetotmag 2 1 -> 1
59
ctmx026 comparetotmag 2 2 -> 0
61
ctmx031 comparetotmag -20 -20 -> 0
62
ctmx032 comparetotmag -20 -10 -> 1
63
ctmx033 comparetotmag -20 00 -> 1
64
ctmx034 comparetotmag -20 10 -> 1
65
ctmx035 comparetotmag -20 20 -> 0
66
ctmx036 comparetotmag -10 -20 -> -1
67
ctmx037 comparetotmag -10 -10 -> 0
68
ctmx038 comparetotmag -10 00 -> 1
69
ctmx039 comparetotmag -10 10 -> 0
70
ctmx040 comparetotmag -10 20 -> -1
71
ctmx041 comparetotmag 00 -20 -> -1
72
ctmx042 comparetotmag 00 -10 -> -1
73
ctmx043 comparetotmag 00 00 -> 0
74
ctmx044 comparetotmag 00 10 -> -1
75
ctmx045 comparetotmag 00 20 -> -1
76
ctmx046 comparetotmag 10 -20 -> -1
77
ctmx047 comparetotmag 10 -10 -> 0
78
ctmx048 comparetotmag 10 00 -> 1
79
ctmx049 comparetotmag 10 10 -> 0
80
ctmx050 comparetotmag 10 20 -> -1
81
ctmx051 comparetotmag 20 -20 -> 0
82
ctmx052 comparetotmag 20 -10 -> 1
83
ctmx053 comparetotmag 20 00 -> 1
84
ctmx055 comparetotmag 20 10 -> 1
85
ctmx056 comparetotmag 20 20 -> 0
87
ctmx061 comparetotmag -2.0 -2.0 -> 0
88
ctmx062 comparetotmag -2.0 -1.0 -> 1
89
ctmx063 comparetotmag -2.0 0.0 -> 1
90
ctmx064 comparetotmag -2.0 1.0 -> 1
91
ctmx065 comparetotmag -2.0 2.0 -> 0
92
ctmx066 comparetotmag -1.0 -2.0 -> -1
93
ctmx067 comparetotmag -1.0 -1.0 -> 0
94
ctmx068 comparetotmag -1.0 0.0 -> 1
95
ctmx069 comparetotmag -1.0 1.0 -> 0
96
ctmx070 comparetotmag -1.0 2.0 -> -1
97
ctmx071 comparetotmag 0.0 -2.0 -> -1
98
ctmx072 comparetotmag 0.0 -1.0 -> -1
99
ctmx073 comparetotmag 0.0 0.0 -> 0
100
ctmx074 comparetotmag 0.0 1.0 -> -1
101
ctmx075 comparetotmag 0.0 2.0 -> -1
102
ctmx076 comparetotmag 1.0 -2.0 -> -1
103
ctmx077 comparetotmag 1.0 -1.0 -> 0
104
ctmx078 comparetotmag 1.0 0.0 -> 1
105
ctmx079 comparetotmag 1.0 1.0 -> 0
106
ctmx080 comparetotmag 1.0 2.0 -> -1
107
ctmx081 comparetotmag 2.0 -2.0 -> 0
108
ctmx082 comparetotmag 2.0 -1.0 -> 1
109
ctmx083 comparetotmag 2.0 0.0 -> 1
110
ctmx085 comparetotmag 2.0 1.0 -> 1
111
ctmx086 comparetotmag 2.0 2.0 -> 0
113
-- now some cases which might overflow if subtract were used
114
maxexponent: 999999999
115
minexponent: -999999999
116
ctmx090 comparetotmag 9.99999999E+999999999 9.99999999E+999999999 -> 0
117
ctmx091 comparetotmag -9.99999999E+999999999 9.99999999E+999999999 -> 0
118
ctmx092 comparetotmag 9.99999999E+999999999 -9.99999999E+999999999 -> 0
119
ctmx093 comparetotmag -9.99999999E+999999999 -9.99999999E+999999999 -> 0
121
-- some differing length/exponent cases
122
-- in this first group, compare would compare all equal
123
ctmx100 comparetotmag 7.0 7.0 -> 0
124
ctmx101 comparetotmag 7.0 7 -> -1
125
ctmx102 comparetotmag 7 7.0 -> 1
126
ctmx103 comparetotmag 7E+0 7.0 -> 1
127
ctmx104 comparetotmag 70E-1 7.0 -> 0
128
ctmx105 comparetotmag 0.7E+1 7 -> 0
129
ctmx106 comparetotmag 70E-1 7 -> -1
130
ctmx107 comparetotmag 7.0 7E+0 -> -1
131
ctmx108 comparetotmag 7.0 70E-1 -> 0
132
ctmx109 comparetotmag 7 0.7E+1 -> 0
133
ctmx110 comparetotmag 7 70E-1 -> 1
135
ctmx120 comparetotmag 8.0 7.0 -> 1
136
ctmx121 comparetotmag 8.0 7 -> 1
137
ctmx122 comparetotmag 8 7.0 -> 1
138
ctmx123 comparetotmag 8E+0 7.0 -> 1
139
ctmx124 comparetotmag 80E-1 7.0 -> 1
140
ctmx125 comparetotmag 0.8E+1 7 -> 1
141
ctmx126 comparetotmag 80E-1 7 -> 1
142
ctmx127 comparetotmag 8.0 7E+0 -> 1
143
ctmx128 comparetotmag 8.0 70E-1 -> 1
144
ctmx129 comparetotmag 8 0.7E+1 -> 1
145
ctmx130 comparetotmag 8 70E-1 -> 1
147
ctmx140 comparetotmag 8.0 9.0 -> -1
148
ctmx141 comparetotmag 8.0 9 -> -1
149
ctmx142 comparetotmag 8 9.0 -> -1
150
ctmx143 comparetotmag 8E+0 9.0 -> -1
151
ctmx144 comparetotmag 80E-1 9.0 -> -1
152
ctmx145 comparetotmag 0.8E+1 9 -> -1
153
ctmx146 comparetotmag 80E-1 9 -> -1
154
ctmx147 comparetotmag 8.0 9E+0 -> -1
155
ctmx148 comparetotmag 8.0 90E-1 -> -1
156
ctmx149 comparetotmag 8 0.9E+1 -> -1
157
ctmx150 comparetotmag 8 90E-1 -> -1
159
-- and again, with sign changes -+ ..
160
ctmx200 comparetotmag -7.0 7.0 -> 0
161
ctmx201 comparetotmag -7.0 7 -> -1
162
ctmx202 comparetotmag -7 7.0 -> 1
163
ctmx203 comparetotmag -7E+0 7.0 -> 1
164
ctmx204 comparetotmag -70E-1 7.0 -> 0
165
ctmx205 comparetotmag -0.7E+1 7 -> 0
166
ctmx206 comparetotmag -70E-1 7 -> -1
167
ctmx207 comparetotmag -7.0 7E+0 -> -1
168
ctmx208 comparetotmag -7.0 70E-1 -> 0
169
ctmx209 comparetotmag -7 0.7E+1 -> 0
170
ctmx210 comparetotmag -7 70E-1 -> 1
172
ctmx220 comparetotmag -8.0 7.0 -> 1
173
ctmx221 comparetotmag -8.0 7 -> 1
174
ctmx222 comparetotmag -8 7.0 -> 1
175
ctmx223 comparetotmag -8E+0 7.0 -> 1
176
ctmx224 comparetotmag -80E-1 7.0 -> 1
177
ctmx225 comparetotmag -0.8E+1 7 -> 1
178
ctmx226 comparetotmag -80E-1 7 -> 1
179
ctmx227 comparetotmag -8.0 7E+0 -> 1
180
ctmx228 comparetotmag -8.0 70E-1 -> 1
181
ctmx229 comparetotmag -8 0.7E+1 -> 1
182
ctmx230 comparetotmag -8 70E-1 -> 1
184
ctmx240 comparetotmag -8.0 9.0 -> -1
185
ctmx241 comparetotmag -8.0 9 -> -1
186
ctmx242 comparetotmag -8 9.0 -> -1
187
ctmx243 comparetotmag -8E+0 9.0 -> -1
188
ctmx244 comparetotmag -80E-1 9.0 -> -1
189
ctmx245 comparetotmag -0.8E+1 9 -> -1
190
ctmx246 comparetotmag -80E-1 9 -> -1
191
ctmx247 comparetotmag -8.0 9E+0 -> -1
192
ctmx248 comparetotmag -8.0 90E-1 -> -1
193
ctmx249 comparetotmag -8 0.9E+1 -> -1
194
ctmx250 comparetotmag -8 90E-1 -> -1
196
-- and again, with sign changes +- ..
197
ctmx300 comparetotmag 7.0 -7.0 -> 0
198
ctmx301 comparetotmag 7.0 -7 -> -1
199
ctmx302 comparetotmag 7 -7.0 -> 1
200
ctmx303 comparetotmag 7E+0 -7.0 -> 1
201
ctmx304 comparetotmag 70E-1 -7.0 -> 0
202
ctmx305 comparetotmag .7E+1 -7 -> 0
203
ctmx306 comparetotmag 70E-1 -7 -> -1
204
ctmx307 comparetotmag 7.0 -7E+0 -> -1
205
ctmx308 comparetotmag 7.0 -70E-1 -> 0
206
ctmx309 comparetotmag 7 -.7E+1 -> 0
207
ctmx310 comparetotmag 7 -70E-1 -> 1
209
ctmx320 comparetotmag 8.0 -7.0 -> 1
210
ctmx321 comparetotmag 8.0 -7 -> 1
211
ctmx322 comparetotmag 8 -7.0 -> 1
212
ctmx323 comparetotmag 8E+0 -7.0 -> 1
213
ctmx324 comparetotmag 80E-1 -7.0 -> 1
214
ctmx325 comparetotmag .8E+1 -7 -> 1
215
ctmx326 comparetotmag 80E-1 -7 -> 1
216
ctmx327 comparetotmag 8.0 -7E+0 -> 1
217
ctmx328 comparetotmag 8.0 -70E-1 -> 1
218
ctmx329 comparetotmag 8 -.7E+1 -> 1
219
ctmx330 comparetotmag 8 -70E-1 -> 1
221
ctmx340 comparetotmag 8.0 -9.0 -> -1
222
ctmx341 comparetotmag 8.0 -9 -> -1
223
ctmx342 comparetotmag 8 -9.0 -> -1
224
ctmx343 comparetotmag 8E+0 -9.0 -> -1
225
ctmx344 comparetotmag 80E-1 -9.0 -> -1
226
ctmx345 comparetotmag .8E+1 -9 -> -1
227
ctmx346 comparetotmag 80E-1 -9 -> -1
228
ctmx347 comparetotmag 8.0 -9E+0 -> -1
229
ctmx348 comparetotmag 8.0 -90E-1 -> -1
230
ctmx349 comparetotmag 8 -.9E+1 -> -1
231
ctmx350 comparetotmag 8 -90E-1 -> -1
233
-- and again, with sign changes -- ..
234
ctmx400 comparetotmag -7.0 -7.0 -> 0
235
ctmx401 comparetotmag -7.0 -7 -> -1
236
ctmx402 comparetotmag -7 -7.0 -> 1
237
ctmx403 comparetotmag -7E+0 -7.0 -> 1
238
ctmx404 comparetotmag -70E-1 -7.0 -> 0
239
ctmx405 comparetotmag -.7E+1 -7 -> 0
240
ctmx406 comparetotmag -70E-1 -7 -> -1
241
ctmx407 comparetotmag -7.0 -7E+0 -> -1
242
ctmx408 comparetotmag -7.0 -70E-1 -> 0
243
ctmx409 comparetotmag -7 -.7E+1 -> 0
244
ctmx410 comparetotmag -7 -70E-1 -> 1
246
ctmx420 comparetotmag -8.0 -7.0 -> 1
247
ctmx421 comparetotmag -8.0 -7 -> 1
248
ctmx422 comparetotmag -8 -7.0 -> 1
249
ctmx423 comparetotmag -8E+0 -7.0 -> 1
250
ctmx424 comparetotmag -80E-1 -7.0 -> 1
251
ctmx425 comparetotmag -.8E+1 -7 -> 1
252
ctmx426 comparetotmag -80E-1 -7 -> 1
253
ctmx427 comparetotmag -8.0 -7E+0 -> 1
254
ctmx428 comparetotmag -8.0 -70E-1 -> 1
255
ctmx429 comparetotmag -8 -.7E+1 -> 1
256
ctmx430 comparetotmag -8 -70E-1 -> 1
258
ctmx440 comparetotmag -8.0 -9.0 -> -1
259
ctmx441 comparetotmag -8.0 -9 -> -1
260
ctmx442 comparetotmag -8 -9.0 -> -1
261
ctmx443 comparetotmag -8E+0 -9.0 -> -1
262
ctmx444 comparetotmag -80E-1 -9.0 -> -1
263
ctmx445 comparetotmag -.8E+1 -9 -> -1
264
ctmx446 comparetotmag -80E-1 -9 -> -1
265
ctmx447 comparetotmag -8.0 -9E+0 -> -1
266
ctmx448 comparetotmag -8.0 -90E-1 -> -1
267
ctmx449 comparetotmag -8 -.9E+1 -> -1
268
ctmx450 comparetotmag -8 -90E-1 -> -1
271
-- testcases that subtract to lots of zeros at boundaries [pgr]
273
ctmx470 comparetotmag 123.4560000000000000E789 123.456E789 -> -1
274
ctmx471 comparetotmag 123.456000000000000E-89 123.456E-89 -> -1
275
ctmx472 comparetotmag 123.45600000000000E789 123.456E789 -> -1
276
ctmx473 comparetotmag 123.4560000000000E-89 123.456E-89 -> -1
277
ctmx474 comparetotmag 123.456000000000E789 123.456E789 -> -1
278
ctmx475 comparetotmag 123.45600000000E-89 123.456E-89 -> -1
279
ctmx476 comparetotmag 123.4560000000E789 123.456E789 -> -1
280
ctmx477 comparetotmag 123.456000000E-89 123.456E-89 -> -1
281
ctmx478 comparetotmag 123.45600000E789 123.456E789 -> -1
282
ctmx479 comparetotmag 123.4560000E-89 123.456E-89 -> -1
283
ctmx480 comparetotmag 123.456000E789 123.456E789 -> -1
284
ctmx481 comparetotmag 123.45600E-89 123.456E-89 -> -1
285
ctmx482 comparetotmag 123.4560E789 123.456E789 -> -1
286
ctmx483 comparetotmag 123.456E-89 123.456E-89 -> 0
287
ctmx484 comparetotmag 123.456E-89 123.4560000000000000E-89 -> 1
288
ctmx485 comparetotmag 123.456E789 123.456000000000000E789 -> 1
289
ctmx486 comparetotmag 123.456E-89 123.45600000000000E-89 -> 1
290
ctmx487 comparetotmag 123.456E789 123.4560000000000E789 -> 1
291
ctmx488 comparetotmag 123.456E-89 123.456000000000E-89 -> 1
292
ctmx489 comparetotmag 123.456E789 123.45600000000E789 -> 1
293
ctmx490 comparetotmag 123.456E-89 123.4560000000E-89 -> 1
294
ctmx491 comparetotmag 123.456E789 123.456000000E789 -> 1
295
ctmx492 comparetotmag 123.456E-89 123.45600000E-89 -> 1
296
ctmx493 comparetotmag 123.456E789 123.4560000E789 -> 1
297
ctmx494 comparetotmag 123.456E-89 123.456000E-89 -> 1
298
ctmx495 comparetotmag 123.456E789 123.45600E789 -> 1
299
ctmx496 comparetotmag 123.456E-89 123.4560E-89 -> 1
300
ctmx497 comparetotmag 123.456E789 123.456E789 -> 0
302
-- wide-ranging, around precision; signs equal
304
ctmx500 comparetotmag 1 1E-15 -> 1
305
ctmx501 comparetotmag 1 1E-14 -> 1
306
ctmx502 comparetotmag 1 1E-13 -> 1
307
ctmx503 comparetotmag 1 1E-12 -> 1
308
ctmx504 comparetotmag 1 1E-11 -> 1
309
ctmx505 comparetotmag 1 1E-10 -> 1
310
ctmx506 comparetotmag 1 1E-9 -> 1
311
ctmx507 comparetotmag 1 1E-8 -> 1
312
ctmx508 comparetotmag 1 1E-7 -> 1
313
ctmx509 comparetotmag 1 1E-6 -> 1
314
ctmx510 comparetotmag 1 1E-5 -> 1
315
ctmx511 comparetotmag 1 1E-4 -> 1
316
ctmx512 comparetotmag 1 1E-3 -> 1
317
ctmx513 comparetotmag 1 1E-2 -> 1
318
ctmx514 comparetotmag 1 1E-1 -> 1
319
ctmx515 comparetotmag 1 1E-0 -> 0
320
ctmx516 comparetotmag 1 1E+1 -> -1
321
ctmx517 comparetotmag 1 1E+2 -> -1
322
ctmx518 comparetotmag 1 1E+3 -> -1
323
ctmx519 comparetotmag 1 1E+4 -> -1
324
ctmx521 comparetotmag 1 1E+5 -> -1
325
ctmx522 comparetotmag 1 1E+6 -> -1
326
ctmx523 comparetotmag 1 1E+7 -> -1
327
ctmx524 comparetotmag 1 1E+8 -> -1
328
ctmx525 comparetotmag 1 1E+9 -> -1
329
ctmx526 comparetotmag 1 1E+10 -> -1
330
ctmx527 comparetotmag 1 1E+11 -> -1
331
ctmx528 comparetotmag 1 1E+12 -> -1
332
ctmx529 comparetotmag 1 1E+13 -> -1
333
ctmx530 comparetotmag 1 1E+14 -> -1
334
ctmx531 comparetotmag 1 1E+15 -> -1
336
ctmx540 comparetotmag 1E-15 1 -> -1
337
ctmx541 comparetotmag 1E-14 1 -> -1
338
ctmx542 comparetotmag 1E-13 1 -> -1
339
ctmx543 comparetotmag 1E-12 1 -> -1
340
ctmx544 comparetotmag 1E-11 1 -> -1
341
ctmx545 comparetotmag 1E-10 1 -> -1
342
ctmx546 comparetotmag 1E-9 1 -> -1
343
ctmx547 comparetotmag 1E-8 1 -> -1
344
ctmx548 comparetotmag 1E-7 1 -> -1
345
ctmx549 comparetotmag 1E-6 1 -> -1
346
ctmx550 comparetotmag 1E-5 1 -> -1
347
ctmx551 comparetotmag 1E-4 1 -> -1
348
ctmx552 comparetotmag 1E-3 1 -> -1
349
ctmx553 comparetotmag 1E-2 1 -> -1
350
ctmx554 comparetotmag 1E-1 1 -> -1
351
ctmx555 comparetotmag 1E-0 1 -> 0
352
ctmx556 comparetotmag 1E+1 1 -> 1
353
ctmx557 comparetotmag 1E+2 1 -> 1
354
ctmx558 comparetotmag 1E+3 1 -> 1
355
ctmx559 comparetotmag 1E+4 1 -> 1
356
ctmx561 comparetotmag 1E+5 1 -> 1
357
ctmx562 comparetotmag 1E+6 1 -> 1
358
ctmx563 comparetotmag 1E+7 1 -> 1
359
ctmx564 comparetotmag 1E+8 1 -> 1
360
ctmx565 comparetotmag 1E+9 1 -> 1
361
ctmx566 comparetotmag 1E+10 1 -> 1
362
ctmx567 comparetotmag 1E+11 1 -> 1
363
ctmx568 comparetotmag 1E+12 1 -> 1
364
ctmx569 comparetotmag 1E+13 1 -> 1
365
ctmx570 comparetotmag 1E+14 1 -> 1
366
ctmx571 comparetotmag 1E+15 1 -> 1
367
-- similar with an useful coefficient, one side only
368
ctmx580 comparetotmag 0.000000987654321 1E-15 -> 1
369
ctmx581 comparetotmag 0.000000987654321 1E-14 -> 1
370
ctmx582 comparetotmag 0.000000987654321 1E-13 -> 1
371
ctmx583 comparetotmag 0.000000987654321 1E-12 -> 1
372
ctmx584 comparetotmag 0.000000987654321 1E-11 -> 1
373
ctmx585 comparetotmag 0.000000987654321 1E-10 -> 1
374
ctmx586 comparetotmag 0.000000987654321 1E-9 -> 1
375
ctmx587 comparetotmag 0.000000987654321 1E-8 -> 1
376
ctmx588 comparetotmag 0.000000987654321 1E-7 -> 1
377
ctmx589 comparetotmag 0.000000987654321 1E-6 -> -1
378
ctmx590 comparetotmag 0.000000987654321 1E-5 -> -1
379
ctmx591 comparetotmag 0.000000987654321 1E-4 -> -1
380
ctmx592 comparetotmag 0.000000987654321 1E-3 -> -1
381
ctmx593 comparetotmag 0.000000987654321 1E-2 -> -1
382
ctmx594 comparetotmag 0.000000987654321 1E-1 -> -1
383
ctmx595 comparetotmag 0.000000987654321 1E-0 -> -1
384
ctmx596 comparetotmag 0.000000987654321 1E+1 -> -1
385
ctmx597 comparetotmag 0.000000987654321 1E+2 -> -1
386
ctmx598 comparetotmag 0.000000987654321 1E+3 -> -1
387
ctmx599 comparetotmag 0.000000987654321 1E+4 -> -1
389
-- check some unit-y traps
391
ctmx600 comparetotmag 12 12.2345 -> -1
392
ctmx601 comparetotmag 12.0 12.2345 -> -1
393
ctmx602 comparetotmag 12.00 12.2345 -> -1
394
ctmx603 comparetotmag 12.000 12.2345 -> -1
395
ctmx604 comparetotmag 12.0000 12.2345 -> -1
396
ctmx605 comparetotmag 12.00000 12.2345 -> -1
397
ctmx606 comparetotmag 12.000000 12.2345 -> -1
398
ctmx607 comparetotmag 12.0000000 12.2345 -> -1
399
ctmx608 comparetotmag 12.00000000 12.2345 -> -1
400
ctmx609 comparetotmag 12.000000000 12.2345 -> -1
401
ctmx610 comparetotmag 12.1234 12 -> 1
402
ctmx611 comparetotmag 12.1234 12.0 -> 1
403
ctmx612 comparetotmag 12.1234 12.00 -> 1
404
ctmx613 comparetotmag 12.1234 12.000 -> 1
405
ctmx614 comparetotmag 12.1234 12.0000 -> 1
406
ctmx615 comparetotmag 12.1234 12.00000 -> 1
407
ctmx616 comparetotmag 12.1234 12.000000 -> 1
408
ctmx617 comparetotmag 12.1234 12.0000000 -> 1
409
ctmx618 comparetotmag 12.1234 12.00000000 -> 1
410
ctmx619 comparetotmag 12.1234 12.000000000 -> 1
411
ctmx620 comparetotmag -12 -12.2345 -> -1
412
ctmx621 comparetotmag -12.0 -12.2345 -> -1
413
ctmx622 comparetotmag -12.00 -12.2345 -> -1
414
ctmx623 comparetotmag -12.000 -12.2345 -> -1
415
ctmx624 comparetotmag -12.0000 -12.2345 -> -1
416
ctmx625 comparetotmag -12.00000 -12.2345 -> -1
417
ctmx626 comparetotmag -12.000000 -12.2345 -> -1
418
ctmx627 comparetotmag -12.0000000 -12.2345 -> -1
419
ctmx628 comparetotmag -12.00000000 -12.2345 -> -1
420
ctmx629 comparetotmag -12.000000000 -12.2345 -> -1
421
ctmx630 comparetotmag -12.1234 -12 -> 1
422
ctmx631 comparetotmag -12.1234 -12.0 -> 1
423
ctmx632 comparetotmag -12.1234 -12.00 -> 1
424
ctmx633 comparetotmag -12.1234 -12.000 -> 1
425
ctmx634 comparetotmag -12.1234 -12.0000 -> 1
426
ctmx635 comparetotmag -12.1234 -12.00000 -> 1
427
ctmx636 comparetotmag -12.1234 -12.000000 -> 1
428
ctmx637 comparetotmag -12.1234 -12.0000000 -> 1
429
ctmx638 comparetotmag -12.1234 -12.00000000 -> 1
430
ctmx639 comparetotmag -12.1234 -12.000000000 -> 1
434
ctmx640 comparetotmag 0 0 -> 0
435
ctmx641 comparetotmag 0 -0 -> 0
436
ctmx642 comparetotmag 0 -0.0 -> 1
437
ctmx643 comparetotmag 0 0.0 -> 1
438
ctmx644 comparetotmag -0 0 -> 0
439
ctmx645 comparetotmag -0 -0 -> 0
440
ctmx646 comparetotmag -0 -0.0 -> 1
441
ctmx647 comparetotmag -0 0.0 -> 1
442
ctmx648 comparetotmag 0.0 0 -> -1
443
ctmx649 comparetotmag 0.0 -0 -> -1
444
ctmx650 comparetotmag 0.0 -0.0 -> 0
445
ctmx651 comparetotmag 0.0 0.0 -> 0
446
ctmx652 comparetotmag -0.0 0 -> -1
447
ctmx653 comparetotmag -0.0 -0 -> -1
448
ctmx654 comparetotmag -0.0 -0.0 -> 0
449
ctmx655 comparetotmag -0.0 0.0 -> 0
451
ctmx656 comparetotmag -0E1 0.0 -> 1
452
ctmx657 comparetotmag -0E2 0.0 -> 1
453
ctmx658 comparetotmag 0E1 0.0 -> 1
454
ctmx659 comparetotmag 0E2 0.0 -> 1
455
ctmx660 comparetotmag -0E1 0 -> 1
456
ctmx661 comparetotmag -0E2 0 -> 1
457
ctmx662 comparetotmag 0E1 0 -> 1
458
ctmx663 comparetotmag 0E2 0 -> 1
459
ctmx664 comparetotmag -0E1 -0E1 -> 0
460
ctmx665 comparetotmag -0E2 -0E1 -> 1
461
ctmx666 comparetotmag 0E1 -0E1 -> 0
462
ctmx667 comparetotmag 0E2 -0E1 -> 1
463
ctmx668 comparetotmag -0E1 -0E2 -> -1
464
ctmx669 comparetotmag -0E2 -0E2 -> 0
465
ctmx670 comparetotmag 0E1 -0E2 -> -1
466
ctmx671 comparetotmag 0E2 -0E2 -> 0
467
ctmx672 comparetotmag -0E1 0E1 -> 0
468
ctmx673 comparetotmag -0E2 0E1 -> 1
469
ctmx674 comparetotmag 0E1 0E1 -> 0
470
ctmx675 comparetotmag 0E2 0E1 -> 1
471
ctmx676 comparetotmag -0E1 0E2 -> -1
472
ctmx677 comparetotmag -0E2 0E2 -> 0
473
ctmx678 comparetotmag 0E1 0E2 -> -1
474
ctmx679 comparetotmag 0E2 0E2 -> 0
476
-- trailing zeros; unit-y
478
ctmx680 comparetotmag 12 12 -> 0
479
ctmx681 comparetotmag 12 12.0 -> 1
480
ctmx682 comparetotmag 12 12.00 -> 1
481
ctmx683 comparetotmag 12 12.000 -> 1
482
ctmx684 comparetotmag 12 12.0000 -> 1
483
ctmx685 comparetotmag 12 12.00000 -> 1
484
ctmx686 comparetotmag 12 12.000000 -> 1
485
ctmx687 comparetotmag 12 12.0000000 -> 1
486
ctmx688 comparetotmag 12 12.00000000 -> 1
487
ctmx689 comparetotmag 12 12.000000000 -> 1
488
ctmx690 comparetotmag 12 12 -> 0
489
ctmx691 comparetotmag 12.0 12 -> -1
490
ctmx692 comparetotmag 12.00 12 -> -1
491
ctmx693 comparetotmag 12.000 12 -> -1
492
ctmx694 comparetotmag 12.0000 12 -> -1
493
ctmx695 comparetotmag 12.00000 12 -> -1
494
ctmx696 comparetotmag 12.000000 12 -> -1
495
ctmx697 comparetotmag 12.0000000 12 -> -1
496
ctmx698 comparetotmag 12.00000000 12 -> -1
497
ctmx699 comparetotmag 12.000000000 12 -> -1
499
-- long operand checks
503
ctmx701 comparetotmag 12345678000 1 -> 1
504
ctmx702 comparetotmag 1 12345678000 -> -1
505
ctmx703 comparetotmag 1234567800 1 -> 1
506
ctmx704 comparetotmag 1 1234567800 -> -1
507
ctmx705 comparetotmag 1234567890 1 -> 1
508
ctmx706 comparetotmag 1 1234567890 -> -1
509
ctmx707 comparetotmag 1234567891 1 -> 1
510
ctmx708 comparetotmag 1 1234567891 -> -1
511
ctmx709 comparetotmag 12345678901 1 -> 1
512
ctmx710 comparetotmag 1 12345678901 -> -1
513
ctmx711 comparetotmag 1234567896 1 -> 1
514
ctmx712 comparetotmag 1 1234567896 -> -1
515
ctmx713 comparetotmag -1234567891 1 -> 1
516
ctmx714 comparetotmag 1 -1234567891 -> -1
517
ctmx715 comparetotmag -12345678901 1 -> 1
518
ctmx716 comparetotmag 1 -12345678901 -> -1
519
ctmx717 comparetotmag -1234567896 1 -> 1
520
ctmx718 comparetotmag 1 -1234567896 -> -1
523
-- same with plenty of precision
524
ctmx721 comparetotmag 12345678000 1 -> 1
525
ctmx722 comparetotmag 1 12345678000 -> -1
526
ctmx723 comparetotmag 1234567800 1 -> 1
527
ctmx724 comparetotmag 1 1234567800 -> -1
528
ctmx725 comparetotmag 1234567890 1 -> 1
529
ctmx726 comparetotmag 1 1234567890 -> -1
530
ctmx727 comparetotmag 1234567891 1 -> 1
531
ctmx728 comparetotmag 1 1234567891 -> -1
532
ctmx729 comparetotmag 12345678901 1 -> 1
533
ctmx730 comparetotmag 1 12345678901 -> -1
534
ctmx731 comparetotmag 1234567896 1 -> 1
535
ctmx732 comparetotmag 1 1234567896 -> -1
539
ctmx740 comparetotmag 1 0.9999999 -> 1
540
ctmx741 comparetotmag 1 0.999999 -> 1
541
ctmx742 comparetotmag 1 0.99999 -> 1
542
ctmx743 comparetotmag 1 1.0000 -> 1
543
ctmx744 comparetotmag 1 1.00001 -> -1
544
ctmx745 comparetotmag 1 1.000001 -> -1
545
ctmx746 comparetotmag 1 1.0000001 -> -1
546
ctmx750 comparetotmag 0.9999999 1 -> -1
547
ctmx751 comparetotmag 0.999999 1 -> -1
548
ctmx752 comparetotmag 0.99999 1 -> -1
549
ctmx753 comparetotmag 1.0000 1 -> -1
550
ctmx754 comparetotmag 1.00001 1 -> 1
551
ctmx755 comparetotmag 1.000001 1 -> 1
552
ctmx756 comparetotmag 1.0000001 1 -> 1
554
-- a selection of longies
555
ctmx760 comparetotmag -36852134.84194296250843579428931 -5830629.8347085025808756560357940 -> 1
556
ctmx761 comparetotmag -36852134.84194296250843579428931 -36852134.84194296250843579428931 -> 0
557
ctmx762 comparetotmag -36852134.94194296250843579428931 -36852134.84194296250843579428931 -> 1
558
ctmx763 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931 -> -1
559
-- precisions above or below the difference should have no effect
561
ctmx764 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931 -> -1
563
ctmx765 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931 -> -1
565
ctmx766 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931 -> -1
567
ctmx767 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931 -> -1
569
ctmx768 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931 -> -1
571
ctmx769 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931 -> -1
573
ctmx770 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931 -> -1
575
ctmx771 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931 -> -1
577
ctmx772 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931 -> -1
579
ctmx773 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931 -> -1
581
ctmx774 comparetotmag -36852134.84194296250843579428931 -36852134.94194296250843579428931 -> -1
585
ctmx780 comparetotmag Inf -Inf -> 0
586
ctmx781 comparetotmag Inf -1000 -> 1
587
ctmx782 comparetotmag Inf -1 -> 1
588
ctmx783 comparetotmag Inf -0 -> 1
589
ctmx784 comparetotmag Inf 0 -> 1
590
ctmx785 comparetotmag Inf 1 -> 1
591
ctmx786 comparetotmag Inf 1000 -> 1
592
ctmx787 comparetotmag Inf Inf -> 0
593
ctmx788 comparetotmag -1000 Inf -> -1
594
ctmx789 comparetotmag -Inf Inf -> 0
595
ctmx790 comparetotmag -1 Inf -> -1
596
ctmx791 comparetotmag -0 Inf -> -1
597
ctmx792 comparetotmag 0 Inf -> -1
598
ctmx793 comparetotmag 1 Inf -> -1
599
ctmx794 comparetotmag 1000 Inf -> -1
600
ctmx795 comparetotmag Inf Inf -> 0
602
ctmx800 comparetotmag -Inf -Inf -> 0
603
ctmx801 comparetotmag -Inf -1000 -> 1
604
ctmx802 comparetotmag -Inf -1 -> 1
605
ctmx803 comparetotmag -Inf -0 -> 1
606
ctmx804 comparetotmag -Inf 0 -> 1
607
ctmx805 comparetotmag -Inf 1 -> 1
608
ctmx806 comparetotmag -Inf 1000 -> 1
609
ctmx807 comparetotmag -Inf Inf -> 0
610
ctmx808 comparetotmag -Inf -Inf -> 0
611
ctmx809 comparetotmag -1000 -Inf -> -1
612
ctmx810 comparetotmag -1 -Inf -> -1
613
ctmx811 comparetotmag -0 -Inf -> -1
614
ctmx812 comparetotmag 0 -Inf -> -1
615
ctmx813 comparetotmag 1 -Inf -> -1
616
ctmx814 comparetotmag 1000 -Inf -> -1
617
ctmx815 comparetotmag Inf -Inf -> 0
619
ctmx821 comparetotmag NaN -Inf -> 1
620
ctmx822 comparetotmag NaN -1000 -> 1
621
ctmx823 comparetotmag NaN -1 -> 1
622
ctmx824 comparetotmag NaN -0 -> 1
623
ctmx825 comparetotmag NaN 0 -> 1
624
ctmx826 comparetotmag NaN 1 -> 1
625
ctmx827 comparetotmag NaN 1000 -> 1
626
ctmx828 comparetotmag NaN Inf -> 1
627
ctmx829 comparetotmag NaN NaN -> 0
628
ctmx830 comparetotmag -Inf NaN -> -1
629
ctmx831 comparetotmag -1000 NaN -> -1
630
ctmx832 comparetotmag -1 NaN -> -1
631
ctmx833 comparetotmag -0 NaN -> -1
632
ctmx834 comparetotmag 0 NaN -> -1
633
ctmx835 comparetotmag 1 NaN -> -1
634
ctmx836 comparetotmag 1000 NaN -> -1
635
ctmx837 comparetotmag Inf NaN -> -1
636
ctmx838 comparetotmag -NaN -NaN -> 0
637
ctmx839 comparetotmag +NaN -NaN -> 0
638
ctmx840 comparetotmag -NaN +NaN -> 0
640
ctmx841 comparetotmag sNaN -sNaN -> 0
641
ctmx842 comparetotmag sNaN -NaN -> -1
642
ctmx843 comparetotmag sNaN -Inf -> 1
643
ctmx844 comparetotmag sNaN -1000 -> 1
644
ctmx845 comparetotmag sNaN -1 -> 1
645
ctmx846 comparetotmag sNaN -0 -> 1
646
ctmx847 comparetotmag sNaN 0 -> 1
647
ctmx848 comparetotmag sNaN 1 -> 1
648
ctmx849 comparetotmag sNaN 1000 -> 1
649
ctmx850 comparetotmag sNaN NaN -> -1
650
ctmx851 comparetotmag sNaN sNaN -> 0
652
ctmx852 comparetotmag -sNaN sNaN -> 0
653
ctmx853 comparetotmag -NaN sNaN -> 1
654
ctmx854 comparetotmag -Inf sNaN -> -1
655
ctmx855 comparetotmag -1000 sNaN -> -1
656
ctmx856 comparetotmag -1 sNaN -> -1
657
ctmx857 comparetotmag -0 sNaN -> -1
658
ctmx858 comparetotmag 0 sNaN -> -1
659
ctmx859 comparetotmag 1 sNaN -> -1
660
ctmx860 comparetotmag 1000 sNaN -> -1
661
ctmx861 comparetotmag Inf sNaN -> -1
662
ctmx862 comparetotmag NaN sNaN -> 1
663
ctmx863 comparetotmag sNaN sNaN -> 0
665
ctmx871 comparetotmag -sNaN -sNaN -> 0
666
ctmx872 comparetotmag -sNaN -NaN -> -1
667
ctmx873 comparetotmag -sNaN -Inf -> 1
668
ctmx874 comparetotmag -sNaN -1000 -> 1
669
ctmx875 comparetotmag -sNaN -1 -> 1
670
ctmx876 comparetotmag -sNaN -0 -> 1
671
ctmx877 comparetotmag -sNaN 0 -> 1
672
ctmx878 comparetotmag -sNaN 1 -> 1
673
ctmx879 comparetotmag -sNaN 1000 -> 1
674
ctmx880 comparetotmag -sNaN NaN -> -1
675
ctmx881 comparetotmag -sNaN sNaN -> 0
677
ctmx882 comparetotmag -sNaN -sNaN -> 0
678
ctmx883 comparetotmag -NaN -sNaN -> 1
679
ctmx884 comparetotmag -Inf -sNaN -> -1
680
ctmx885 comparetotmag -1000 -sNaN -> -1
681
ctmx886 comparetotmag -1 -sNaN -> -1
682
ctmx887 comparetotmag -0 -sNaN -> -1
683
ctmx888 comparetotmag 0 -sNaN -> -1
684
ctmx889 comparetotmag 1 -sNaN -> -1
685
ctmx890 comparetotmag 1000 -sNaN -> -1
686
ctmx891 comparetotmag Inf -sNaN -> -1
687
ctmx892 comparetotmag NaN -sNaN -> 1
688
ctmx893 comparetotmag sNaN -sNaN -> 0
691
ctmx960 comparetotmag NaN9 -Inf -> 1
692
ctmx961 comparetotmag NaN8 999 -> 1
693
ctmx962 comparetotmag NaN77 Inf -> 1
694
ctmx963 comparetotmag -NaN67 NaN5 -> 1
695
ctmx964 comparetotmag -Inf -NaN4 -> -1
696
ctmx965 comparetotmag -999 -NaN33 -> -1
697
ctmx966 comparetotmag Inf NaN2 -> -1
699
ctmx970 comparetotmag -NaN41 -NaN42 -> -1
700
ctmx971 comparetotmag +NaN41 -NaN42 -> -1
701
ctmx972 comparetotmag -NaN41 +NaN42 -> -1
702
ctmx973 comparetotmag +NaN41 +NaN42 -> -1
703
ctmx974 comparetotmag -NaN42 -NaN01 -> 1
704
ctmx975 comparetotmag +NaN42 -NaN01 -> 1
705
ctmx976 comparetotmag -NaN42 +NaN01 -> 1
706
ctmx977 comparetotmag +NaN42 +NaN01 -> 1
708
ctmx980 comparetotmag -sNaN771 -sNaN772 -> -1
709
ctmx981 comparetotmag +sNaN771 -sNaN772 -> -1
710
ctmx982 comparetotmag -sNaN771 +sNaN772 -> -1
711
ctmx983 comparetotmag +sNaN771 +sNaN772 -> -1
712
ctmx984 comparetotmag -sNaN772 -sNaN771 -> 1
713
ctmx985 comparetotmag +sNaN772 -sNaN771 -> 1
714
ctmx986 comparetotmag -sNaN772 +sNaN771 -> 1
715
ctmx987 comparetotmag +sNaN772 +sNaN771 -> 1
717
ctmx991 comparetotmag -sNaN99 -Inf -> 1
718
ctmx992 comparetotmag sNaN98 -11 -> 1
719
ctmx993 comparetotmag sNaN97 NaN -> -1
720
ctmx994 comparetotmag sNaN16 sNaN94 -> -1
721
ctmx995 comparetotmag NaN85 sNaN83 -> 1
722
ctmx996 comparetotmag -Inf sNaN92 -> -1
723
ctmx997 comparetotmag 088 sNaN81 -> -1
724
ctmx998 comparetotmag Inf sNaN90 -> -1
725
ctmx999 comparetotmag NaN -sNaN89 -> 1
727
-- overflow and underflow tests .. subnormal results now allowed
728
maxExponent: 999999999
729
minexponent: -999999999
730
ctmx1080 comparetotmag +1.23456789012345E-0 9E+999999999 -> -1
731
ctmx1081 comparetotmag 9E+999999999 +1.23456789012345E-0 -> 1
732
ctmx1082 comparetotmag +0.100 9E-999999999 -> 1
733
ctmx1083 comparetotmag 9E-999999999 +0.100 -> -1
734
ctmx1085 comparetotmag -1.23456789012345E-0 9E+999999999 -> -1
735
ctmx1086 comparetotmag 9E+999999999 -1.23456789012345E-0 -> 1
736
ctmx1087 comparetotmag -0.100 9E-999999999 -> 1
737
ctmx1088 comparetotmag 9E-999999999 -0.100 -> -1
739
ctmx1089 comparetotmag 1e-599999999 1e-400000001 -> -1
740
ctmx1090 comparetotmag 1e-599999999 1e-400000000 -> -1
741
ctmx1091 comparetotmag 1e-600000000 1e-400000000 -> -1
742
ctmx1092 comparetotmag 9e-999999998 0.01 -> -1
743
ctmx1093 comparetotmag 9e-999999998 0.1 -> -1
744
ctmx1094 comparetotmag 0.01 9e-999999998 -> 1
745
ctmx1095 comparetotmag 1e599999999 1e400000001 -> 1
746
ctmx1096 comparetotmag 1e599999999 1e400000000 -> 1
747
ctmx1097 comparetotmag 1e600000000 1e400000000 -> 1
748
ctmx1098 comparetotmag 9e999999998 100 -> 1
749
ctmx1099 comparetotmag 9e999999998 10 -> 1
750
ctmx1100 comparetotmag 100 9e999999998 -> -1
752
ctmx1101 comparetotmag 1e+777777777 1e+411111111 -> 1
753
ctmx1102 comparetotmag 1e+777777777 -1e+411111111 -> 1
754
ctmx1103 comparetotmag -1e+777777777 1e+411111111 -> 1
755
ctmx1104 comparetotmag -1e+777777777 -1e+411111111 -> 1
756
ctmx1105 comparetotmag 1e-777777777 1e-411111111 -> -1
757
ctmx1106 comparetotmag 1e-777777777 -1e-411111111 -> -1
758
ctmx1107 comparetotmag -1e-777777777 1e-411111111 -> -1
759
ctmx1108 comparetotmag -1e-777777777 -1e-411111111 -> -1
762
ctmx1110 comparetotmag 0E-383 0 -> -1
763
ctmx1111 comparetotmag 0E-383 -0 -> -1
764
ctmx1112 comparetotmag -0E-383 0 -> -1
765
ctmx1113 comparetotmag -0E-383 -0 -> -1
766
ctmx1114 comparetotmag 0E-383 0E+384 -> -1
767
ctmx1115 comparetotmag 0E-383 -0E+384 -> -1
768
ctmx1116 comparetotmag -0E-383 0E+384 -> -1
769
ctmx1117 comparetotmag -0E-383 -0E+384 -> -1
770
ctmx1118 comparetotmag 0 0E+384 -> -1
771
ctmx1119 comparetotmag 0 -0E+384 -> -1
772
ctmx1120 comparetotmag -0 0E+384 -> -1
773
ctmx1121 comparetotmag -0 -0E+384 -> -1
775
ctmx1130 comparetotmag 0E+384 0 -> 1
776
ctmx1131 comparetotmag 0E+384 -0 -> 1
777
ctmx1132 comparetotmag -0E+384 0 -> 1
778
ctmx1133 comparetotmag -0E+384 -0 -> 1
779
ctmx1134 comparetotmag 0E+384 0E-383 -> 1
780
ctmx1135 comparetotmag 0E+384 -0E-383 -> 1
781
ctmx1136 comparetotmag -0E+384 0E-383 -> 1
782
ctmx1137 comparetotmag -0E+384 -0E-383 -> 1
783
ctmx1138 comparetotmag 0 0E-383 -> 1
784
ctmx1139 comparetotmag 0 -0E-383 -> 1
785
ctmx1140 comparetotmag -0 0E-383 -> 1
786
ctmx1141 comparetotmag -0 -0E-383 -> 1
789
ctmx9990 comparetotmag 10 # -> NaN Invalid_operation
790
ctmx9991 comparetotmag # 10 -> NaN Invalid_operation