blob: b6005e037e8365c24e1af2de245b86ef49b66934 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
! Offloading test checking interaction of an enter and exit map of an array of
! scalars
! REQUIRES: flang, amdgpu
! RUN: %libomptarget-compile-fortran-run-and-check-generic
program main
integer :: array(10)
do I = 1, 10
array(I) = I + I
end do
!$omp target enter data map(to: array)
! Shouldn't overwrite data already locked in
! on target via enter, this will then be
! overwritten by our exit
do I = 1, 10
array(I) = 10
end do
!$omp target
do i=1,10
array(i) = array(i) + i
end do
!$omp end target
!$omp target exit data map(from: array)
print*, array
end program
!CHECK: 3 6 9 12 15 18 21 24 27 30
|
