27 lines
437 B
Fortran
27 lines
437 B
Fortran
! { 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
|