! PR fortran/95869
! { dg-do compile }

program pr95869
  implicit none

  integer, parameter :: N = 100
  integer, parameter :: LIMIT = 60
  integer :: i, j
  integer, dimension(N) :: a = (/ (i, i = 1,N) /)
  do j = 1, N
    !$omp target parallel if(j .lt. LIMIT) map(tofrom: a(1:N))
    do i = 1, N
      a(i) = a(i) + 1
    end do
    !$omp end target parallel
    end do
end program