| ! { 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 |