offload/test/offloading/fortran/basic_target_region.f90

   1 ! Basic offloading test with a target region
   2 ! REQUIRES: flang, amdgpu
   3
   4 ! RUN: %libomptarget-compile-fortran-run-and-check-generic
   5 program main
   6   integer :: x;
   7   x = 0
   8 !$omp target map(from:x)
   9     x = 5
  10 !$omp end target
  11   print *, "x = ", x
  12 end program main
  13
  14 ! CHECK: x = 5
  15