16 lines · plain
1! Basic offloading test with a target region2! REQUIRES: flang, amdgpu3 4! RUN: %libomptarget-compile-fortran-run-and-check-generic5program main6 integer :: x;7 x = 08!$omp target map(from:x)9 x = 510!$omp end target11 print *, "x = ", x12end program main13 14! CHECK: x = 515 16