1! { dg-do run } 2! { dg-options "-fcoarray=lib -lcaf_single" } 3! { dg-additional-options "-latomic" { target libatomic_available } } 4! 5! Run-time test for memory consistency 6! 7! Contributed by Deepak Eachempati 8 9program cp_bug 10 implicit none 11 integer :: v1, v2, u[*] 12 integer :: me 13 14 me = this_image() 15 16 u = 0 17 v1 = 10 18 19 v1 = u[me] 20 21 ! v2 should get value in u (0) 22 v2 = v1 23 24 if(v2 /= u) call abort() 25 26end program 27