xref: /llvm-project/offload/test/offloading/fortran/target-region-implicit-array.f90 (revision 372344995568cae076477a8b0e98fcdec7c49379)
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