32 lines · plain
1! RUN: not %flang -fsyntax-only -fopenmp %s 2>&1 | FileCheck %s2! OpenMP Version 4.53! 2.9.1 task Construct4! Invalid entry to OpenMP structured block.5 6recursive subroutine traverse ( P )7 type Node8 type(Node), pointer :: left, right9 end type Node10 11 type(Node) :: P12 13 !CHECK: invalid branch into an OpenMP structured block14 goto 1015 16 if (associated(P%left)) then17 !$omp task18 call traverse(P%left)19 !CHECK: In the enclosing TASK directive branched into20 10 stop21 !$omp end task22 endif23 24 if (associated(P%right)) then25 !$omp task26 call traverse(P%right)27 !$omp end task28 endif29 call process ( P )30 31 end subroutine traverse32