我正在使用 Codeblock 13.12 。我的文件不可读。并获取运行时错误
program asd
implicit none
integer :: x
open(unit = 2, file = "text.txt")
read(2,*)x
write(*,*)x
end program
和我的 text.txt 文件是:
1
我看到了很多答案,但是没有一个对我的代码有用
答案 0 :(得分:1)
您的程序就可以了。实际上,即使第一行未正确终止,gfortran也会将EOF视为EOL,并且仍然有效。
您的问题是您正在使用IDE CodeBlock。 IDE不在您的工作目录中运行该程序,因此文件text.txt不在程序运行的位置,因此文件错误结束。
查看这篇帖子Codeblock working directory,它将指导您解决问题。