mirror of
https://review.haiku-os.org/buildtools
synced 2025-02-12 08:47:41 +01:00
2ff934231b
Dependencies (not updated since 13.1.0): * GMP 6.2.1 * ISL 0.24 * MPL 1.2.1 * MPFR 4.1.0 The dependencies were pulled in by running the ./contrib/download_prerequisites script.
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
|