program main
  implicit none
  integer :: x(3)
  if (this_image() == 1) then
    x = [1, 4, 9]
  end if
  call co_broadcast(x, 1)
  print *, "Image", this_image(), ":", x
end program