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