program fail_image
  implicit none
  integer :: fail
  integer, dimension(10) :: tmp_a,s_a
  integer :: me,np,s,tmp

  if(this_image() == 1) fail image

  sync all

  write(*,*) failed_images()
  
end program fail_image