1  #include <stdlib.h>
       2  #include <unistd.h>
       3  
       4  int
       5  main ()
       6  {
       7    int x = 0, y = 0, z = 0, err;
       8    int shared_mem = 0;
       9    #pragma omp target map(to: shared_mem)
      10    shared_mem = 1;
      11    #pragma omp parallel
      12    #pragma omp single
      13    {
      14      #pragma omp task depend(in: x)
      15      {
      16        usleep (5000);
      17        x = 1;
      18      }
      19      #pragma omp task depend(in: x)
      20      {
      21        usleep (6000);
      22        y = 2;
      23      }
      24      #pragma omp task depend(out: z)
      25      {
      26        usleep (7000);
      27        z = 3;
      28      }
      29      #pragma omp target enter data map(to: x, y, z) depend(inout: x, z) nowait
      30      #pragma omp task depend(inout: x, z)
      31      {
      32        x++; y++; z++;
      33      }
      34      #pragma omp target update to(x, y) depend(inout: x) nowait
      35      #pragma omp target enter data map(always, to: z) depend(inout: z) nowait
      36      #pragma omp target map (alloc: x, y, z) map (from: err) depend(inout: x, z)
      37      {
      38        err = x != 2 || y != 3 || z != 4;
      39        x = 5; y = 6; z = 7;
      40      }
      41      #pragma omp task depend(in: x)
      42      {
      43        usleep (5000);
      44        if (!shared_mem)
      45  	x = 1;
      46      }
      47      #pragma omp task depend(in: x)
      48      {
      49        usleep (6000);
      50        if (!shared_mem)
      51  	y = 2;
      52      }
      53      #pragma omp task depend(out: z)
      54      {
      55        usleep (3000);
      56        if (!shared_mem)
      57  	z = 3;
      58      }
      59      #pragma omp target exit data map(release: z) depend(inout: z) nowait
      60      #pragma omp target exit data map(from: x, y) depend(inout: x) nowait
      61      #pragma omp target exit data map(from: z) depend(inout: z) nowait
      62      #pragma omp taskwait
      63      if (err || x != 5 || y != 6 || z != 7)
      64        abort ();
      65    }
      66    return 0;
      67  }