02817027ca
libgomp/ * testsuite/libgomp.oacc-fortran/deep-copy-1.f90: New test. * testsuite/libgomp.oacc-fortran/deep-copy-2.f90: New test. * testsuite/libgomp.oacc-fortran/deep-copy-3.f90: New test. * testsuite/libgomp.oacc-fortran/deep-copy-4.f90: New test. * testsuite/libgomp.oacc-fortran/deep-copy-5.f90: New test. * testsuite/libgomp.oacc-fortran/deep-copy-6.f90: New test. * testsuite/libgomp.oacc-fortran/deep-copy-7.f90: New test. * testsuite/libgomp.oacc-fortran/deep-copy-8.f90: New test. * testsuite/libgomp.oacc-fortran/derived-type-1.f90: New test. * testsuite/libgomp.oacc-fortran/derivedtype-1.f95: New test. * testsuite/libgomp.oacc-fortran/derivedtype-2.f95: New test. * testsuite/libgomp.oacc-fortran/multidim-slice.f95: New test. * testsuite/libgomp.oacc-fortran/update-2.f90: New test. Co-Authored-By: Cesar Philippidis <cesar@codesourcery.com> From-SVN: r279630
90 lines
1.7 KiB
Fortran
90 lines
1.7 KiB
Fortran
! { 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
|