blob: be8f5a0f4a7e5f63965a2538c9216410dc5d6b2e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
! { dg-do compile }
! { dg-options "-fopenmp -fcray-pointer" }
integer :: a, b
pointer (ip, a)
b = 2
ip = loc (b)
!$omp parallel default (none) shared (ip)
a = 1
!$omp end parallel
!$omp parallel default (none) private (ip, b)
b = 3
ip = loc (b)
a = 1
!$omp end parallel
!$omp parallel default (none) ! { dg-error "enclosing parallel" }
a = 1 ! { dg-error "'ip' not specified in enclosing parallel" }
!$omp end parallel
end
|
