libgomp/testsuite/libgomp.oacc-fortran/host_data-1.f90

   1 ! { dg-do run }
   2 ! { dg-additional-options "-cpp" }
   3
   4 program test
   5   implicit none
   6
   7   integer, target :: i, arr(1000)
   8   integer, pointer :: ip, iph
   9   integer, contiguous, pointer :: parr(:), parrh(:)
  10
  11   ! Assign the same targets
  12   ip => i
  13   parr => arr
  14   iph => i
  15   parrh => arr
  16
  17   !$acc data copyin(i, arr)
  18   !$acc host_data use_device(ip, parr)
  19
  20   ! Test how the pointers compare inside a host_data construct
  21 #if ACC_MEM_SHARED
  22   if (.not. associated(ip, iph)) STOP 1
  23   if (.not. associated(parr, parrh)) STOP 2
  24 #else
  25   if (associated(ip, iph)) STOP 3
  26   if (associated(parr, parrh)) STOP 4
  27 #endif
  28
  29   !$acc end host_data
  30   !$acc end data
  31
  32 end program test