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