! { dg-do run }

program foo
  integer :: count
  call s1
contains

  subroutine s1 ()
    integer :: i, count

    count = 0

    !$omp target parallel do map(tofrom:count) reduction(+:count) private(i)
    !$omp unroll partial
    do i = 1, 100
      count = count + 1
    end do

    if (count .ne. 100) stop 1

  end subroutine

end program