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  !$omp parallel
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 parallel
21
22  10 stop
23
24end program omp_parallel
25