blob: 276725d36fb617e25abd191de2f6e1dd893dc802 (
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
|
! Offloading test with a target region mapping a null-ary (no target or
! allocated data) to device, and then setting the target on device before
! printing the changed target on host.
! REQUIRES: flang, amdgpu
! RUN: %libomptarget-compile-fortran-run-and-check-generic
program main
implicit none
integer, pointer :: Set
integer, target, allocatable :: Set_Target
allocate(Set_Target)
Set_Target = 30
!$omp target map(Set)
Set => Set_Target
Set = 45
!$omp end target
print *, Set_Target
end program main
! CHECK: 45
|
