! PR libfortran/101255
! { dg-do run }

program test
  use ISO_FORTRAN_ENV, only: IOSTAT_EOR, IOSTAT_END
  implicit none
  character(len=50) :: err
  integer :: i

  err = ""
  flush(99, iostat=i, iomsg=err)

  if (err == "") stop 1
  if (i >= 0) stop 2
  if (i == IOSTAT_EOR .or. i == IOSTAT_END) stop 3
end