1! PR fortran/71717
2! { dg-do run }
3
4  type t
5    real, allocatable :: f(:)
6  end type
7  type (t) :: v
8  integer :: i, j
9  allocate (v%f(4))
10  v%f = 19.
11  i = 5
12  associate (u => v, k => i)
13  !$omp parallel do
14  do j = 1, 4
15    u%f(j) = 21.
16    if (j.eq.1) k = 7
17  end do
18  end associate
19  if (any (v%f(:).ne.21.) .or. i.ne.7) stop 1
20end
21