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