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 !$omp parallel11 do i = 1, 1012 do j = 1, 1013 print *, "Hello"14 !CHECK: invalid branch leaving an OpenMP structured block15 goto 1016 end do17 end do18 !$omp end parallel19 20 !CHECK: Outside the enclosing PARALLEL directive21 10 stop22 23end program omp_parallel24