Annotation of OpenXM_contrib/gmp/tests/mpz/t-fits.c, Revision 1.1.1.1
1.1 ohara 1: /* Test mpz_fits_*_p */
2:
3: /*
4: Copyright 2001 Free Software Foundation, Inc.
5:
6: This file is part of the GNU MP Library.
7:
8: The GNU MP Library is free software; you can redistribute it and/or modify
9: it under the terms of the GNU Lesser General Public License as published by
10: the Free Software Foundation; either version 2.1 of the License, or (at your
11: option) any later version.
12:
13: The GNU MP Library is distributed in the hope that it will be useful, but
14: WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
15: or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
16: License for more details.
17:
18: You should have received a copy of the GNU Lesser General Public License
19: along with the GNU MP Library; see the file COPYING.LIB. If not, write to
20: the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
21: MA 02111-1307, USA.
22: */
23:
24: #include <stdio.h>
25: #include <stdlib.h>
26: #include "gmp.h"
27: #include "gmp-impl.h"
28: #include "tests.h"
29:
30:
31: /* Nothing sophisticated here, just exercise mpz_fits_*_p on a small amount
32: of data. */
33:
34: #define EXPECT_S(fun,name,answer) \
35: got = fun (z); \
36: if (got != answer) \
37: { \
38: printf ("%s (%s) got %d want %d\n", name, expr, got, answer); \
39: printf (" z size %d\n", SIZ(z)); \
40: printf (" z dec "); mpz_out_str (stdout, 10, z); printf ("\n"); \
41: printf (" z hex "); mpz_out_str (stdout, 16, z); printf ("\n"); \
42: error = 1; \
43: }
44:
45: #if HAVE_STRINGIZE
46: #define EXPECT(fun,answer) EXPECT_S(fun,#fun,answer)
47: #else
48: #define EXPECT(fun,answer) EXPECT_S(fun,"fun",answer)
49: #endif
50:
51: int
52: main (void)
53: {
54: mpz_t z;
55: int got;
56: const char *expr;
57: int error = 0;
58:
59: tests_start ();
60: mpz_init (z);
61:
62: mpz_set_ui (z, 0L);
63: expr = "0";
64: EXPECT (mpz_fits_ulong_p, 1);
65: EXPECT (mpz_fits_uint_p, 1);
66: EXPECT (mpz_fits_ushort_p, 1);
67: EXPECT (mpz_fits_slong_p, 1);
68: EXPECT (mpz_fits_sint_p, 1);
69: EXPECT (mpz_fits_sshort_p, 1);
70:
71: mpz_set_ui (z, 1L);
72: expr = "1";
73: EXPECT (mpz_fits_ulong_p, 1);
74: EXPECT (mpz_fits_uint_p, 1);
75: EXPECT (mpz_fits_ushort_p, 1);
76: EXPECT (mpz_fits_slong_p, 1);
77: EXPECT (mpz_fits_sint_p, 1);
78: EXPECT (mpz_fits_sshort_p, 1);
79:
80: mpz_set_si (z, -1L);
81: expr = "-1";
82: EXPECT (mpz_fits_ulong_p, 0);
83: EXPECT (mpz_fits_uint_p, 0);
84: EXPECT (mpz_fits_ushort_p, 0);
85: EXPECT (mpz_fits_slong_p, 1);
86: EXPECT (mpz_fits_sint_p, 1);
87: EXPECT (mpz_fits_sshort_p, 1);
88:
89: mpz_set_ui (z, 1L);
90: mpz_mul_2exp (z, z, 5L*BITS_PER_MP_LIMB);
91: expr = "2^(5*BPML)";
92: EXPECT (mpz_fits_ulong_p, 0);
93: EXPECT (mpz_fits_uint_p, 0);
94: EXPECT (mpz_fits_ushort_p, 0);
95: EXPECT (mpz_fits_slong_p, 0);
96: EXPECT (mpz_fits_sint_p, 0);
97: EXPECT (mpz_fits_sshort_p, 0);
98:
99:
100: mpz_set_ui (z, (unsigned long) USHRT_MAX);
101: expr = "USHRT_MAX";
102: EXPECT (mpz_fits_ulong_p, 1);
103: EXPECT (mpz_fits_uint_p, 1);
104: EXPECT (mpz_fits_ushort_p, 1);
105:
106: mpz_set_ui (z, (unsigned long) USHRT_MAX);
107: mpz_add_ui (z, z, 1L);
108: expr = "USHRT_MAX + 1";
109: EXPECT (mpz_fits_ushort_p, 0);
110:
111:
112: mpz_set_ui (z, (unsigned long) UINT_MAX);
113: expr = "UINT_MAX";
114: EXPECT (mpz_fits_ulong_p, 1);
115: EXPECT (mpz_fits_uint_p, 1);
116:
117: mpz_set_ui (z, (unsigned long) UINT_MAX);
118: mpz_add_ui (z, z, 1L);
119: expr = "UINT_MAX + 1";
120: EXPECT (mpz_fits_uint_p, 0);
121:
122:
123: mpz_set_ui (z, ULONG_MAX);
124: expr = "ULONG_MAX";
125: EXPECT (mpz_fits_ulong_p, 1);
126:
127: mpz_set_ui (z, ULONG_MAX);
128: mpz_add_ui (z, z, 1L);
129: expr = "ULONG_MAX + 1";
130: EXPECT (mpz_fits_ulong_p, 0);
131:
132:
133: mpz_set_si (z, (long) SHRT_MAX);
134: expr = "SHRT_MAX";
135: EXPECT (mpz_fits_slong_p, 1);
136: EXPECT (mpz_fits_sint_p, 1);
137: EXPECT (mpz_fits_sshort_p, 1);
138:
139: mpz_set_si (z, (long) SHRT_MAX);
140: mpz_add_ui (z, z, 1L);
141: expr = "SHRT_MAX + 1";
142: EXPECT (mpz_fits_sshort_p, 0);
143:
144:
145: mpz_set_si (z, (long) INT_MAX);
146: expr = "INT_MAX";
147: EXPECT (mpz_fits_slong_p, 1);
148: EXPECT (mpz_fits_sint_p, 1);
149:
150: mpz_set_si (z, (long) INT_MAX);
151: mpz_add_ui (z, z, 1L);
152: expr = "INT_MAX + 1";
153: EXPECT (mpz_fits_sint_p, 0);
154:
155:
156: mpz_set_si (z, LONG_MAX);
157: expr = "LONG_MAX";
158: EXPECT (mpz_fits_slong_p, 1);
159:
160: mpz_set_si (z, LONG_MAX);
161: mpz_add_ui (z, z, 1L);
162: expr = "LONG_MAX + 1";
163: EXPECT (mpz_fits_slong_p, 0);
164:
165:
166: mpz_set_si (z, (long) SHRT_MIN);
167: expr = "SHRT_MIN";
168: EXPECT (mpz_fits_slong_p, 1);
169: EXPECT (mpz_fits_sint_p, 1);
170: EXPECT (mpz_fits_sshort_p, 1);
171:
172: mpz_set_si (z, (long) SHRT_MIN);
173: mpz_sub_ui (z, z, 1L);
174: expr = "SHRT_MIN + 1";
175: EXPECT (mpz_fits_sshort_p, 0);
176:
177:
178: mpz_set_si (z, (long) INT_MIN);
179: expr = "INT_MIN";
180: EXPECT (mpz_fits_slong_p, 1);
181: EXPECT (mpz_fits_sint_p, 1);
182:
183: mpz_set_si (z, (long) INT_MIN);
184: mpz_sub_ui (z, z, 1L);
185: expr = "INT_MIN + 1";
186: EXPECT (mpz_fits_sint_p, 0);
187:
188:
189: mpz_set_si (z, LONG_MIN);
190: expr = "LONG_MIN";
191: EXPECT (mpz_fits_slong_p, 1);
192:
193: mpz_set_si (z, LONG_MIN);
194: mpz_sub_ui (z, z, 1L);
195: expr = "LONG_MIN + 1";
196: EXPECT (mpz_fits_slong_p, 0);
197:
198:
199: if (error)
200: abort ();
201:
202: mpz_clear (z);
203: tests_end ();
204: exit (0);
205: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to t-fits.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gmp / tests / mpz