program main
  implicit none
  integer :: x[2, 79:*]
  print *, "Image", this_image(), ":", this_image(x)
end program