! Basic offloading test with a target region | |
! REQUIRES: flang, amdgcn-amd-amdhsa, nvptx64-nvidia-cuda | |
! UNSUPPORTED: nvptx64-nvidia-cuda-LTO | |
! UNSUPPORTED: aarch64-unknown-linux-gnu | |
! UNSUPPORTED: aarch64-unknown-linux-gnu-LTO | |
! UNSUPPORTED: x86_64-pc-linux-gnu | |
! UNSUPPORTED: x86_64-pc-linux-gnu-LTO | |
! RUN: %libomptarget-compile-fortran-run-and-check-generic | |
program main | |
integer :: x; | |
x = 0 | |
!$omp target map(from:x) | |
x = 5 | |
!$omp end target | |
print *, "x = ", x | |
end program main | |
! CHECK: x = 5 | |