libgomp/testsuite/libgomp.fortran/cancel-do-1.f90

   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
  14 end