1// { dg-do run } 2// { dg-set-target-env-var OMP_CANCELLATION "true" } 3 4#include <omp.h> 5#include "cancel-test.h" 6 7int 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