7 type(t
), pointer :: chain
10 type(t
), target
:: var
, var2
18 !$acc enter data copyin(var, var2)
20 !$acc enter data attach(var%chain)
23 ! { dg-warning "using .vector_length \\(32\\)., ignoring 1" "" { target openacc_nvidia_accel_selected } .-1 }
28 !$acc exit data detach(var%chain)
30 !$acc exit data copyout(var, var2)
32 if (var
%value
.ne
.5) stop 1
33 if (var2
%value
.ne
.7) stop 2