1! { dg-do run } 2! { dg-set-target-env-var OMP_CANCELLATION "true" } 3 4 use omp_lib 5 integer :: i 6 7 !$omp parallel num_threads(32) 8 !$omp do 9 do i = 0, 999 10 !$omp cancel do 11 if (omp_get_cancellation ()) STOP 1 12 enddo 13 !$omp endparallel 14end 15