1  /* { dg-do run } */
       2  /* { dg-set-target-env-var OMP_CANCELLATION "true" } */
       3  
       4  #include <stdlib.h>
       5  #include <unistd.h>
       6  #include <omp.h>
       7  
       8  int
       9  main ()
      10  {
      11    int i;
      12    #pragma omp parallel
      13    {
      14      int c = 0;
      15      #pragma omp barrier
      16      #pragma omp master taskloop num_tasks (25) firstprivate (c)
      17      for (i = 0; i < 50; i++)
      18        {
      19          if (c && omp_get_cancellation ())
      20  	  abort ();
      21  	#pragma omp cancellation point taskgroup
      22  	usleep (30);
      23  	if (i > 10)
      24  	  c = 1;
      25  	#pragma omp cancel taskgroup if (i > 10)
      26  	if (i > 10 && omp_get_cancellation ())
      27  	  abort ();
      28        }
      29      usleep (10);
      30    }
      31    return 0;
      32  }