1  /* { dg-do run } */
       2  
       3  #include <omp.h>
       4  #include <assert.h>
       5  
       6  /* Test tasks with detach clause.  Each thread spawns off a chain of tasks
       7     in a taskgroup, that can then be executed by any available thread.  */
       8  
       9  int main (void)
      10  {
      11    int x = 0, y = 0, z = 0;
      12    int thread_count;
      13    omp_event_handle_t detach_event1, detach_event2;
      14  
      15    #pragma omp parallel private (detach_event1, detach_event2)
      16      #pragma omp taskgroup
      17      {
      18        #pragma omp single
      19  	thread_count = omp_get_num_threads ();
      20  
      21        #pragma omp task detach (detach_event1) untied
      22  	#pragma omp atomic update
      23  	  x++;
      24  
      25        #pragma omp task detach (detach_event2) untied
      26        {
      27  	#pragma omp atomic update
      28  	  y++;
      29  	omp_fulfill_event (detach_event1);
      30        }
      31  
      32        #pragma omp task untied
      33        {
      34  	#pragma omp atomic update
      35  	  z++;
      36  	omp_fulfill_event (detach_event2);
      37        }
      38      }
      39  
      40    assert (x == thread_count);
      41    assert (y == thread_count);
      42    assert (z == thread_count);
      43  }