mirror of
https://review.haiku-os.org/buildtools
synced 2025-02-14 17:57:39 +01:00
36 lines
522 B
Fortran
36 lines
522 B
Fortran
|
! { dg-do run }
|
||
|
|
|
||
|
|
implicit none
|
||
|
|
|
||
|
|
type t
|
||
|
|
integer :: foo
|
||
|
|
integer, pointer :: bar
|
||
|
|
end type t
|
||
|
|
|
||
|
|
type(t) :: var
|
||
|
|
integer, target :: tgt
|
||
|
|
|
||
|
|
var%bar => tgt
|
||
|
|
|
||
|
|
var%foo = 99
|
||
|
|
tgt = 199
|
||
|
|
|
||
|
|
!$acc enter data copyin(var, tgt)
|
||
|
|
|
||
|
|
!$acc enter data attach(var%bar)
|
||
|
|
|
||
|
|
!$acc serial
|
||
|
|
! { dg-warning "using .vector_length \\(32\\)., ignoring 1" "" { target openacc_nvidia_accel_selected } .-1 }
|
||
|
|
var%foo = 5
|
||
|
|
var%bar = 7
|
||
|
|
!$acc end serial
|
||
|
|
|
||
|
|
!$acc exit data detach(var%bar)
|
||
|
|
|
||
|
|
!$acc exit data copyout(var, tgt)
|
||
|
|
|
||
|
|
if (var%foo.ne.5) stop 1
|
||
|
|
if (tgt.ne.7) stop 2
|
||
|
|
|
||
|
|
end
|