libgomp/testsuite/libgomp.c/cancel-parallel-1.c

   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     #pragma omp cancel parallel
  13     if (omp_get_cancellation ())
  14       abort ();
  15   }
  16   return 0;
  17 }