! { dg-do compile }
! { dg-options "-fopenmp" }

subroutine foo (v, n, r)
  integer :: n
  integer, intent(in) :: v(:)
  integer, intent(out) :: r
  integer :: i

  r = 0

!$omp parallel
!$omp single

  do i = 1, n
!$omp task shared (v)
    r = r + v(i)
!$omp end task
  enddo

!$omp end single
!$omp end parallel

end