offload/test/offloading/fortran/target_map_common_block1.f90

   1 ! REQUIRES: flang, amdgpu
   2 ! RUN: %libomptarget-compile-fortran-run-and-check-generic
   3
   4 program main
   5   use omp_lib
   6   integer :: devices(2), var1
   7   common var1
   8   var1 = 10
   9   print *, "var1 before target = ", var1
  10   devices(1) = omp_get_device_num()
  11   !$omp target map(tofrom:devices) map(tofrom:var1)
  12     var1 = 20
  13     devices(2) = omp_get_device_num()
  14   !$omp end target
  15   print *, "var1 after target = ", var1
  16   print *, "devices are different? ", (devices(1) /= devices(2))
  17 end program
  18
  19 ! CHECK: var1 before target =  10
  20 ! CHECK: var1 after target =  20
  21 ! CHECK: devices are different? T