inquire_10.f90

来自「用于进行gcc测试」· F90 代码 · 共 17 行

  character(len=800) :: cwd
  integer :: unit

  call getcwd(cwd)

  open(file='cseq', unit=23)
  inquire(file='cseq',number=unit)
  if (unit /= 23) call abort
  inquire(file=trim(cwd) // '/cseq',number=unit)
  if (unit /= 23) call abort

  inquire(file='foo/../cseq2',number=unit)
  if (unit >= 0) call abort
  inquire(file='cseq2',number=unit)
  if (unit >= 0) call abort
end