blob: 1206a889e8375ec241ba1924cd0c497509fc5027 [file] [log] [blame]
! 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
!CHECK: STOP statement is not allowed in a TASK construct
10 stop
!$omp end task
if (associated(P%right)) then
!$omp task
call traverse(P%right)
!$omp end task
call process ( P )
end subroutine traverse