xref: /llvm-project/flang/test/Semantics/OpenMP/do08.f90 (revision 502bea25bdc07d1811b8bfea1c2e6bfa8617f72f) 
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp
2! OpenMP Version 4.5
3! 2.7.1 Loop Construct
4
5program omp
6  integer i, j, k
7  logical cond(10,10,10)
8  cond = .false.
9
10  !ERROR: The value of the parameter in the COLLAPSE or ORDERED clause must not be larger than the number of nested loops following the construct.
11  !$omp do  collapse(3)
12  do i = 0, 10
13    !ERROR: CYCLE statement to non-innermost associated loop of an OpenMP DO construct
14    if (i .lt. 1) cycle
15    do j = 0, 10
16      do k  = 0, 10
17        print *, i, j, k
18      end do
19    end do
20  end do
21  !$omp end do
22
23  !ERROR: The value of the parameter in the COLLAPSE or ORDERED clause must not be larger than the number of nested loops following the construct.
24  !$omp do  collapse(3)
25  do i = 0, 10
26    do j = 0, 10
27      !ERROR: CYCLE statement to non-innermost associated loop of an OpenMP DO construct
28      if (i .lt. 1) cycle
29      do k  = 0, 10
30        print *, i, j, k
31      end do
32    end do
33  end do
34  !$omp end do
35
36  !ERROR: The value of the parameter in the COLLAPSE or ORDERED clause must not be larger than the number of nested loops following the construct.
37  !$omp do  collapse(2)
38  do i = 0, 10
39    !ERROR: CYCLE statement to non-innermost associated loop of an OpenMP DO construct
40    if (i .lt. 1) cycle
41    do j = 0, 10
42      do k  = 0, 10
43        print *, i, j, k
44      end do
45    end do
46  end do
47  !$omp end do
48
49
50  !ERROR: The value of the parameter in the COLLAPSE or ORDERED clause must not be larger than the number of nested loops following the construct.
51  !$omp do  collapse(2)
52  foo: do i = 0, 10
53    !ERROR: CYCLE statement to non-innermost associated loop of an OpenMP DO construct
54    if (i .lt. 1) cycle foo
55    do j = 0, 10
56      do k  = 0, 10
57        print *, i, j, k
58      end do
59    end do
60  end do foo
61  !$omp end do
62
63
64  !ERROR: The value of the parameter in the COLLAPSE or ORDERED clause must not be larger than the number of nested loops following the construct.
65  !$omp do collapse(3)
66  do 60 i=2,200,2
67    do j=1,10
68      !ERROR: CYCLE statement to non-innermost associated loop of an OpenMP DO construct
69      if(i==100) cycle
70      do k=1,10
71        print *,i
72      end do
73    end do
74  60 continue
75  !$omp end do
76
77  !$omp do  collapse(3)
78  foo: do i = 0, 10
79    foo1: do j = 0, 10
80         foo2:  do k  = 0, 10
81             !ERROR: CYCLE statement to non-innermost associated loop of an OpenMP DO construct
82             if (k .lt. 1) cycle foo
83             print *, i, j, k
84           end do foo2
85         end do foo1
86  end do foo
87  !$omp end do
88
89  !$omp do  collapse(3)
90  foo: do i = 0, 10
91    foo1: do j = 0, 10
92         foo2:  do k  = 0, 10
93             !ERROR: CYCLE statement to non-innermost associated loop of an OpenMP DO construct
94             if (k .lt. 1) cycle foo1
95             print *, i, j, k
96           end do foo2
97         end do foo1
98  end do foo
99  !$omp end do
100
101
102  !$omp do  collapse(2)
103  foo: do i = 0, 10
104    foo1: do j = 0, 10
105         foo2:  do k  = 0, 10
106             !ERROR: CYCLE statement to non-innermost associated loop of an OpenMP DO construct
107             if (k .lt. 1) cycle foo
108             print *, i, j, k
109           end do foo2
110         end do foo1
111  end do foo
112  !$omp end do
113
114
115  !$omp do  ordered(2)
116  foo: do i = 0, 10
117    foo1: do j = 0, 10
118             !ERROR: CYCLE statement to non-innermost associated loop of an OpenMP DO construct
119             if (k .lt. 1) cycle foo
120         foo2:  do k  = 0, 10
121             print *, i, j, k
122           end do foo2
123         end do foo1
124  end do foo
125  !$omp end do
126
127  !ERROR: The value of the parameter in the COLLAPSE or ORDERED clause must not be larger than the number of nested loops following the construct.
128  !$omp do  collapse(2) ordered(3)
129  foo: do i = 0, 10
130    foo1: do j = 0, 10
131             !ERROR: CYCLE statement to non-innermost associated loop of an OpenMP DO construct
132             if (k .lt. 1) cycle foo
133         foo2:  do k  = 0, 10
134             print *, i, j, k
135           end do foo2
136         end do foo1
137  end do foo
138  !$omp end do
139
140  !$omp do collapse(3)
141  loopk: do k=1,10
142    loopj: do j=1,10
143      loopi: do i=1,10
144        ifi : if (.true.) then
145          !ERROR: EXIT statement terminates associated loop of an OpenMP DO construct
146          if (cond(i,j,k)) exit
147          if (cond(i,j,k)) exit ifi
148          !ERROR: EXIT statement terminates associated loop of an OpenMP DO construct
149          if (cond(i,j,k)) exit loopi
150          !ERROR: EXIT statement terminates associated loop of an OpenMP DO construct
151          if (cond(i,j,k)) exit loopj
152        end if ifi
153      end do loopi
154    end do loopj
155  end do loopk
156  !$omp end do
157
158  !$omp do collapse(2)
159  loopk: do k=1,10
160    loopj: do j=1,10
161      do i=1,10
162      end do
163      !ERROR: EXIT statement terminates associated loop of an OpenMP DO construct
164      if (cond(i,j,k)) exit
165    end do loopj
166  end do loopk
167  !$omp end do
168
169end program omp
170