| ! { dg-do run } | |
| ! { dg-options "-fcoarray=lib -lcaf_single" } | |
| ! { dg-additional-options "-latomic" { target libatomic_available } } | |
| ! | |
| ! Run-time test for memory consistency | |
| ! | |
| ! Contributed by Deepak Eachempati | |
| program cp_bug | |
| implicit none | |
| integer :: v1, v2, u[*] | |
| integer :: me | |
| me = this_image() | |
| u = 0 | |
| v1 = 10 | |
| v1 = u[me] | |
| ! v2 should get value in u (0) | |
| v2 = v1 | |
| if(v2 /= u) STOP 1 | |
| end program |