Ftn95讀取时的无限循环（backspace）

楚香饭

我无法重现你的错误，在我这里正常运行并结束了，并没有陷入死循环。

BANC_wave2.pwv 的内容是：
1997.6655525     56.1592272   1997   243   22

我在end program 前面加了一句

[Fortran] 纯文本查看 复制代码

write(*,*) 'end program'
end program

运行后在窗口看到：

F:\Developer\MyProject\t\Console2\Console2>echo BANC_wave.pwv  1>>file.txt
end program
请按任意键继续. . .

楚香饭

Ftn95 读取文件的 backspace 有问题。

If the preceding record is an endfile record, the file is positioned before the endfile record.

所以，为了避免到文件尾端，造成 backspace 无效，你可以在 BANC_wave.pwv 尾部加一个空白回车。

我记得 CVF 也有相同的问题。