1#include <omp.h>
2extern "C" void *memset (void *, int, __SIZE_TYPE__);
3extern "C" void abort (void);
4
5int e;
6
7void
8baz (int i, int *p, int j, int *q)
9{
10  if (p[0] != 1 || p[i] != 3 || q[0] != 2 || q[j] != 4)
11    #pragma omp atomic
12      e++;
13}
14
15void
16foo (int i, int j)
17{
18  int p[i + 1];
19  int q[j + 1];
20  memset (p, 0, sizeof (p));
21  memset (q, 0, sizeof (q));
22  p[0] = 1;
23  p[i] = 3;
24  q[0] = 2;
25  q[j] = 4;
26  #pragma omp task firstprivate (p, q)
27    baz (i, p, j, q);
28}
29
30int
31main ()
32{
33  #pragma omp parallel num_threads (4)
34    foo (5 + omp_get_thread_num (), 7 + omp_get_thread_num ());
35  if (e)
36    abort ();
37}
38