mirror of
https://review.haiku-os.org/buildtools
synced 2025-02-07 14:34:51 +01:00
92b3138b83
Updated dependencies: * 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 and then manually removing the symbolic links and archives, and renaming the directories (i.e mv isl-0.24 to isl)
63 lines
998 B
Fortran
63 lines
998 B
Fortran
! See also "lib-16-2.f90".
|
|
! { dg-do run }
|
|
! { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } }
|
|
|
|
program main
|
|
use openacc
|
|
implicit none
|
|
|
|
integer, parameter :: N = 256
|
|
integer, allocatable :: h(:)
|
|
integer :: i
|
|
integer :: async = 5
|
|
|
|
allocate (h(N))
|
|
|
|
do i = 1, N
|
|
h(i) = i
|
|
end do
|
|
|
|
call acc_copyin (h)
|
|
|
|
do i = 1, N
|
|
h(i) = i + i
|
|
end do
|
|
|
|
call acc_update_device_async (h, sizeof (h), async)
|
|
|
|
if (acc_is_present (h) .neqv. .TRUE.) stop 1
|
|
|
|
call acc_wait (async)
|
|
|
|
h(:) = 0
|
|
|
|
call acc_copyout_async (h, sizeof (h), async)
|
|
|
|
call acc_wait (async)
|
|
|
|
do i = 1, N
|
|
if (h(i) /= i + i) stop 2
|
|
end do
|
|
|
|
call acc_copyin (h, sizeof (h))
|
|
|
|
h(:) = 0
|
|
|
|
call acc_update_self_async (h, sizeof (h), async)
|
|
|
|
if (acc_is_present (h) .neqv. .TRUE.) stop 3
|
|
|
|
call acc_wait (async)
|
|
|
|
do i = 1, N
|
|
if (h(i) /= i + i) stop 4
|
|
end do
|
|
|
|
call acc_delete_async (h, async)
|
|
|
|
call acc_wait (async)
|
|
|
|
if (acc_is_present (h) .neqv. .FALSE.) stop 5
|
|
|
|
end program
|