mirror of
https://github.com/autc04/Retro68.git
synced 2025-02-20 02:29:11 +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
|