blob: 693241ef71cda1579f9830d1b4b98da3f909495b [file] [log] [blame]
! { dg-do run }
! { dg-set-target-env-var OMP_CANCELLATION "true" }
use omp_lib
integer :: i
!$omp parallel
!$omp taskgroup
!$omp task
!$omp cancel taskgroup
stop 1
!$omp endtask
!$omp endtaskgroup
!$omp endparallel
!$omp parallel private (i)
!$omp barrier
!$omp single
!$omp taskgroup
do i = 0, 49
!$omp task
!$omp cancellation point taskgroup
!$omp cancel taskgroup if (i.gt.5)
!$omp end task
end do
!$omp end taskgroup
!$omp endsingle
!$omp end parallel
end