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