blob: 93a74bea01126136dd226001f2381615702591d2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
! { 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
|