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 !CHECK: STOP statement is not allowed in a PARALLEL construct 19 10 stop 20 end do 21 end do 22 !$omp end parallel 23 24end program omp_parallel 25