summaryrefslogtreecommitdiff
path: root/libgomp/testsuite/libgomp.fortran/associate2.f90
blob: dee8496e1d7d11a1331a021ef4db920990ad8865 (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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
! { dg-do run }

program associate2
  type dl
    integer :: i
  end type
  type dt
    integer :: i
    real :: a(3, 3)
    type(dl) :: c(3, 3)
  end type
  integer :: v(4), i, j, k, l
  type (dt) :: a(3, 3)
  v = 15
  forall (k = 1:3, l = 1:3) a(k, l)%a(:,:) = 4.5
  a(2,1)%a(1,2) = 3.5
  i = 2
  j = 1
  associate(u => v, b => a(i, j)%a)
!$omp parallel private(v, a) default(none)
  v = -1
  forall (k = 1:3, l = 1:3) a(k, l)%a(:,:) = 2.5
  if (v(3) /= -1 .or. u(3) /= 15) call abort
  if (a(2,1)%a(1,2) /= 2.5 .or. b(1,2) /= 3.5) call abort
  associate(u => v, b => a(2, 1)%a)
  if (u(3) /= -1 .or. b(1,2) /= 2.5) call abort
  end associate
  if (u(3) /= 15 .or. b(1,2) /= 3.5) call abort
!$omp end parallel
  end associate
  forall (k = 1:3, l = 1:3) a(k, l)%c(:,:)%i = 7
  a(1,2)%c(2,1)%i = 9
  i = 1
  j = 2
  associate(d => a(i, j)%c(2,:)%i)
!$omp parallel private(a) default(none)
  forall (k = 1:3, l = 1:3) a(k, l)%c(:,:)%i = 15
  if (a(1,2)%c(2,1)%i /= 15 .or. d(1) /= 9) call abort
  if (a(1,2)%c(2,2)%i /= 15 .or. d(2) /= 7) call abort
  associate(d => a(2,1)%c(2,:)%i)
  if (d(1) /= 15 .or. d(2) /= 15) call abort
  end associate
  if (d(1) /= 9 .or. d(2) /= 7) call abort
!$omp end parallel
  end associate
end program