mirror of
https://github.com/autc04/Retro68.git
synced 2024-12-03 10:49:58 +00:00
69 lines
1.1 KiB
Fortran
69 lines
1.1 KiB
Fortran
! { dg-do run { target openacc_nvidia_accel_selected } }
|
|
|
|
module globalvars
|
|
implicit none
|
|
real b
|
|
!$acc declare link (b)
|
|
end module globalvars
|
|
|
|
program test
|
|
use openacc
|
|
use globalvars
|
|
implicit none
|
|
|
|
real a
|
|
real c
|
|
!$acc declare link (c)
|
|
|
|
if (acc_is_present (b) .neqv. .false.) call abort
|
|
if (acc_is_present (c) .neqv. .false.) call abort
|
|
|
|
a = 0.0
|
|
b = 1.0
|
|
|
|
!$acc parallel copy (a) copyin (b)
|
|
b = b + 4.0
|
|
a = b
|
|
!$acc end parallel
|
|
|
|
if (a .ne. 5.0) call abort
|
|
|
|
if (acc_is_present (b) .neqv. .false.) call abort
|
|
|
|
a = 0.0
|
|
|
|
!$acc parallel copy (a) create (b)
|
|
b = 4.0
|
|
a = b
|
|
!$acc end parallel
|
|
|
|
if (a .ne. 4.0) call abort
|
|
|
|
if (acc_is_present (b) .neqv. .false.) call abort
|
|
|
|
a = 0.0
|
|
|
|
!$acc parallel copy (a) copy (b)
|
|
b = 4.0
|
|
a = b
|
|
!$acc end parallel
|
|
|
|
if (a .ne. 4.0) call abort
|
|
if (b .ne. 4.0) call abort
|
|
|
|
if (acc_is_present (b) .neqv. .false.) call abort
|
|
|
|
a = 0.0
|
|
|
|
!$acc parallel copy (a) copy (b) copy (c)
|
|
b = 4.0
|
|
c = b
|
|
a = c
|
|
!$acc end parallel
|
|
|
|
if (a .ne. 4.0) call abort
|
|
|
|
if (acc_is_present (b) .neqv. .false.) call abort
|
|
|
|
end program test
|