1! { dg-do run }
2
3program main
4  use openacc
5  implicit none
6  ! TODO Per PR96080, data types chosen so that we can create a
7  ! "pointer object 'data_p'" on the device.
8  integer, dimension(:), target :: data(1)
9  integer, dimension(:), pointer :: data_p
10
11  !TODO Per PR96080, not using OpenACC/Fortran runtime library routines.
12
13  !$acc enter data create(data)
14  data_p => data
15  !$acc enter data copyin(data_p)
16
17  !$acc enter data attach(data_p)
18end program main
19