谢谢回复,我试过如下代码。
文件不存在时候,新建和写入都正常。再执行一次(此时文件存在,刚新建的)就出错。所以路径应该是没有问题的,并且(io=0)这个文件是正常关掉的,下次打开不应该有问题的么。
[Fortran] 纯文本查看 复制代码 program main
implicit none
logical :: exist
integer(kind=4):: a(20), i, io
a=(/(i,i=1,20)/)
inquire(file="te.dat", exist=exist)
if (exist) then
write(*,*) exist
open(10, file="te.dat", status="old")
read(10, *) a
close(10)
else
write(*,*) exist
open(10, file="te.dat", status="new")
write(10, *) a
close(10,iostat=io)
write(*,*) io
end if
write(*,"(10I3)") a
end
|