36 lines · plain
1! Offloading test checking interaction of fixed size arrays with enter, exit2! and target3! REQUIRES: flang, amdgpu4 5! RUN: %libomptarget-compile-fortran-run-and-check-generic6program main7 integer :: A(10)8 9 !$omp target enter data map(alloc: A)10 11 !$omp target12 do I = 1, 1013 A(I) = I14 end do15 !$omp end target16 17 !$omp target exit data map(from: A)18 19 !$omp target exit data map(delete: A)20 21 do i = 1, 1022 print *, A(i)23 end do24end program25 26! CHECK: 127! CHECK: 228! CHECK: 329! CHECK: 430! CHECK: 531! CHECK: 632! CHECK: 733! CHECK: 834! CHECK: 935! CHECK: 1036