`backspace` в gfortran (старый и новый)

Question

Предположим, я хочу добавить строку в файл в Fortran. Используя последнюю версию (4.7) gfortran, я считаю, что это работает:

program test 
    integer :: lun=10, i=0 

    open(FILE='test.dat', UNIT=lun) 

    do 
    read(lun, *, END=20) i 
    print *, i 
    end do 
20 backspace(lun) 

    write(lun, *), i+1 
end program test 

В gfortran 4.4 однако, перезаписывает последнюю строку. Чтобы добавить , я считаю, что нужно использовать

20 continue 

вместо backspace.

Что с этим связано? Как бы вы справились с этим в реальной программе?

Answer 1

program test 
    integer :: lun=10, i=0,io 

    open(FILE='test.dat', UNIT=lun, POSITION="append") 

    backspace(lun,iostat=io) 

    if (io==0) then 
    read(lun,*) i 
    else 
    i = 0 
    end if 

    write(lun, *) i+1 

end program test