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