111
|
1 ! { dg-do run }
|
|
2
|
|
3 program associate1
|
|
4 integer :: v, i, j
|
|
5 real :: a(3, 3)
|
|
6 v = 15
|
|
7 a = 4.5
|
|
8 a(2,1) = 3.5
|
|
9 i = 2
|
|
10 j = 1
|
|
11 associate(u => v, b => a(i, j))
|
|
12 !$omp parallel private(v, a) default(none)
|
|
13 v = -1
|
|
14 a = 2.5
|
131
|
15 if (v /= -1 .or. u /= 15) STOP 1
|
|
16 if (a(2,1) /= 2.5 .or. b /= 3.5) STOP 2
|
111
|
17 associate(u => v, b => a(2, 1))
|
131
|
18 if (u /= -1 .or. b /= 2.5) STOP 3
|
111
|
19 end associate
|
131
|
20 if (u /= 15 .or. b /= 3.5) STOP 4
|
111
|
21 !$omp end parallel
|
|
22 end associate
|
|
23 end program
|