1! RUN: %S/test_errors.sh %s %t %f18 -fopenmp 2! XFAIL: * 3 4! OpenMP Version 4.5 5! 2.5 parallel construct. 6! A program that branches into or out of a parallel region 7! is non-conforming. 8 9program omp_parallel 10 integer i, j, k 11 12 !ERROR: invalid entry to OpenMP structured block 13 goto 10 14 15 !$omp parallel 16 do i = 1, 10 17 do j = 1, 10 18 print *, "Hello" 19 10 stop 20 end do 21 end do 22 !$omp end parallel 23 24end program omp_parallel 25