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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
! { dg-do compile }
! { dg-options "-fcoarray=single" }
!
! PR fortran/44646
!
! DO CONCURRENT
!
implicit none
integer :: i, j
outer: do, concurrent ( i = 1 : 4)
do j = 1, 5
if (j == 1) cycle ! OK
cycle outer ! OK: C821 FIXME
exit outer ! { dg-error "EXIT statement at .1. leaves DO CONCURRENT construct" }
end do
end do outer
do concurrent (j = 1:5)
cycle ! OK
end do
outer2: do j = 1, 7
do concurrent (j=1:5:2) ! cycle outer2 - bad: C821
cycle outer2 ! { dg-error "leaves DO CONCURRENT construct" }
end do
end do outer2
do concurrent ( i = 1 : 4)
exit ! { dg-error "EXIT statement at .1. leaves DO CONCURRENT construct" }
end do
end
subroutine foo()
do concurrent ( i = 1 : 4)
return ! { dg-error "Image control statement RETURN" }
sync all ! { dg-error "Image control statement SYNC" }
call test () ! { dg-error "Subroutine call to .test. in DO CONCURRENT block at .1. is not PURE" }
stop ! { dg-error "Image control statement STOP" }
end do
do concurrent ( i = 1 : 4)
critical ! { dg-error "Image control statement CRITICAL at .1. in DO CONCURRENT block" }
print *, i
! end critical
end do
critical
do concurrent ( i = 1 : 4) ! OK
end do
end critical
end
subroutine caf()
use iso_fortran_env
implicit none
type(lock_type), allocatable :: lock[:]
integer :: i
do, concurrent (i = 1:3)
allocate (lock[*]) ! { dg-error "ALLOCATE of coarray at .1. in DO CONCURRENT block" }
lock(lock) ! { dg-error "Image control statement LOCK" }
unlock(lock) ! { dg-error "Image control statement UNLOCK" }
deallocate (lock) ! { dg-error "DEALLOCATE of coarray at .1. in DO CONCURRENT block" }
end do
critical
allocate (lock[*]) ! { dg-error "ALLOCATE of coarray at .1. in CRITICAL block" }
lock(lock) ! { dg-error "Image control statement LOCK" }
unlock(lock) ! { dg-error "Image control statement UNLOCK" }
deallocate (lock) ! { dg-error "DEALLOCATE of coarray at .1. in CRITICAL block" }
end critical
end subroutine caf
|
