1! { dg-do run } 2 3program 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 15 if (v /= -1 .or. u /= 15) STOP 1 16 if (a(2,1) /= 2.5 .or. b /= 3.5) STOP 2 17 associate(u => v, b => a(2, 1)) 18 if (u /= -1 .or. b /= 2.5) STOP 3 19 end associate 20 if (u /= 15 .or. b /= 3.5) STOP 4 21!$omp end parallel 22 end associate 23end program 24