blob: 9ba8af84679e6662899acefb209e859fa1a7784e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
! { dg-do run }
! { dg-set-target-env-var OMP_CANCELLATION "true" }
use omp_lib
if (omp_get_cancellation ()) then
!$omp parallel num_threads(32)
!$omp sections
!$omp cancel sections
call abort
!$omp section
!$omp cancel sections
call abort
!$omp section
!$omp cancel sections
call abort
!$omp section
!$omp cancel sections
call abort
!$omp end sections
!$omp end parallel
end if
end
|