blob: 7f60c62eab31b5be8945bf68a810383f0ace0f68 (
plain)
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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
! RUN: %S/test_errors.sh %s %t %f18
!C1129
!A variable that is referenced by the scalar-mask-expr of a
!concurrent-header or by any concurrent-limit or concurrent-step in that
!concurrent-header shall not appear in a LOCAL locality-spec in the same DO
!CONCURRENT statement.
subroutine s1()
!ERROR: 'i' is already declared in this scoping unit
do concurrent (i=1:10) local(i)
end do
end subroutine s1
subroutine s2()
!ERROR: 'i' is already declared in this scoping unit
do concurrent (i=1:10) local_init(i)
end do
end subroutine s2
subroutine s4()
!ERROR: DO CONCURRENT expression references variable 'i' in LOCAL locality-spec
do concurrent (j=i:10) local(i)
end do
end subroutine s4
subroutine s5()
!OK because the locality-spec is local_init
do concurrent (j=i:10) local_init(i)
end do
end subroutine s5
subroutine s6()
!OK because the locality-spec is shared
do concurrent (j=i:10) shared(i)
end do
end subroutine s6
subroutine s7()
!ERROR: DO CONCURRENT expression references variable 'i' in LOCAL locality-spec
do concurrent (j=1:i) local(i)
end do
end subroutine s7
subroutine s8()
!OK because the locality-spec is local_init
do concurrent (j=1:i) local_init(i)
end do
end subroutine s8
subroutine s9()
!OK because the locality-spec is shared
do concurrent (j=1:i) shared(i)
end do
end subroutine s9
subroutine s10()
!ERROR: DO CONCURRENT expression references variable 'i' in LOCAL locality-spec
do concurrent (j=1:10:i) local(i)
end do
end subroutine s10
subroutine s11()
!OK because the locality-spec is local_init
do concurrent (j=1:10:i) local_init(i)
end do
end subroutine s11
subroutine s12()
!OK because the locality-spec is shared
do concurrent (j=1:10:i) shared(i)
end do
end subroutine s12
subroutine s13()
! Test construct-association, in this case, established by the "shared"
integer :: ivar
associate (avar => ivar)
!ERROR: DO CONCURRENT expression references variable 'ivar' in LOCAL locality-spec
do concurrent (j=1:10:avar) local(avar)
end do
end associate
end subroutine s13
module m1
integer :: mvar
end module m1
subroutine s14()
! Test use-association, in this case, established by the "shared"
use m1
!ERROR: DO CONCURRENT expression references variable 'mvar' in LOCAL locality-spec
do concurrent (k=mvar:10) local(mvar)
end do
end subroutine s14
subroutine s15()
! Test host-association, in this case, established by the "shared"
! locality-spec
ivar = 3
do concurrent (j=ivar:10) shared(ivar)
!ERROR: DO CONCURRENT expression references variable 'ivar' in LOCAL locality-spec
do concurrent (k=ivar:10) local(ivar)
end do
end do
end subroutine s15
|
GitWeb