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