1! { dg-do run }
2
3program main
4  integer v1, v2
5  integer x
6
7  x = 99
8
9  !$acc parallel copy (v1, v2, x)
10
11  !$acc atomic read
12    v1 = x;
13  !$acc end atomic
14
15  !$acc atomic write
16    x = 32;
17  !$acc end atomic
18
19  !$acc atomic read
20    v2 = x;
21  !$acc end atomic
22
23  !$acc end parallel
24
25  if (v1 .ne. 99) STOP 1
26
27  if (v2 .ne. 32) STOP 2
28
29end program main
30