1*37234499Sagozillon! Basic offloading test of a regular array explicitly passed within a target 2*37234499Sagozillon! region 388234488SEthan Luis McDonough! REQUIRES: flang, amdgpu 4330d8983SJohannes Doerfert 5330d8983SJohannes Doerfert! RUN: %libomptarget-compile-fortran-run-and-check-generic 6330d8983SJohannes Doerfertprogram main 7330d8983SJohannes Doerfert integer :: x(10) = (/0,0,0,0,0,0,0,0,0,0/) 8330d8983SJohannes Doerfert integer :: i = 1 9330d8983SJohannes Doerfert integer :: j = 11 10330d8983SJohannes Doerfert 11330d8983SJohannes Doerfert !$omp target 12330d8983SJohannes Doerfert do i = 1, j 13330d8983SJohannes Doerfert x(i) = i; 14330d8983SJohannes Doerfert end do 15330d8983SJohannes Doerfert !$omp end target 16330d8983SJohannes Doerfert 17330d8983SJohannes Doerfert PRINT *, x(:) 18330d8983SJohannes Doerfertend program main 19330d8983SJohannes Doerfert 20330d8983SJohannes Doerfert! CHECK: 1 2 3 4 5 6 7 8 9 10 21