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
7program omp_do
8  integer i, j, k
9  !$omp do collapse(2)
10  do i = 1, 10
11    !ERROR: CYCLE statement to non-innermost collapsed !$OMP DO loop
12    if (i .lt. 5) cycle
13    do j = 1, 10
14      print *, "Hello"
15    end do
16  end do
17  !$omp end do
18
19end program omp_do
20