blob: 090653ecba59d193cfbc8514d36c05a6eb4c52b2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
! { 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
inquire(file='foo/../cseq2',number=unit)
if (unit >= 0) call abort
inquire(file='cseq2',number=unit)
if (unit >= 0) call abort
end
|
