program main
  implicit none
  integer :: me, ne, p[*]
  me = this_image()
  ne = num_images()
  if (me == 1) then
    p = 1
    print *, p
  else
    sync images (me - 1)
    p = p[me - 1] + 1
    print *, p
  end if
  if (me < ne) sync images (me + 1)
end program