! { dg-do run }

program test_failed_images_2
  implicit none

  integer, allocatable :: fi(:)
  integer(kind=1), allocatable :: sfi(:)

  fi = failed_images()
  if (size(fi) > 0) error stop "failed_images result shall be empty array"
  sfi = failed_images(KIND=1)
  if (size(sfi) > 0) error stop "failed_images result shall be empty array"
  sfi = failed_images(KIND=8)
  if (size(sfi) > 0) error stop "failed_images result shall be empty array"
  
end program test_failed_images_2