Subversion Repositories openrisc

! { 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

! Gfortran implicitly flushes the buffer when doing a file size

! inquire on an open file.

! 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