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