URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgomp/] [testsuite/] [libgomp.c/] [ordered-1.c] - Rev 830
Go to most recent revision | Compare with Previous | Blame | View Log
/* Test that all loop iterations are touched. This doesn't verify scheduling order, merely coverage. */ /* Note that we never call GOMP_ordered_start in here. AFAICS, this is valid; the only requirement is "not more than once per iteration". */ /* { dg-require-effective-target sync_int_long } */ #include <omp.h> #include <string.h> #include <assert.h> #include "libgomp_g.h" #define N 1000 static int S, E, INCR, CHUNK, NTHR; static int data[N]; static void clean_data (void) { memset (data, -1, sizeof (data)); } static void test_data (void) { int i, j; for (i = 0; i < S; ++i) assert (data[i] == -1); for (j = 0; i < E; ++i, j = (j + 1) % INCR) if (j == 0) assert (data[i] != -1); else assert (data[i] == -1); for (; i < N; ++i) assert (data[i] == -1); } static void set_data (long i, int val) { int old; assert (i >= 0 && i < N); old = __sync_lock_test_and_set (data+i, val); assert (old == -1); } #define TMPL_1(sched) \ static void f_##sched##_1 (void *dummy) \ { \ int iam = omp_get_thread_num (); \ long s0, e0, i; \ if (GOMP_loop_ordered_##sched##_start (S, E, INCR, CHUNK, &s0, &e0)) \ do \ { \ for (i = s0; i < e0; i += INCR) \ set_data (i, iam); \ } \ while (GOMP_loop_ordered_##sched##_next (&s0, &e0)); \ GOMP_loop_end (); \ } \ static void t_##sched##_1 (void) \ { \ clean_data (); \ GOMP_parallel_start (f_##sched##_1, NULL, NTHR); \ f_##sched##_1 (NULL); \ GOMP_parallel_end (); \ test_data (); \ } TMPL_1(static) TMPL_1(dynamic) TMPL_1(guided) static void test (void) { t_static_1 (); t_dynamic_1 (); t_guided_1 (); } int main() { omp_set_dynamic (0); NTHR = 4; S = 0, E = N, INCR = 1, CHUNK = 4; test (); S = 0, E = N, INCR = 2, CHUNK = 4; test (); S = 1, E = N-1, INCR = 1, CHUNK = 5; test (); S = 1, E = N-1, INCR = 2, CHUNK = 5; test (); S = 2, E = 4, INCR = 1, CHUNK = 1; test (); S = 0, E = N, INCR = 1, CHUNK = 0; t_static_1 (); S = 1, E = N-1, INCR = 1, CHUNK = 0; t_static_1 (); NTHR = 10; S = 1, E = 9, INCR = 1, CHUNK = 0; t_static_1 (); return 0; }
Go to most recent revision | Compare with Previous | Blame | View Log