1*88234488SEthan Luis McDonough! REQUIRES: flang, amdgpu 2330d8983SJohannes Doerfert! RUN: %libomptarget-compile-fortran-run-and-check-generic 3330d8983SJohannes Doerfert 4330d8983SJohannes Doerfertprogram main 5330d8983SJohannes Doerfert use omp_lib 6330d8983SJohannes Doerfert integer :: tmp, var4 7330d8983SJohannes Doerfert common var4 8330d8983SJohannes Doerfert var4 = 24 9330d8983SJohannes Doerfert tmp = 12 10330d8983SJohannes Doerfert print *, "var4 before target =", var4 11330d8983SJohannes Doerfert !$omp target map(tofrom:var4) 12330d8983SJohannes Doerfert var4 = tmp 13330d8983SJohannes Doerfert !$omp end target 14330d8983SJohannes Doerfert print *, "var4 after target =", var4 15330d8983SJohannes Doerfertend program 16330d8983SJohannes Doerfert 17330d8983SJohannes Doerfert! CHECK: var4 before target = 24 18330d8983SJohannes Doerfert! CHECK: var4 after target = 12 19330d8983SJohannes Doerfert 20