1! { dg-do run } 2! PR middle-end/35130 3 4program pr35130 5 implicit none 6 real, dimension(20) :: a 7 integer :: k 8 a(:) = 0.0 9!$omp parallel do private(k) 10 do k=1,size(a) 11 call inner(k) 12 end do 13!$omp end parallel do 14 if (any (a.ne.42)) stop 1 15contains 16 subroutine inner(i) 17 implicit none 18 integer :: i 19 a(i) = 42 20 end subroutine inner 21end program pr35130 22