1! RUN: %S/test_errors.sh %s %t %f18 -fopenmp 2! XFAIL:* 3 4! OpenMP Version 4.5 5! 2.7.1 Loop Construct 6! No statement in the associated loops other than the DO statements 7! can cause a branch out of the loops 8 9program omp_do 10 integer i, j, k 11 12 !$omp do 13 do i = 1, 10 14 do j = 1, 10 15 print *, "Hello" 16 !ERROR: invalid branch to/from OpenMP structured block 17 goto 10 18 end do 19 end do 20 !$omp end do 21 22 10 stop 23 24end program omp_do 25