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
|
subroutine foo (p)
implicit none
logical :: p(:)
integer a, b, c, d, e, f, g, h;
integer :: i
a = -1; b = -1; c = -1; d = -1; e = -1; f = -1; g = -1; h = -1
!$omp teams
!$omp distribute lastprivate (conditional: a) ! { dg-error "conditional 'lastprivate' clause on 'distribute' construct" }
do i = 1, 32
if (p(i)) &
a = i
end do
!$omp distribute simd lastprivate (conditional: b) ! { dg-error "conditional 'lastprivate' clause on 'distribute' construct" }
do i = 1, 32
if (p(i)) &
b = i
end do
!$omp distribute parallel do lastprivate (conditional: c) ! { dg-error "conditional 'lastprivate' clause on 'distribute' construct" }
do i = 1, 32
if (p(i)) &
c = i
end do
!$omp distribute parallel do simd lastprivate (conditional: d) ! { dg-error "conditional 'lastprivate' clause on 'distribute' construct" }
do i = 1, 32
if (p(i)) &
d = i
end do
!$omp end teams
!$omp teams distribute parallel do lastprivate (conditional: e) ! { dg-error "conditional 'lastprivate' clause on 'distribute' construct" }
do i = 1, 32
if (p(i)) &
e = i
end do
!$omp parallel
!$omp master
!$omp taskloop lastprivate (conditional: f) ! { dg-error "conditional 'lastprivate' clause on 'taskloop' construct" }
do i = 1, 32
if (p(i)) &
f = i
end do
! !$omp master taskloop simd lastprivate (conditional: g) ! { dg!error "conditional 'lastprivate' clause on 'taskloop' construct" }
! do i = 1, 32
! if (p(i)) &
! g = i
! end do
!$omp end master
!$omp end parallel
! !$omp parallel master taskloop simd lastprivate (conditional: h) ! { dg!error "conditional 'lastprivate' clause on 'taskloop' construct" }
! do i = 1, 32
! if (p(i)) &
! h = i
! end do
! !$omp end parallel master taskloop simd
end subroutine
!struct S { int a, b; };
subroutine bar (p)
implicit none
logical :: p(:)
type s_t
integer :: a, b
end type s_t
type(s_t) s, t
integer i
s = s_t(-1, -1)
t = s_t( 1, 2)
!$omp parallel do lastprivate (conditional: s) ! { dg-error "non-scalar variable 's' in conditional 'lastprivate' clause" }
do i = 1, 32
if (p(i)) then
block
type(s_t) u
u = t
u%b = i
s = u
end block
end if
end do
end subroutine
|
