blob: bc7d6e36b387d2ecebb48b6a65c616d46e3cd0ec (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
! { dg-do run { target { ! newlib } } }
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
close(unit=23, status = 'delete')
inquire(file='foo/../cseq2',number=unit)
if (unit >= 0) call abort
inquire(file='cseq2',number=unit)
if (unit >= 0) call abort
end
|
