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