24 lines · plain
1! RUN: not %flang -fsyntax-only -fopenmp %s 2>&1 | FileCheck %s2! OpenMP Version 4.53! 2.5 parallel construct.4! A program that branches into or out of a parallel region5! is non-conforming.6 7program omp_parallel8 integer i, j, k9 10 !CHECK: invalid branch into an OpenMP structured block11 goto 1012 13 !$omp parallel14 do i = 1, 1015 do j = 1, 1016 print *, "Hello"17 !CHECK: In the enclosing PARALLEL directive branched into18 10 stop19 end do20 end do21 !$omp end parallel22 23end program omp_parallel24