tree-optimization/113385 - wrong loop father with early exit vectorization

[official-gcc.git] / gcc / testsuite / gfortran.dg / gomp / sharing-4.f90

! { 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