! { dg-do run }

use openacc
implicit none

type t
integer :: foo
character(len=8), pointer :: bar
character(len=4), allocatable :: qux
end type t

type(t) :: var
character(len=8), target :: tgt

allocate(var%qux)

var%bar => tgt

var%foo = 99
tgt = "Octopus!"
var%qux = "Fish"

!$acc enter data copyin(var, tgt)

! Avoid automatic attach (i.e. with "enter data")
call acc_copyin (var%qux)

!$acc enter data attach(var%bar, var%qux)

!$acc serial
! { dg-warning "using .vector_length \\(32\\)., ignoring 1" "" { target openacc_nvidia_accel_selected } .-1 }
var%foo = 5
var%bar = "Plankton"
var%qux = "Pond"
!$acc end serial

!$acc exit data detach(var%bar, var%qux)

call acc_copyout (var%qux)

!$acc exit data copyout(var, tgt)

if (var%foo.ne.5) stop 1
if (tgt.ne."Plankton") stop 2
if (var%qux.ne."Pond") stop 3

end