1 ! { dg-do run { target { ! newlib } } }
2 character(len=800) :: cwd
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
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