offload/test/offloading/fortran/target_map_common_block2.f90

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