-
Notifications
You must be signed in to change notification settings - Fork 0
/
doconcurrent07.f90
56 lines (53 loc) · 1.84 KB
/
doconcurrent07.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
52
53
54
55
56
! Copyright (c) 2019, Arm Ltd. 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.
! RUN: ${F18} -funparse-with-symbols %s 2>&1 | ${FileCheck} %s
! CHECK-NOT: exit from DO CONCURRENT construct
subroutine do_concurrent_test1(n)
implicit none
integer :: j,k,l,n
mytest: if (n>0) then
mydoc: do concurrent(j=1:n)
mydo: do k=1,n
if (k==5) exit
if (k==6) exit mydo
end do mydo
do concurrent(l=1:n)
if (l==5) print *, "test"
end do
end do mydoc
do k=1,n
if (k==5) exit mytest
end do
end if mytest
end subroutine do_concurrent_test1
subroutine do_concurrent_test2(n)
implicit none
integer :: i1,i2,i3,i4,i5,i6,n
mytest2: if (n>0) then
nc1: do concurrent(i1=1:n)
nc2: do i2=1,n
nc3: do concurrent(i3=1:n)
nc4: do i4=1,n
if (i3==4) exit nc4
nc5: do concurrent(i5=1:n)
nc6: do i6=1,n
if (i6==10) print *, "hello"
end do nc6
end do nc5
end do nc4
end do nc3
end do nc2
end do nc1
end if mytest2
end subroutine do_concurrent_test2