1! { dg-do run } 2! { dg-set-target-env-var OMP_CANCELLATION "true" } 3 4 use omp_lib 5 6 !$omp parallel num_threads(32) 7 !$omp cancel parallel 8 if (omp_get_cancellation ()) call abort 9 !$omp end parallel 10end 11