gcc/testsuite/gfortran.dg/inquire_10.f90

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