program main
  implicit none
  if (this_image() == 1) then
     print *, "Set up coarray data on image", this_image()
     sync images (*)
  else
     sync images (1)
     print *, "Use the data set up by image 1 on image", this_image()
  end if
end program