program main
    character*30 char
    integer  :: line 
    line=1  ! backspace line num
    open(10,file='TARTCELL',POSITION='append')
    do i=1,line
        backspace(10) 
    end do
    read(10,100)  char  
100 format(a30)    
    end
这里给出一个示例，文件内容随意。使用这个方法应该可以满足lz的需求。直接读到文件末尾，然后使用backspace命令退行。