mirror of
https://github.com/autc04/Retro68.git
synced 2024-11-28 05:51:04 +00:00
30 lines
450 B
Fortran
30 lines
450 B
Fortran
|
! { dg-do run { target openacc_nvidia_accel_selected } }
|
||
|
|
|
||
|
|
module vars
|
||
|
|
implicit none
|
||
|
|
real b
|
||
|
|
!$acc declare create (b)
|
||
|
|
end module vars
|
||
|
|
|
||
|
|
program test
|
||
|
|
use vars
|
||
|
|
use openacc
|
||
|
|
implicit none
|
||
|
|
real a
|
||
|
|
|
||
|
|
if (acc_is_present (b) .neqv. .true.) call abort
|
||
|
|
|
||
|
|
a = 2.0
|
||
|
|
|
||
|
|
!$acc parallel copy (a)
|
||
|
|
b = a
|
||
|
|
a = 1.0
|
||
|
|
a = a + b
|
||
|
|
!$acc end parallel
|
||
|
|
|
||
|
|
if (acc_is_present (b) .neqv. .true.) call abort
|
||
|
|
|
||
|
|
if (a .ne. 3.0) call abort
|
||
|
|
|
||
|
|
end program test
|