長さが分からない入力ファイルを読む時

open(io,file=hoge,status='old')
do
read(io,*,iostat=iostat) fuga
if(iostat/=0) exit
enddo
close(io)

こんなやり方をしています