34 lines · plain
1! Offloading test checking lowering of arrays with dynamic extents.2! REQUIRES: flang, amdgpu3 4! RUN: %libomptarget-compile-fortran-run-and-check-generic5 6subroutine test_array_target_enter_data(dims)7 integer, intent(in) :: dims(2)8 double precision :: A(2, dims(2))9 !$omp target enter data map(to: A)10 11 A(2,2) = 1.012 !$omp target13 A(1,1) = 1014 A(2,1) = 2015 A(1,2) = 3016 A(2,2) = 4017 !$omp end target18 19 !$omp target exit data map(from: A)20 21 print *, A22end subroutine test_array_target_enter_data23 24program main25 integer :: dimensions(2)26 dimensions(1) = 127 dimensions(2) = 228 29call test_array_target_enter_data(dimensions)30end program31 32 33! CHECK: 10. 20. 30. 40.34