xref: /llvm-project/offload/test/offloading/fortran/target-map-enter-exit-array.f90 (revision 372344995568cae076477a8b0e98fcdec7c49379) 
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
6program 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
24end 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
36