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