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