blob: ab44f0a73b97024b2be65337d5ee8422513d7a95 [file] [log] [blame]
! { dg-do run }
! Test of attach/detach with scalar elements and nested derived types.
program dtype
implicit none
integer, parameter :: n = 512
type subtype
integer :: g, h
integer, allocatable :: q(:)
end type subtype
type mytype
integer, allocatable :: a(:)
integer, allocatable :: c, d
integer, allocatable :: b(:)
integer :: f
type(subtype) :: s
end type mytype
integer i
type(mytype) :: var
allocate(var%a(1:n))
allocate(var%b(1:n))
allocate(var%c)
allocate(var%d)
allocate(var%s%q(1:n))
var%c = 16
var%d = 20
var%f = 7
var%s%g = 21
var%s%h = 38
!$acc enter data copyin(var)
do i = 1, n
var%a(i) = 0
var%b(i) = 0
var%s%q(i) = 0
end do
!$acc data copy(var%a(5:n - 5), var%b(5:n - 5), var%c, var%d) &
!$acc & copy(var%s%q)
!$acc parallel loop default(none) present(var)
do i = 5,n - 5
var%a(i) = i
var%b(i) = i * 2
var%s%q(i) = i * 3
var%s%g = 100
var%s%h = 101
end do
!$acc end parallel loop
!$acc end data
!$acc exit data copyout(var)
do i = 1,4
if (var%a(i) .ne. 0) stop 1
if (var%b(i) .ne. 0) stop 2
if (var%s%q(i) .ne. 0) stop 3
end do
do i = 5,n - 5
if (i .ne. var%a(i)) stop 4
if (i * 2 .ne. var%b(i)) stop 5
if (i * 3 .ne. var%s%q(i)) stop 6
end do
do i = n - 4,n
if (var%a(i) .ne. 0) stop 7
if (var%b(i) .ne. 0) stop 8
if (var%s%q(i) .ne. 0) stop 9
end do
if (var%c .ne. 16) stop 10
if (var%d .ne. 20) stop 11
if (var%s%g .ne. 100 .or. var%s%h .ne. 101) stop 12
if (var%f .ne. 7) stop 13
deallocate(var%a)
deallocate(var%b)
deallocate(var%c)
deallocate(var%d)
deallocate(var%s%q)
end program dtype