gcc/testsuite/gfortran.dg/coarray_40.f90

   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
   9 program 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
  26 end program