blob: e806bd79663449cdad345318ca34c56c0d28484b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
! { dg-do run }
program main
use omp_lib
implicit none
!$omp task final (.true.)
if (.not. omp_in_final ()) &
error stop
!$omp task
if (.not. omp_in_final ()) &
error stop
!$omp target nowait
if (omp_in_final ()) &
error stop
!$omp end target
if (.not. omp_in_final ()) &
error stop
!$omp taskwait
!$omp end task
!$omp end task
end
|
