offload/test/offloading/fortran/target_map_common_block2.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

! REQUIRES: flang, amdgpu
! RUN: %libomptarget-compile-fortran-run-and-check-generic

program main
  use omp_lib
  integer :: tmp, var4
  common var4
  var4 = 24
  tmp = 12
  print *, "var4 before target =", var4
  !$omp target map(tofrom:var4)
    var4 = tmp
  !$omp end target
  print *, "var4 after target =", var4
end program

! CHECK: var4 before target = 24
! CHECK: var4 after target = 12