Program hello_parallel
  Implicit None
  Integer my_image, n_images

  my_image = this_image()
  n_images = num_images()
  Print '("I am image ",I2,"/", I2)', my_image, n_images
End Program