offload/test/offloading/fortran/target-map-enter-exit-array.f90

   1 ! Offloading test checking interaction of fixed size arrays with enter, exit
   2 ! and target
   3 ! REQUIRES: flang, amdgpu
   4
   5 ! RUN: %libomptarget-compile-fortran-run-and-check-generic
   6 program main
   7     integer :: A(10)
   8
   9    !$omp target enter data map(alloc: A)
  10
  11     !$omp target
  12         do I = 1, 10
  13             A(I) = I
  14         end do
  15     !$omp end target
  16
  17     !$omp target exit data map(from: A)
  18
  19     !$omp target exit data map(delete: A)
  20
  21     do i = 1, 10
  22         print *, A(i)
  23     end do
  24 end program
  25
  26 ! CHECK: 1
  27 ! CHECK: 2
  28 ! CHECK: 3
  29 ! CHECK: 4
  30 ! CHECK: 5
  31 ! CHECK: 6
  32 ! CHECK: 7
  33 ! CHECK: 8
  34 ! CHECK: 9
  35 ! CHECK: 10