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
|
! { dg-additional-options "-fdump-tree-original" }
subroutine foo (p)
logical :: p(:)
integer i
integer a, b, c, d, e, f, g, h
a = -1; b = -1; c = -1; d = -1; e = -1; f = -1; g = -1; h = -1
!$omp parallel
!$omp do lastprivate (conditional: a)
do i = 1, 32
if (p(i)) &
a = i
end do
!$omp end parallel
!$omp simd lastprivate (conditional: b)
do i = 1, 32
if (p(i)) &
b = i
end do
!$omp parallel
!$omp do simd lastprivate (conditional: c)
do i = 1, 32
if (p(i)) &
c = i
end do
!$omp end parallel
!$omp parallel do lastprivate (conditional: d)
do i = 1, 32
if (p(i)) &
d = i
end do
!$omp end parallel do
!$omp parallel do simd lastprivate (conditional: e)
do i = 1, 32
if (p(i)) &
e = i
end do
!$omp end parallel do simd
end subroutine
! { dg-final { scan-tree-dump-times "#pragma omp for lastprivate\\(conditional:a\\)" 1 "original" } }
! { dg-final { scan-tree-dump-times "#pragma omp simd linear\\(i:1\\) lastprivate\\(conditional:b\\)" 1 "original" } }
! { dg-final { scan-tree-dump-times "#pragma omp for lastprivate\\(conditional:c\\)" 1 "original" } }
! { dg-final { scan-tree-dump-times "#pragma omp simd linear\\(i:1\\) lastprivate\\(conditional:c\\)" 1 "original" } }
! { dg-final { scan-tree-dump-times "#pragma omp parallel lastprivate\\(conditional:d\\)" 1 "original" } }
! { dg-final { scan-tree-dump-times "#pragma omp parallel lastprivate\\(conditional:e\\)" 1 "original" } }
! { dg-final { scan-tree-dump-times "#pragma omp simd linear\\(i:1\\) lastprivate\\(conditional:e\\)" 1 "original" } }
|
