blob: 0bd09f63f3ffe3cd5ef4258fd486e75d8bdf791e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
! { dg-do run }
! PR 62768
! Filenames with embedded NULL characters are truncated, make sure
! inquire reports the correct truncated name.
program filename_null
implicit none
character(len=15), parameter :: s = "hello" // achar(0) // "world", &
s2 = "hello"
character(len=15) :: r
logical :: l
open(10, file=s)
inquire(unit=10, name=r)
if (r /= s2) STOP 1
inquire(file=s2, exist=l)
if (.not. l) STOP 2
close(10, status="delete")
end program filename_null
|
