gcc/testsuite/gfortran.dg/inquire_10.f90

   1   character(len=800) :: cwd
   2   integer :: unit
   3
   4   call getcwd(cwd)
   5
   6   open(file='cseq', unit=23)
   7   inquire(file='cseq',number=unit)
   8   if (unit /= 23) call abort
   9   inquire(file=trim(cwd) // '/cseq',number=unit)
  10   if (unit /= 23) call abort
  11
  12   inquire(file='foo/../cseq2',number=unit)
  13   if (unit >= 0) call abort
  14   inquire(file='cseq2',number=unit)
  15   if (unit >= 0) call abort
  16 end