1! Basic offloading test of a regular array explicitly passed within a target 2! region 3! REQUIRES: flang, amdgpu 4 5! RUN: %libomptarget-compile-fortran-run-and-check-generic 6program main 7 integer :: x(10) = (/0,0,0,0,0,0,0,0,0,0/) 8 integer :: i = 1 9 integer :: j = 11 10 11 !$omp target 12 do i = 1, j 13 x(i) = i; 14 end do 15 !$omp end target 16 17 PRINT *, x(:) 18end program main 19 20! CHECK: 1 2 3 4 5 6 7 8 9 10 21