inquire的问题
小白想实现一个功能，根据 文件号来查看这个文件是否打开or发生错误代码如此下：
program main
implicit none
logical :: opened,named
write(21,*) 1,2,3,4
inquire(21,opened=opened,named=named)
write(*,*) opened,named
end
明明没有自己open，但还是会建立一个fort.21的文件。
而且opened和named都为真，
请问有没有办法来禁止不打开就输出的问题。
小白先谢谢了
从规范上说，只能从代码逻辑上避免，不Open就输出的问题。
具体你可以看看你的编译器是否有这种检查功能。
最健全的方法是：先inquire，然后根据opened是否为真来决定是否write
谢谢绝地~
页:
[1]