1! PR fortran/95869
2! { dg-do compile }
3
4program pr95869
5  implicit none
6
7  integer, parameter :: N = 100
8  integer, parameter :: LIMIT = 60
9  integer :: i, j
10  integer, dimension(N) :: a = (/ (i, i = 1,N) /)
11  do j = 1, N
12    !$omp target parallel if(j .lt. LIMIT) map(tofrom: a(1:N))
13    do i = 1, N
14      a(i) = a(i) + 1
15    end do
16    !$omp end target parallel
17    end do
18end program
19