offload/test/offloading/fortran/target-map-mix-imp-exp-common-block-members.f90

   1 ! Offloading test checking interaction of
   2 ! mapping all the members of a common block
   3 ! with a mix of explicit and implicit
   4 ! mapping to a target region
   5 ! REQUIRES: flang, amdgcn-amd-amdhsa
   6 ! UNSUPPORTED: nvptx64-nvidia-cuda
   7 ! UNSUPPORTED: nvptx64-nvidia-cuda-LTO
   8 ! UNSUPPORTED: aarch64-unknown-linux-gnu
   9 ! UNSUPPORTED: aarch64-unknown-linux-gnu-LTO
  10 ! UNSUPPORTED: x86_64-pc-linux-gnu
  11 ! UNSUPPORTED: x86_64-pc-linux-gnu-LTO
  12
  13 ! RUN: %libomptarget-compile-fortran-run-and-check-generic
  14 program main
  15     implicit none
  16     common /var_common/ var1, var2, var3
  17     integer :: var1, var2, var3
  18
  19     call modify_1
  20
  21     !$omp target map(tofrom: var2)
  22       var2 = var2 + var3
  23     !$omp end target
  24
  25     call modify_2
  26
  27     print *, var1
  28     print *, var2
  29     print *, var3
  30 end program
  31
  32 subroutine modify_1
  33     common /var_common/ var1, var2, var3
  34     integer :: var1, var2, var3
  35
  36   !$omp target map(tofrom: /var_common/)
  37     var1 = 10
  38     var2 = 20
  39     var3 = 30
  40   !$omp end target
  41 end
  42
  43 subroutine modify_2
  44     common /var_common/ var1, var2, var3
  45     integer :: var1, var2, var3
  46     integer :: copy
  47
  48   !$omp target map(tofrom: copy)
  49     copy =  var2 + var3
  50   !$omp end target
  51
  52     print *, copy
  53 end
  54
  55 !CHECK: 80
  56 !CHECK: 10
  57 !CHECK: 50
  58 !CHECK: 30