2 ! { dg-options "-fcoarray=lib -lcaf_single" }
3 ! { dg-additional-options "-latomic" { target libatomic_available } }
9 integer,allocatable :: x(:)
13 type(coords),allocatable :: coo[:]
18 ! with caf_single num_images is always == 1
19 me = this_image(); np = num_images()
28 o%coo%x(i) = o%coo%x(i) + i
33 if(me == 1 .and. o%coo[np]%x(10) /= 11 ) STOP 1
35 ! Check the whole array is correct.
36 if (me == 1 .and. any( o%coo[np]%x /= [(i, i=2, 101)] ) ) STOP 2