1 character(len=800) :: cwd
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
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