gcc/testsuite/gfortran.dg/inquire_10.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

  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