inquire的问题

lookbook

小白想实现一个功能，根据 文件号来查看这个文件是否打开or发生错误
代码如此下：

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

      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都为真，
请问有没有办法来禁止不打开就输出的问题。

小白先谢谢了

fcode

从规范上说，只能从代码逻辑上避免，不Open就输出的问题。
具体你可以看看你的编译器是否有这种检查功能。

最健全的方法是：先inquire，然后根据opened是否为真来决定是否write

lookbook

谢谢绝地~