blob: d7da0bd8cc98b081ead45438fe50898b78e5dbfe (
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
|
! { dg-do compile }
! { dg-options "-fopenmp -fcray-pointer" }
subroutine foo (n)
integer :: a, b (38), n
pointer (ip, a (n + 1))
b = 2
n = 36
ip = loc (b)
!$omp parallel default (none) shared (ip)
!$omp parallel default (none) shared (ip)
a = 1
!$omp end parallel
!$omp end parallel
!$omp parallel default (none)
!$omp parallel default (none) private (ip, b)
b = 3
ip = loc (b)
a = 1
!$omp end parallel
!$omp end parallel
end
|
