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