openmp/libomptarget/test/offloading/fortran/failing/target_map_common_block2.f90

   1 ! REQUIRES: flang, amdgcn-amd-amdhsa
   2 ! UNSUPPORTED: nvptx64-nvidia-cuda
   3 ! UNSUPPORTED: nvptx64-nvidia-cuda-LTO
   4 ! UNSUPPORTED: aarch64-unknown-linux-gnu
   5 ! UNSUPPORTED: aarch64-unknown-linux-gnu-LTO
   6 ! UNSUPPORTED: x86_64-pc-linux-gnu
   7 ! UNSUPPORTED: x86_64-pc-linux-gnu-LTO
   8
   9 ! RUN: %libomptarget-compile-fortran-run-and-check-generic
  10 ! XFAIL: *
  11
  12 program main
  13   use omp_lib
  14   integer :: tmp, var4
  15   common var4
  16   var4 = 24
  17   tmp = 12
  18   print *, "var4 before target = ", var4
  19   !$omp target map(tofrom:var4)
  20     var4 = tmp
  21   !$omp end target
  22   print *, "var4 after target = ", var4
  23 end program
  24
  25 ! CHECK: var4 before target = 24
  26 ! CHECK: var4 after target = 12
  27