libgomp/testsuite/libgomp.c/examples-4/task_dep-4.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

/* { dg-do run } */

#include <stdlib.h>
int main()
{
   int x = 1;
   #pragma omp parallel
   #pragma omp single
   {
      #pragma omp task shared(x) depend(out: x)
        x = 2;
      #pragma omp task shared(x) depend(in: x)
        if (x != 2)
          abort ();
      #pragma omp task shared(x) depend(in: x)
        if (x != 2)
          abort ();
   }
   return 0;
}