2018-01-10 Richard Biener <rguenther@suse.de>

[official-gcc.git] / libgomp / testsuite / libgomp.fortran / target5.f90

! { dg-do compile }

  integer :: r
  r = 0
  call foo (r)
  if (r /= 11) call abort
contains
  subroutine foo (r)
    integer :: i, r
    !$omp parallel
    !$omp single
    !$omp target teams distribute parallel do reduction (+: r)
      do i = 1, 10
        r = r + 1
      end do
      r = r + 1
    !$omp end single
    !$omp end parallel
  end subroutine
end