offload/test/offloading/fortran/target-region-implicit-array.f90

   1 ! Basic offloading test of a regular array explicitly
   2 ! passed within a target region
   3 ! REQUIRES: flang, amdgpu
   4
   5 ! RUN: %libomptarget-compile-fortran-run-and-check-generic
   6 program 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(:)
  18 end program main
  19
  20 ! CHECK: 1 2 3 4 5 6 7 8 9 10