testsuite: Adjust expected results for rlwimi-2.c and vec-rlmi-rlnm.c

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

! { dg-do compile }

  integer :: r
  r = 0
  call foo (r)
  if (r /= 11) stop 1
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