blob: 58ef44e7c768636f5bfdfa69377903eb19c889e0 [file] [log] [blame]
! { dg-do run }
program main
use openacc
implicit none
! TODO Per PR96080, data types chosen so that we can create a
! "pointer object 'data_p'" on the device.
integer, dimension(:), target :: data(1)
integer, dimension(:), pointer :: data_p
!TODO Per PR96080, not using OpenACC/Fortran runtime library routines.
!$acc enter data create(data)
data_p => data
!$acc enter data copyin(data_p)
!$acc enter data attach(data_p)
end program main