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
|