1! REQUIRES: flang, amdgpu 2! RUN: %libomptarget-compile-fortran-run-and-check-generic 3 4program 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 15end program 16 17! CHECK: var4 before target = 24 18! CHECK: var4 after target = 12 19 20