1 2002-05-08 Tom Rix <trix@redhat.com>
3 * gcc.c-torture/execute/20020508-1.c: New test.
4 * gcc.c-torture/execute/20020508-2.c: New test.
5 * gcc.c-torture/execute/20020508-3.c: New test.
7 --- gcc/testsuite/gcc.c-torture/execute/20020508-1.c.jj Wed May 15 14:22:47 2002
8 +++ gcc/testsuite/gcc.c-torture/execute/20020508-1.c Wed May 15 14:22:47 2002
10 +/* This tests the rotate patterns that some machines support. */
18 +#define ROR(a,b) (((a) >> (b)) | ((a) << ((sizeof (a) * CHAR_BIT) - (b))))
19 +#define ROL(a,b) (((a) << (b)) | ((a) >> ((sizeof (a) * CHAR_BIT) - (b))))
21 +#define CHAR_VALUE ((unsigned char)0xf234U)
22 +#define SHORT_VALUE ((unsigned short)0xf234U)
23 +#define INT_VALUE 0xf234U
24 +#define LONG_VALUE 0xf2345678LU
25 +#define LL_VALUE 0xf2345678abcdef0LLU
28 +#define SHIFT2 ((sizeof (long long) * CHAR_BIT) - SHIFT1)
30 +unsigned char uc = CHAR_VALUE;
31 +unsigned short us = SHORT_VALUE;
32 +unsigned int ui = INT_VALUE;
33 +unsigned long ul = LONG_VALUE;
34 +unsigned long long ull = LL_VALUE;
40 + if (ROR (uc, shift1) != ROR (CHAR_VALUE, SHIFT1))
43 + if (ROR (uc, SHIFT1) != ROR (CHAR_VALUE, SHIFT1))
46 + if (ROR (us, shift1) != ROR (SHORT_VALUE, SHIFT1))
49 + if (ROR (us, SHIFT1) != ROR (SHORT_VALUE, SHIFT1))
52 + if (ROR (ui, shift1) != ROR (INT_VALUE, SHIFT1))
55 + if (ROR (ui, SHIFT1) != ROR (INT_VALUE, SHIFT1))
58 + if (ROR (ul, shift1) != ROR (LONG_VALUE, SHIFT1))
61 + if (ROR (ul, SHIFT1) != ROR (LONG_VALUE, SHIFT1))
64 + if (ROR (ull, shift1) != ROR (LL_VALUE, SHIFT1))
67 + if (ROR (ull, SHIFT1) != ROR (LL_VALUE, SHIFT1))
70 + if (ROR (ull, shift2) != ROR (LL_VALUE, SHIFT2))
73 + if (ROR (ull, SHIFT2) != ROR (LL_VALUE, SHIFT2))
76 + if (ROL (uc, shift1) != ROL (CHAR_VALUE, SHIFT1))
79 + if (ROL (uc, SHIFT1) != ROL (CHAR_VALUE, SHIFT1))
82 + if (ROL (us, shift1) != ROL (SHORT_VALUE, SHIFT1))
85 + if (ROL (us, SHIFT1) != ROL (SHORT_VALUE, SHIFT1))
88 + if (ROL (ui, shift1) != ROL (INT_VALUE, SHIFT1))
91 + if (ROL (ui, SHIFT1) != ROL (INT_VALUE, SHIFT1))
94 + if (ROL (ul, shift1) != ROL (LONG_VALUE, SHIFT1))
97 + if (ROL (ul, SHIFT1) != ROL (LONG_VALUE, SHIFT1))
100 + if (ROL (ull, shift1) != ROL (LL_VALUE, SHIFT1))
103 + if (ROL (ull, SHIFT1) != ROL (LL_VALUE, SHIFT1))
106 + if (ROL (ull, shift2) != ROL (LL_VALUE, SHIFT2))
109 + if (ROL (ull, SHIFT2) != ROL (LL_VALUE, SHIFT2))
114 --- gcc/testsuite/gcc.c-torture/execute/20020508-2.c.jj Wed May 15 14:22:47 2002
115 +++ gcc/testsuite/gcc.c-torture/execute/20020508-2.c Wed May 15 14:22:47 2002
123 +#define ROR(a,b) (((a) >> (b)) | ((a) << ((sizeof (a) * CHAR_BIT) - (b))))
124 +#define ROL(a,b) (((a) << (b)) | ((a) >> ((sizeof (a) * CHAR_BIT) - (b))))
126 +#define CHAR_VALUE ((char)0x1234)
127 +#define SHORT_VALUE ((short)0x1234)
128 +#define INT_VALUE ((int)0x1234)
129 +#define LONG_VALUE ((long)0x12345678L)
130 +#define LL_VALUE ((long long)0x12345678abcdef0LL)
133 +#define SHIFT2 ((sizeof (long long) * CHAR_BIT) - SHIFT1)
135 +char c = CHAR_VALUE;
136 +short s = SHORT_VALUE;
138 +long l = LONG_VALUE;
139 +long long ll = LL_VALUE;
140 +int shift1 = SHIFT1;
141 +int shift2 = SHIFT2;
145 + if (ROR (c, shift1) != ROR (CHAR_VALUE, SHIFT1))
148 + if (ROR (c, SHIFT1) != ROR (CHAR_VALUE, SHIFT1))
151 + if (ROR (s, shift1) != ROR (SHORT_VALUE, SHIFT1))
154 + if (ROR (s, SHIFT1) != ROR (SHORT_VALUE, SHIFT1))
157 + if (ROR (i, shift1) != ROR (INT_VALUE, SHIFT1))
160 + if (ROR (i, SHIFT1) != ROR (INT_VALUE, SHIFT1))
163 + if (ROR (l, shift1) != ROR (LONG_VALUE, SHIFT1))
166 + if (ROR (l, SHIFT1) != ROR (LONG_VALUE, SHIFT1))
169 + if (ROR (ll, shift1) != ROR (LL_VALUE, SHIFT1))
172 + if (ROR (ll, SHIFT1) != ROR (LL_VALUE, SHIFT1))
175 + if (ROR (ll, shift2) != ROR (LL_VALUE, SHIFT2))
178 + if (ROR (ll, SHIFT2) != ROR (LL_VALUE, SHIFT2))
181 + if (ROL (c, shift1) != ROL (CHAR_VALUE, SHIFT1))
184 + if (ROL (c, SHIFT1) != ROL (CHAR_VALUE, SHIFT1))
187 + if (ROL (s, shift1) != ROL (SHORT_VALUE, SHIFT1))
190 + if (ROL (s, SHIFT1) != ROL (SHORT_VALUE, SHIFT1))
193 + if (ROL (i, shift1) != ROL (INT_VALUE, SHIFT1))
196 + if (ROL (i, SHIFT1) != ROL (INT_VALUE, SHIFT1))
199 + if (ROL (l, shift1) != ROL (LONG_VALUE, SHIFT1))
202 + if (ROL (l, SHIFT1) != ROL (LONG_VALUE, SHIFT1))
205 + if (ROL (ll, shift1) != ROL (LL_VALUE, SHIFT1))
208 + if (ROL (ll, SHIFT1) != ROL (LL_VALUE, SHIFT1))
211 + if (ROL (ll, shift2) != ROL (LL_VALUE, SHIFT2))
214 + if (ROL (ll, SHIFT2) != ROL (LL_VALUE, SHIFT2))
219 --- gcc/testsuite/gcc.c-torture/execute/20020508-3.c.jj Wed May 15 14:22:47 2002
220 +++ gcc/testsuite/gcc.c-torture/execute/20020508-3.c Wed May 15 14:22:47 2002
228 +#define ROR(a,b) (((a) >> (b)) | ((a) << ((sizeof (a) * CHAR_BIT) - (b))))
229 +#define ROL(a,b) (((a) << (b)) | ((a) >> ((sizeof (a) * CHAR_BIT) - (b))))
231 +#define CHAR_VALUE ((char)0xf234)
232 +#define SHORT_VALUE ((short)0xf234)
233 +#define INT_VALUE ((int)0xf234)
234 +#define LONG_VALUE ((long)0xf2345678L)
235 +#define LL_VALUE ((long long)0xf2345678abcdef0LL)
238 +#define SHIFT2 ((sizeof (long long) * CHAR_BIT) - SHIFT1)
240 +char c = CHAR_VALUE;
241 +short s = SHORT_VALUE;
243 +long l = LONG_VALUE;
244 +long long ll = LL_VALUE;
245 +int shift1 = SHIFT1;
246 +int shift2 = SHIFT2;
250 + if (ROR (c, shift1) != ROR (CHAR_VALUE, SHIFT1))
253 + if (ROR (c, SHIFT1) != ROR (CHAR_VALUE, SHIFT1))
256 + if (ROR (s, shift1) != ROR (SHORT_VALUE, SHIFT1))
259 + if (ROR (s, SHIFT1) != ROR (SHORT_VALUE, SHIFT1))
262 + if (ROR (i, shift1) != ROR (INT_VALUE, SHIFT1))
265 + if (ROR (i, SHIFT1) != ROR (INT_VALUE, SHIFT1))
268 + if (ROR (l, shift1) != ROR (LONG_VALUE, SHIFT1))
271 + if (ROR (l, SHIFT1) != ROR (LONG_VALUE, SHIFT1))
274 + if (ROR (ll, shift1) != ROR (LL_VALUE, SHIFT1))
277 + if (ROR (ll, SHIFT1) != ROR (LL_VALUE, SHIFT1))
280 + if (ROR (ll, shift2) != ROR (LL_VALUE, SHIFT2))
283 + if (ROR (ll, SHIFT2) != ROR (LL_VALUE, SHIFT2))
286 + if (ROL (c, shift1) != ROL (CHAR_VALUE, SHIFT1))
289 + if (ROL (c, SHIFT1) != ROL (CHAR_VALUE, SHIFT1))
292 + if (ROL (s, shift1) != ROL (SHORT_VALUE, SHIFT1))
295 + if (ROL (s, SHIFT1) != ROL (SHORT_VALUE, SHIFT1))
298 + if (ROL (i, shift1) != ROL (INT_VALUE, SHIFT1))
301 + if (ROL (i, SHIFT1) != ROL (INT_VALUE, SHIFT1))
304 + if (ROL (l, shift1) != ROL (LONG_VALUE, SHIFT1))
307 + if (ROL (l, SHIFT1) != ROL (LONG_VALUE, SHIFT1))
310 + if (ROL (ll, shift1) != ROL (LL_VALUE, SHIFT1))
313 + if (ROL (ll, SHIFT1) != ROL (LL_VALUE, SHIFT1))
316 + if (ROL (ll, shift2) != ROL (LL_VALUE, SHIFT2))
319 + if (ROL (ll, SHIFT2) != ROL (LL_VALUE, SHIFT2))