Add offload tests

Author: kparzysz

offload/test/offloading/fortran/target-has-device-addr1.f90

@@ -0,0 +1,51 @@
+!REQUIRES: flang, amdgpu
+
+!Test derived from the sollve test for has-device-addr.
+
+!RUN: %libomptarget-compile-fortran-run-and-check-generic
+
+module m
+  use iso_c_binding
+
+contains
+  integer function target_has_device_addr()
+    integer :: errors
+    integer, target :: x
+    integer, pointer :: first_scalar_device_addr
+    type(c_ptr) :: cptr_scalar1
+
+    integer :: res1, res2
+
+    nullify (first_scalar_device_addr)
+    errors = 0
+    x = 10
+
+    !$omp target enter data map(to: x)
+    !$omp target data use_device_addr(x)
+      x = 11
+      cptr_scalar1 = c_loc(x)
+    !$omp end target data
+
+    call c_f_pointer (cptr_scalar1, first_scalar_device_addr)
+
+    !$omp target map(to: x) map(from: res1, res2) &
+    !$omp & has_device_addr(first_scalar_device_addr)
+      res1 = first_scalar_device_addr
+      res2 = x
+    !$omp end target
+    target_has_device_addr = errors
+    print *, "res1", res1, "res2", res2
+  end function
+end module
+
+
+program p
+  use m
+  integer :: errors
+
+  errors = target_has_device_addr()
+  print *, "errors=", errors
+end
+
+!CHECK: res1 11 res2 11
+!CHECK: errors= 0

offload/test/offloading/fortran/target-has-device-addr2.f90

@@ -0,0 +1,57 @@
+!REQUIRES: flang, amdgpu
+
+!RUN: %libomptarget-compile-fortran-run-and-check-generic
+
+subroutine f
+  type :: t1
+    integer :: x, y, z
+  end type
+
+  integer, parameter :: n = 9
+  type(t1) :: b(n)
+
+  integer :: i
+  do i = 1, n
+    b(i)%x = 0
+    b(i)%y = 0
+    b(i)%z = 0
+  enddo
+
+  !$omp target data map(tofrom: b(1:3)) use_device_addr(b)
+  !$omp target has_device_addr(b(2)%x)
+    b(2)%x = 1
+  !$omp end target
+  !$omp end target data
+  print *, "b1", b
+end
+
+subroutine g
+  type :: t1
+    integer :: x(3), y(7), z(5)
+  end type
+
+  integer, parameter :: n = 5
+  type(t1) :: b(n)
+
+  integer :: i
+  do i = 1, n
+    b(i)%x = 0
+    b(i)%y = 0
+    b(i)%z = 0
+  enddo
+
+  !$omp target data map(tofrom: b(1:3)) use_device_addr(b)
+  !$omp target has_device_addr(b(2)%x)
+    b(2)%x(3) = 1
+  !$omp end target
+  !$omp end target data
+  print *, "b2", b
+end
+
+call f()
+call g()
+end
+
+!CHECK: b1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+!CHECK: b2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+

offload/test/offloading/fortran/target-has-device-addr3.f90

@@ -0,0 +1,30 @@
+!REQUIRES: flang, amdgpu
+
+!RUN: %libomptarget-compile-fortran-run-and-check-generic
+
+function f(x) result(y)
+  integer :: x(:)
+  integer :: y, z
+  x = 0
+  y = 11
+  !$omp target data map(tofrom: x) use_device_addr(x)
+  !$omp target has_device_addr(x) map(tofrom: y)
+  y = size(x)
+  !$omp end target
+  !$omp end target data
+end
+
+program main
+  interface
+    function f(x) result(y)
+      integer :: x(:)
+      integer :: y
+    end function
+  end interface
+  integer :: x(13)
+  integer :: y
+  y = f(x)
+  print *, "y=", y
+end
+
+!CHECK: y= 13