openmp/libomptarget/test/offloading/fortran/basic_target_region.f90

   1 ! Basic offloading test with a target region
   2 ! REQUIRES: flang, amdgcn-amd-amdhsa
   3 ! UNSUPPORTED: nvptx64-nvidia-cuda
   4 ! UNSUPPORTED: nvptx64-nvidia-cuda-LTO
   5 ! UNSUPPORTED: aarch64-unknown-linux-gnu
   6 ! UNSUPPORTED: aarch64-unknown-linux-gnu-LTO
   7 ! UNSUPPORTED: x86_64-pc-linux-gnu
   8 ! UNSUPPORTED: x86_64-pc-linux-gnu-LTO
   9
  10 ! RUN: %libomptarget-compile-fortran-run-and-check-generic
  11 program main
  12   integer :: x;
  13   x = 0
  14 !$omp target map(from:x)
  15     x = 5
  16 !$omp end target
  17   print *, "x = ", x
  18 end program main
  19
  20 ! CHECK: x = 5
  21