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