1! REQUIRES: flang, amdgpu 2! RUN: %libomptarget-compile-fortran-run-and-check-generic 3 4program main 5 use omp_lib 6 integer :: devices(2), var1 7 common var1 8 var1 = 10 9 print *, "var1 before target = ", var1 10 devices(1) = omp_get_device_num() 11 !$omp target map(tofrom:devices) map(tofrom:var1) 12 var1 = 20 13 devices(2) = omp_get_device_num() 14 !$omp end target 15 print *, "var1 after target = ", var1 16 print *, "devices are different? ", (devices(1) /= devices(2)) 17end program 18 19! CHECK: var1 before target = 10 20! CHECK: var1 after target = 20 21! CHECK: devices are different? T 22