blob: 568c3d6a0f3b35497f4c21e0c575c810b529d736 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
! { dg-do run }
! PR43409 I/O: INQUIRE for SIZE does not work.
integer :: i
character(30) :: aname = "noname"
logical :: is_named
open(25, file="testfile", status="replace", access="stream", form="unformatted")
do i=1,100
write(25) i, "abcdefghijklmnopqrstuvwxyz"
enddo
flush(25)
inquire(unit=25, named=is_named, name=aname, size=i)
if (.not.is_named) call abort
if (aname /= "testfile") call abort
if (i /= 3000) call abort
inquire(file="testfile", size=i)
if (.not.is_named) call abort
if (aname /= "testfile") call abort
if (i /= 3000) call abort
close(25, status="delete")
inquire(file="testfile", size=i)
if (i /= -1) call abort
end
|
