! 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 |