! Test for omp_target_memcpy_rect_async without considering dependence objects.

program main
  use omp_lib
  use iso_c_binding
  implicit none (external, type)
  integer :: d, id, i, j
  integer, target :: q(0:127), q2(0:127)
  type(c_ptr) :: p
  integer(omp_depend_kind) :: obj(1:0)

  integer(kind=c_size_t) :: volume(0:2)
  integer(kind=c_size_t) :: dst_offsets(0:2)
  integer(kind=c_size_t) :: src_offsets(0:2)
  integer(kind=c_size_t) :: dst_dimensions(0:2)
  integer(kind=c_size_t) :: src_dimensions(0:2)
  integer(kind=c_size_t) :: empty(1:0)

  d = omp_get_default_device ()
  id = omp_get_initial_device ()

  if (d < 0 .or. d >= omp_get_num_devices ()) &
    d = id

  p = omp_target_alloc (130 * c_sizeof (q), d)
  if (.not. c_associated (p)) &
    stop 0  ! okay

  if (omp_target_memcpy_rect_async (C_NULL_PTR, C_NULL_PTR, 0_c_size_t, 0, &
                                    empty, empty, empty, empty,  empty, d, id, &
                                    0, obj) < 3 &
     .or. omp_target_memcpy_rect_async (C_NULL_PTR, C_NULL_PTR, 0_c_size_t, 0, &
                                        empty, empty, empty, empty, empty, &
                                        id, d, 0, obj) < 3 &
     .or. omp_target_memcpy_rect_async (C_NULL_PTR, C_NULL_PTR, 0_c_size_t, 0, &
                                        empty, empty, empty, empty, empty, &
                                        id, id, 0, obj) < 3) &
    stop 1

  q = [(0, i = 0, 127)]
  if (omp_target_memcpy (p, c_loc (q), 128 * sizeof (q(0)), 0_c_size_t, &
                         0_c_size_t, d, id) /= 0) &
    stop 2

  q = [(i+1, i = 0, 127)]

  volume(2) = 3
  volume(1) = 2
  volume(0) = 1
  dst_offsets(2) = 0
  dst_offsets(1) = 0
  dst_offsets(0) = 0
  src_offsets(2) = 0
  src_offsets(1) = 0
  src_offsets(0) = 0
  dst_dimensions(2) = 5
  dst_dimensions(1) = 4
  dst_dimensions(0) = 3
  src_dimensions(2) = 4
  src_dimensions(1) = 3
  src_dimensions(0) = 2

  if (omp_target_memcpy_rect_async (p, c_loc (q), sizeof (q(0)), 3, volume, &
      dst_offsets, src_offsets, dst_dimensions, src_dimensions, d, id, 0, &
      obj) /= 0) &
    stop 3

  !$omp taskwait

  q2 = [(0, i = 0, 127)]
  if (omp_target_memcpy (c_loc (q2), p, 128 * sizeof (q2(0)), 0_c_size_t, &
                         0_c_size_t, id, d) /= 0) &
    stop 4

  ! q2 is expected to contain: 1 2 3 0 0 5 6 7 0 0 .. 0
  if (q2(0) /= 1 .or. q2(1) /= 2 .or. q2(2) /= 3 .or. q2(3) /= 0 &
      .or. q2(4) /= 0 .or. q2(5) /= 5 .or. q2(6) /= 6 .or. q2(7) /= 7) &
    stop 5

  do j = 8, 127
    if (q2(j) /= 0) &
      stop 6
  end do

  call omp_target_free (p, d)
end program main