Fortran Coder

标题: inquire的问题 [打印本页]

作者: lookbook 时间: 2018-12-11 17:11
标题: inquire的问题
小白想实现一个功能，根据文件号来查看这个文件是否打开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 时间: 2018-12-11 18:22
从规范上说，只能从代码逻辑上避免，不Open就输出的问题。
具体你可以看看你的编译器是否有这种检查功能。

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

作者: lookbook 时间: 2018-12-11 18:39
谢谢绝地~

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)