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
main()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 }
18