2 // { dg-set-target-env-var OMP_CANCELLATION "true" }
6 #include "cancel-test.h"
12 #pragma omp parallel private (c, d) firstprivate (e, f)
17 #pragma omp task firstprivate (b, f) private (d)
23 #pragma omp cancel taskgroup
24 if (omp_get_cancellation ())
28 #pragma omp parallel private (c, d) firstprivate (e, f)
37 for (i = 0; i < 50; i++)
38 #pragma omp task firstprivate (b, f) private (d)
44 #pragma omp cancellation point taskgroup
46 #pragma omp cancel taskgroup if (i > 5)