请问在fortran中如何计算一个文件有多少行?

implicit none;
integer::nline;

nline=0;
open(101,file='替换为需要的文件名称',status='old',action='read');
do while(.not.eof(101))
read(101,*);
nline=nline+1;
end do
close(101);
write(*,*)'line No.:',nline;
end

上面程序适用于常规的文本文件。

故意把最后一行编错，在错误提示中不就能看到了吗