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