22 lines · plain
1! REQUIRES: flang, amdgpu2! RUN: %libomptarget-compile-fortran-run-and-check-generic3 4program main5 use omp_lib6 integer :: devices(2), var17 common var18 var1 = 109 print *, "var1 before target = ", var110 devices(1) = omp_get_device_num()11 !$omp target map(tofrom:devices) map(tofrom:var1)12 var1 = 2013 devices(2) = omp_get_device_num()14 !$omp end target15 print *, "var1 after target = ", var116 print *, "devices are different? ", (devices(1) /= devices(2))17end program18 19! CHECK: var1 before target = 1020! CHECK: var1 after target = 2021! CHECK: devices are different? T22