操作员检查文件是否存在

Question

我想创建一个运算符 .f。检查文件是否存在以便我可以编写

if (.f. filename) Then ...

我已经写了一个函数来做这个，现在必须创建接口。具有上述功能的 e 函数参数有什么限制？

Answer 1

您可以使用inquire 内在函数：

module fileIO

interface operator( .f. )
  module procedure file_exists
end interface

contains

function file_exists(filename) result(res)
  implicit none
  character(len=*),intent(in) :: filename
  logical                     :: res

  ! Check if the file exists
  inquire( file=trim(filename), exist=res )
end function

end module

program test
  use fileIO

  print *, file_exists('/dev/null')
  print *, .f. '/dev/null'

end program