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