program flush_bare
  print*
  call flush(5)
end program flush_bare