program fail_image
  implicit none
  integer :: fail
  integer, allocatable :: tmp_a(:)
  integer :: me,np,s,tmp

  tmp_a = failed_images()

  write(*,*) tmp_a
end program fail_image