1! RUN: not %flang -fsyntax-only -fopenmp %s 2>&1 | FileCheck %s 2! OpenMP Version 4.5 3! 2.5 parallel construct. 4! A program that branches into or out of a parallel region 5! is non-conforming. 6 7program omp_parallel 8 integer i, j, k 9 10 !CHECK: invalid branch into an OpenMP structured block 11 goto 10 12 13 !$omp parallel 14 do i = 1, 10 15 do j = 1, 10 16 print *, "Hello" 17 !CHECK: In the enclosing PARALLEL directive branched into 18 10 stop 19 end do 20 end do 21 !$omp end parallel 22 23end program omp_parallel 24