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