mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-16 14:57:49 +00:00
30 lines
361 B
Fortran
30 lines
361 B
Fortran
|
! { dg-do run }
|
||
|
|
||
|
program main
|
||
|
integer v1, v2
|
||
|
integer x
|
||
|
|
||
|
x = 99
|
||
|
|
||
|
!$acc parallel copy (v1, v2, x)
|
||
|
|
||
|
!$acc atomic read
|
||
|
v1 = x;
|
||
|
!$acc end atomic
|
||
|
|
||
|
!$acc atomic write
|
||
|
x = 32;
|
||
|
!$acc end atomic
|
||
|
|
||
|
!$acc atomic read
|
||
|
v2 = x;
|
||
|
!$acc end atomic
|
||
|
|
||
|
!$acc end parallel
|
||
|
|
||
|
if (v1 .ne. 99) call abort
|
||
|
|
||
|
if (v2 .ne. 32) call abort
|
||
|
|
||
|
end program main
|