20 lines · plain
1! REQUIRES: flang, amdgpu2! RUN: %libomptarget-compile-fortran-run-and-check-generic3 4program main5 use omp_lib6 integer :: tmp, var47 common var48 var4 = 249 tmp = 1210 print *, "var4 before target =", var411 !$omp target map(tofrom:var4)12 var4 = tmp13 !$omp end target14 print *, "var4 after target =", var415end program16 17! CHECK: var4 before target = 2418! CHECK: var4 after target = 1219 20