1! PR fortran/44847
2! { dg-do compile }
3! { dg-options "-fopenmp" }
4
5subroutine pr44847_1
6  integer :: i, j
7!$omp parallel do collapse(2)
8l:do i = 1, 2
9    do j = 1, 2
10      cycle l		! { dg-error "CYCLE statement" }
11    end do
12  end do l
13end subroutine
14subroutine pr44847_2
15  integer :: i, j, k
16!$omp parallel do collapse(3)
17  do i = 1, 2
18  l:do j = 1, 2
19      do k = 1, 2
20        cycle l		! { dg-error "CYCLE statement" }
21      end do
22    end do l
23  end do
24end subroutine
25subroutine pr44847_3
26  integer :: i, j
27!$omp parallel do
28l:do i = 1, 2
29    do j = 1, 2
30      cycle l
31    end do
32  end do l
33end subroutine
34subroutine pr44847_4
35  integer :: i, j, k
36!$omp parallel do collapse(2)
37  do i = 1, 2
38  l:do j = 1, 2
39      do k = 1, 2
40        cycle l
41      end do
42    end do l
43  end do
44end subroutine
45subroutine pr44847_5
46  integer :: i, j
47!$omp parallel do collapse(2)
48l:do i = 1, 2
49    do j = 1, 2
50      exit l		! { dg-error "EXIT statement" }
51    end do
52  end do l
53end subroutine
54subroutine pr44847_6
55  integer :: i, j, k
56!$omp parallel do collapse(3)
57  do i = 1, 2
58  l:do j = 1, 2
59      do k = 1, 2
60        exit l		! { dg-error "EXIT statement" }
61      end do
62    end do l
63  end do
64end subroutine
65subroutine pr44847_7
66  integer :: i, j, k
67!$omp parallel do collapse(2)
68  do i = 1, 2
69  l:do j = 1, 2
70      do k = 1, 2
71        exit l		! { dg-error "EXIT statement" }
72      end do
73    end do l
74  end do
75end subroutine
76subroutine pr44847_8
77  integer :: i, j, k
78!$omp parallel do
79  do i = 1, 2
80  l:do j = 1, 2
81      do k = 1, 2
82        exit l
83      end do
84    end do l
85  end do
86end subroutine
87