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  close(unit=23, status = 'delete')
14
15  inquire(file='foo/../cseq2',number=unit)
16  if (unit >= 0) call abort
17  inquire(file='cseq2',number=unit)
18  if (unit >= 0) call abort
19end
20