libomptarget/test/offloading/fortran/target_map_common_block1.f90

! REQUIRES: flang, amdgcn-amd-amdhsa
! UNSUPPORTED: 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
  use omp_lib
  integer :: devices(2), var1
  common var1
  var1 = 10
  print *, "var1 before target = ", var1
  devices(1) = omp_get_device_num()
  !$omp target map(tofrom:devices) map(tofrom:var1)
    var1 = 20
    devices(2) = omp_get_device_num()
  !$omp end target
  print *, "var1 after target = ", var1
  print *, "devices are different? ", (devices(1) /= devices(2))
end program

! CHECK: var1 before target =  10
! CHECK: var1 after target =  20
! CHECK: devices are different? T