1  /* { dg-do run } */
       2  /* { dg-set-target-env-var OMP_CANCELLATION "true" } */
       3  
       4  #include <stdlib.h>
       5  #include <omp.h>
       6  
       7  int
       8  main ()
       9  {
      10    #pragma omp parallel num_threads (32)
      11    {
      12      int i;
      13      #pragma omp for
      14      for (i = 0; i < 1000; ++i)
      15        {
      16  	#pragma omp cancel for
      17  	if (omp_get_cancellation ())
      18  	  abort ();
      19        }
      20    }
      21    return 0;
      22  }