-
Notifications
You must be signed in to change notification settings - Fork 10.7k
/
dosemantics10.f90
51 lines (43 loc) · 1.19 KB
/
dosemantics10.f90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
! Copyright (c) 2019, NVIDIA CORPORATION. All rights reserved.
!
! Licensed under the Apache License, Version 2.0 (the "License");
! you may not use this file except in compliance with the License.
! You may obtain a copy of the License at
!
! http://www.apache.org/licenses/LICENSE-2.0
!
! Unless required by applicable law or agreed to in writing, software
! distributed under the License is distributed on an "AS IS" BASIS,
! WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
! See the License for the specific language governing permissions and
! limitations under the License.
!
! C1134 A CYCLE statement must be within a DO construct
!
! C1166 An EXIT statement must be within a DO construct
subroutine s1()
! this one's OK
do i = 1,10
cycle
end do
! this one's OK
do i = 1,10
exit
end do
! all of these are OK
outer: do i = 1,10
cycle
inner: do j = 1,10
cycle
end do inner
cycle
end do outer
!ERROR: CYCLE must be within a DO construct
cycle
!ERROR: EXIT must be within a DO construct
exit
!ERROR: CYCLE must be within a DO construct
if(.true.) cycle
!ERROR: EXIT must be within a DO construct
if(.true.) exit
end subroutine s1