URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [20041011-1.c] - Rev 826
Compare with Previous | Blame | View Log
typedef unsigned long long ull; volatile int gvol[32]; ull gull; #define MULTI(X) \ X( 1), X( 2), X( 3), X( 4), X( 5), X( 6), X( 7), X( 8), X( 9), X(10), \ X(11), X(12), X(13), X(14), X(15), X(16), X(17), X(18), X(19), X(20), \ X(21), X(22), X(23), X(24), X(25), X(26), X(27), X(28), X(29), X(30) #define DECLARE(INDEX) x##INDEX #define COPYIN(INDEX) x##INDEX = gvol[INDEX] #define COPYOUT(INDEX) gvol[INDEX] = x##INDEX #define BUILD_TEST(NAME, N) \ ull __attribute__((noinline)) \ NAME (int n, ull x) \ { \ while (n--) \ { \ int MULTI (DECLARE); \ MULTI (COPYIN); \ MULTI (COPYOUT); \ x += N; \ } \ return x; \ } #define RUN_TEST(NAME, N) \ if (NAME (3, ~0ULL) != N * 3 - 1) \ abort (); \ if (NAME (3, 0xffffffffULL) \ != N * 3 + 0xffffffffULL) \ abort (); #define DO_TESTS(DO_TEST) \ DO_TEST (t1, -2048) \ DO_TEST (t2, -513) \ DO_TEST (t3, -512) \ DO_TEST (t4, -511) \ DO_TEST (t5, -1) \ DO_TEST (t6, 1) \ DO_TEST (t7, 511) \ DO_TEST (t8, 512) \ DO_TEST (t9, 513) \ DO_TEST (t10, gull) \ DO_TEST (t11, -gull) DO_TESTS (BUILD_TEST) ull neg (ull x) { return -x; } int main () { gull = 100; DO_TESTS (RUN_TEST) if (neg (gull) != -100ULL) abort (); exit (0); }