1*37234499Sagozillon! Basic offloading test with a target region that checks constant indexing on 2*37234499Sagozillon! device correctly works (regression test for prior bug). 388234488SEthan Luis McDonough! REQUIRES: flang, amdgpu 4330d8983SJohannes Doerfert 5330d8983SJohannes Doerfert! RUN: %libomptarget-compile-fortran-run-and-check-generic 6330d8983SJohannes Doerfertprogram main 7330d8983SJohannes Doerfert INTEGER :: sp(10) = (/0,0,0,0,0,0,0,0,0,0/) 8330d8983SJohannes Doerfert 9330d8983SJohannes Doerfert !$omp target map(tofrom:sp) 10330d8983SJohannes Doerfert sp(1) = 20 11330d8983SJohannes Doerfert sp(5) = 10 12330d8983SJohannes Doerfert !$omp end target 13330d8983SJohannes Doerfert 14330d8983SJohannes Doerfert print *, sp(1) 15330d8983SJohannes Doerfert print *, sp(5) 16330d8983SJohannes Doerfertend program 17330d8983SJohannes Doerfert 18330d8983SJohannes Doerfert! CHECK: 20 19330d8983SJohannes Doerfert! CHECK: 10 20