1 /* Test that all loop iterations are touched.  This doesn't verify
2    scheduling order, merely coverage.  */
3 /* Note that we never call GOMP_ordered_start in here.  AFAICS, this is
4    valid; the only requirement is "not more than once per iteration".  */
5 
6 /* { dg-require-effective-target sync_int_long } */
7 
8 #include <omp.h>
9 #include <string.h>
10 #include <assert.h>
11 #include "libgomp_g.h"
12 
13 
14 #define N 1000
15 static int S, E, INCR, CHUNK, NTHR;
16 static int data[N];
17 
18 static void clean_data (void)
19 {
20   memset (data, -1, sizeof (data));
21 }
22 
23 static void test_data (void)
24 {
25   int i, j;
26 
27   for (i = 0; i < S; ++i)
28     assert (data[i] == -1);
29 
30   for (j = 0; i < E; ++i, j = (j + 1) % INCR)
31     if (j == 0)
32       assert (data[i] != -1);
33     else
34       assert (data[i] == -1);
35 
36   for (; i < N; ++i)
37     assert (data[i] == -1);
38 }
39 
40 static void set_data (long i, int val)
41 {
42   int old;
43   assert (i >= 0 && i < N);
44   old = __sync_lock_test_and_set (data+i, val);
45   assert (old == -1);
46 }
47 
48 
49 #define TMPL_1(sched)							\
50 static void f_##sched##_1 (void *dummy)					\
51 {									\
52   int iam = omp_get_thread_num ();					\
53   long s0, e0, i;							\
54   if (GOMP_loop_ordered_##sched##_start (S, E, INCR, CHUNK, &s0, &e0))	\
55     do									\
56       {									\
57 	for (i = s0; i < e0; i += INCR)					\
58 	  set_data (i, iam);						\
59       }									\
60     while (GOMP_loop_ordered_##sched##_next (&s0, &e0));		\
61   GOMP_loop_end ();							\
62 }									\
63 static void t_##sched##_1 (void)					\
64 {									\
65   clean_data ();							\
66   GOMP_parallel_start (f_##sched##_1, NULL, NTHR);			\
67   f_##sched##_1 (NULL);							\
68   GOMP_parallel_end ();							\
69   test_data ();								\
70 }
71 
72 TMPL_1(static)
73 TMPL_1(dynamic)
74 TMPL_1(guided)
75 
76 static void test (void)
77 {
78   t_static_1 ();
79   t_dynamic_1 ();
80   t_guided_1 ();
81 }
82 
83 int main()
84 {
85   omp_set_dynamic (0);
86 
87   NTHR = 4;
88 
89   S = 0, E = N, INCR = 1, CHUNK = 4;
90   test ();
91 
92   S = 0, E = N, INCR = 2, CHUNK = 4;
93   test ();
94 
95   S = 1, E = N-1, INCR = 1, CHUNK = 5;
96   test ();
97 
98   S = 1, E = N-1, INCR = 2, CHUNK = 5;
99   test ();
100 
101   S = 2, E = 4, INCR = 1, CHUNK = 1;
102   test ();
103 
104   S = 0, E = N, INCR = 1, CHUNK = 0;
105   t_static_1 ();
106 
107   S = 1, E = N-1, INCR = 1, CHUNK = 0;
108   t_static_1 ();
109 
110   NTHR = 10;
111   S = 1, E = 9, INCR = 1, CHUNK = 0;
112   t_static_1 ();
113 
114   return 0;
115 }
116