blob: 4dc80d6d70e0521fc6093633a7d3d327756c05e8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
! RUN: not %flang -fsyntax-only -fopenmp %s 2>&1 | FileCheck %s
! OpenMP Version 4.5
! 2.9.1 task Construct
! Invalid entry to OpenMP structured block.
recursive subroutine traverse ( P )
type Node
type(Node), pointer :: left, right
end type Node
type(Node) :: P
!CHECK: invalid branch into an OpenMP structured block
goto 10
if (associated(P%left)) then
!$omp task
call traverse(P%left)
!CHECK: In the enclosing TASK directive branched into
10 stop
!$omp end task
endif
if (associated(P%right)) then
!$omp task
call traverse(P%right)
!$omp end task
endif
call process ( P )
end subroutine traverse
|
