program flush_xlf
  print*
  call flush_(5)
end program flush_xlf