blob: d8cf6c3653128db471903adbe33c4d72346b7260 (
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) STOP 1
inquire(file=trim(cwd) // '/cseq',number=unit)
if (unit /= 23) STOP 2
close(unit=23, status = 'delete')
inquire(file='foo/../cseq2',number=unit)
if (unit >= 0) STOP 3
inquire(file='cseq2',number=unit)
if (unit >= 0) STOP 4
end
|
