1 ------------------------------------------------------------------------
\r
2 -- nextplus.decTest -- decimal next that is greater [754r nextup] --
\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
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
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
28 nextp001 nextplus 0.999999995 -> 0.999999996
\r
29 nextp002 nextplus 0.999999996 -> 0.999999997
\r
30 nextp003 nextplus 0.999999997 -> 0.999999998
\r
31 nextp004 nextplus 0.999999998 -> 0.999999999
\r
32 nextp005 nextplus 0.999999999 -> 1.00000000
\r
33 nextp006 nextplus 1.00000000 -> 1.00000001
\r
34 nextp007 nextplus 1.0 -> 1.00000001
\r
35 nextp008 nextplus 1 -> 1.00000001
\r
36 nextp009 nextplus 1.00000001 -> 1.00000002
\r
37 nextp010 nextplus 1.00000002 -> 1.00000003
\r
38 nextp011 nextplus 1.00000003 -> 1.00000004
\r
39 nextp012 nextplus 1.00000004 -> 1.00000005
\r
40 nextp013 nextplus 1.00000005 -> 1.00000006
\r
41 nextp014 nextplus 1.00000006 -> 1.00000007
\r
42 nextp015 nextplus 1.00000007 -> 1.00000008
\r
43 nextp016 nextplus 1.00000008 -> 1.00000009
\r
44 nextp017 nextplus 1.00000009 -> 1.00000010
\r
45 nextp018 nextplus 1.00000010 -> 1.00000011
\r
46 nextp019 nextplus 1.00000011 -> 1.00000012
\r
48 nextp021 nextplus -0.999999995 -> -0.999999994
\r
49 nextp022 nextplus -0.999999996 -> -0.999999995
\r
50 nextp023 nextplus -0.999999997 -> -0.999999996
\r
51 nextp024 nextplus -0.999999998 -> -0.999999997
\r
52 nextp025 nextplus -0.999999999 -> -0.999999998
\r
53 nextp026 nextplus -1.00000000 -> -0.999999999
\r
54 nextp027 nextplus -1.0 -> -0.999999999
\r
55 nextp028 nextplus -1 -> -0.999999999
\r
56 nextp029 nextplus -1.00000001 -> -1.00000000
\r
57 nextp030 nextplus -1.00000002 -> -1.00000001
\r
58 nextp031 nextplus -1.00000003 -> -1.00000002
\r
59 nextp032 nextplus -1.00000004 -> -1.00000003
\r
60 nextp033 nextplus -1.00000005 -> -1.00000004
\r
61 nextp034 nextplus -1.00000006 -> -1.00000005
\r
62 nextp035 nextplus -1.00000007 -> -1.00000006
\r
63 nextp036 nextplus -1.00000008 -> -1.00000007
\r
64 nextp037 nextplus -1.00000009 -> -1.00000008
\r
65 nextp038 nextplus -1.00000010 -> -1.00000009
\r
66 nextp039 nextplus -1.00000011 -> -1.00000010
\r
67 nextp040 nextplus -1.00000012 -> -1.00000011
\r
69 -- input operand is >precision
\r
70 nextp041 nextplus 1.00000010998 -> 1.00000011
\r
71 nextp042 nextplus 1.00000010999 -> 1.00000011
\r
72 nextp043 nextplus 1.00000011000 -> 1.00000012
\r
73 nextp044 nextplus 1.00000011001 -> 1.00000012
\r
74 nextp045 nextplus 1.00000011002 -> 1.00000012
\r
75 nextp046 nextplus 1.00000011002 -> 1.00000012
\r
76 nextp047 nextplus 1.00000011052 -> 1.00000012
\r
77 nextp048 nextplus 1.00000011552 -> 1.00000012
\r
78 nextp049 nextplus -1.00000010998 -> -1.00000010
\r
79 nextp050 nextplus -1.00000010999 -> -1.00000010
\r
80 nextp051 nextplus -1.00000011000 -> -1.00000010
\r
81 nextp052 nextplus -1.00000011001 -> -1.00000011
\r
82 nextp053 nextplus -1.00000011002 -> -1.00000011
\r
83 nextp054 nextplus -1.00000011002 -> -1.00000011
\r
84 nextp055 nextplus -1.00000011052 -> -1.00000011
\r
85 nextp056 nextplus -1.00000011552 -> -1.00000011
\r
86 -- ultra-tiny inputs
\r
87 nextp060 nextplus 1E-99999 -> 1E-391
\r
88 nextp061 nextplus 1E-999999999 -> 1E-391
\r
89 nextp062 nextplus 1E-391 -> 2E-391
\r
90 nextp063 nextplus -1E-99999 -> -0E-391
\r
91 nextp064 nextplus -1E-999999999 -> -0E-391
\r
92 nextp065 nextplus -1E-391 -> -0E-391
\r
95 nextp100 nextplus 0 -> 1E-391
\r
96 nextp101 nextplus 0.00 -> 1E-391
\r
97 nextp102 nextplus 0E-300 -> 1E-391
\r
98 nextp103 nextplus 0E+300 -> 1E-391
\r
99 nextp104 nextplus 0E+30000 -> 1E-391
\r
100 nextp105 nextplus -0 -> 1E-391
\r
101 nextp106 nextplus -0.00 -> 1E-391
\r
102 nextp107 nextplus -0E-300 -> 1E-391
\r
103 nextp108 nextplus -0E+300 -> 1E-391
\r
104 nextp109 nextplus -0E+30000 -> 1E-391
\r
110 nextp150 nextplus Inf -> Infinity
\r
111 nextp151 nextplus -Inf -> -9.99999999E+999
\r
112 nextp152 nextplus NaN -> NaN
\r
113 nextp153 nextplus sNaN -> NaN Invalid_operation
\r
114 nextp154 nextplus NaN77 -> NaN77
\r
115 nextp155 nextplus sNaN88 -> NaN88 Invalid_operation
\r
116 nextp156 nextplus -NaN -> -NaN
\r
117 nextp157 nextplus -sNaN -> -NaN Invalid_operation
\r
118 nextp158 nextplus -NaN77 -> -NaN77
\r
119 nextp159 nextplus -sNaN88 -> -NaN88 Invalid_operation
\r
121 -- Nmax, Nmin, Ntiny, subnormals
\r
122 nextp170 nextplus 9.99999999E+999 -> Infinity
\r
123 nextp171 nextplus 9.99999998E+999 -> 9.99999999E+999
\r
124 nextp172 nextplus 1E-999 -> 1.00000001E-999
\r
125 nextp173 nextplus 1.00000000E-999 -> 1.00000001E-999
\r
126 nextp174 nextplus 9E-1007 -> 1.0E-1006
\r
127 nextp175 nextplus 9.9E-1006 -> 1.00E-1005
\r
128 nextp176 nextplus 9.9999E-1003 -> 1.00000E-1002
\r
129 nextp177 nextplus 9.9999999E-1000 -> 1.00000000E-999
\r
130 nextp178 nextplus 9.9999998E-1000 -> 9.9999999E-1000
\r
131 nextp179 nextplus 9.9999997E-1000 -> 9.9999998E-1000
\r
132 nextp180 nextplus 0E-1007 -> 1E-1007
\r
133 nextp181 nextplus 1E-1007 -> 2E-1007
\r
134 nextp182 nextplus 2E-1007 -> 3E-1007
\r
136 nextp183 nextplus -0E-1007 -> 1E-1007
\r
137 nextp184 nextplus -1E-1007 -> -0E-1007
\r
138 nextp185 nextplus -2E-1007 -> -1E-1007
\r
139 nextp186 nextplus -10E-1007 -> -9E-1007
\r
140 nextp187 nextplus -100E-1007 -> -9.9E-1006
\r
141 nextp188 nextplus -100000E-1007 -> -9.9999E-1003
\r
142 nextp189 nextplus -1.0000E-999 -> -9.9999999E-1000
\r
143 nextp190 nextplus -1.00000000E-999 -> -9.9999999E-1000
\r
144 nextp191 nextplus -1E-999 -> -9.9999999E-1000
\r
145 nextp192 nextplus -9.99999998E+999 -> -9.99999997E+999
\r
146 nextp193 nextplus -9.99999999E+999 -> -9.99999998E+999
\r
149 nextp900 nextplus # -> NaN Invalid_operation
\r