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 close(unit
=23, status
= 'delete')
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
