17 lines
378 B
Fortran
17 lines
378 B
Fortran
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
|