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