|
0
|
1 // { dg-do run }
|
|
|
2 // Test several constructs within a parallel. At one point in development,
|
|
|
3 // the critical directive clobbered the shared clause of the parallel.
|
|
|
4
|
|
|
5 #include <omp.h>
|
|
|
6 #include <stdlib.h>
|
|
|
7
|
|
|
8 #define N 2000
|
|
|
9
|
|
|
10 int main()
|
|
|
11 {
|
|
|
12 int A[N];
|
|
|
13 int nthreads;
|
|
|
14 int i;
|
|
|
15
|
|
|
16 #pragma omp parallel shared (A, nthreads)
|
|
|
17 {
|
|
|
18 #pragma omp master
|
|
|
19 nthreads = omp_get_num_threads ();
|
|
|
20
|
|
|
21 #pragma omp for
|
|
|
22 for (i = 0; i < N; i++)
|
|
|
23 A[i] = 0;
|
|
|
24
|
|
|
25 #pragma omp critical
|
|
|
26 for (i = 0; i < N; i++)
|
|
|
27 A[i] += 1;
|
|
|
28 }
|
|
|
29
|
|
|
30 for (i = 0; i < N; i++)
|
|
|
31 if (A[i] != nthreads)
|
|
|
32 abort ();
|
|
|
33
|
|
|
34 return 0;
|
|
|
35 }
|
