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)) STOP 1 14contains 15 subroutine inner(i) 16 implicit none 17 integer :: i 18 a(i) = 42 19 end subroutine inner 20end program pr35130 21