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

   1 // { dg-do run }
   2 // { dg-set-target-env-var OMP_CANCELLATION "true" }
   3
   4 #include <omp.h>
   5 #include "cancel-test.h"
   6
   7 int
   8 main ()
   9 {
  10   #pragma omp parallel num_threads (32)
  11   {
  12     S a;
  13     #pragma omp cancel parallel
  14     if (omp_get_cancellation ())
  15       abort ();
  16   }
  17   S::verify ();
  18 }