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