21 lines · plain
1! Basic offloading test of a regular array explicitly passed within a target 2! region3! REQUIRES: flang, amdgpu4 5! RUN: %libomptarget-compile-fortran-run-and-check-generic6program main7 integer :: x(10) = (/0,0,0,0,0,0,0,0,0,0/)8 integer :: i = 19 integer :: j = 1110 11 !$omp target12 do i = 1, j13 x(i) = i;14 end do15 !$omp end target16 17 PRINT *, x(:)18end program main19 20! CHECK: 1 2 3 4 5 6 7 8 9 1021