libgomp/testsuite/libgomp.c-c++-common/task-detach-1.c

   1 /* { dg-do run } */
   2
   3 #include <omp.h>
   4 #include <assert.h>
   5
   6 /* Test chaining of detached tasks, with each task fulfilling the
   7    completion event of the previous one.  */
   8
   9 int main (void)
  10 {
  11   omp_event_handle_t detach_event1, detach_event2;
  12   int x = 0, y = 0, z = 0;
  13
  14   #pragma omp parallel
  15     #pragma omp single
  16     {
  17       #pragma omp task detach (detach_event1)
  18         x++;
  19
  20       #pragma omp task detach (detach_event2)
  21       {
  22         y++;
  23         omp_fulfill_event (detach_event1);
  24       }
  25
  26       #pragma omp task
  27       {
  28         z++;
  29         omp_fulfill_event (detach_event2);
  30       }
  31     }
  32
  33   assert (x == 1);
  34   assert (y == 1);
  35   assert (z == 1);
  36 }