diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/inquire_size.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/inquire_size.f90 | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/inquire_size.f90 b/gcc/testsuite/gfortran.dg/inquire_size.f90 index 568c3d6..13876cf 100644 --- a/gcc/testsuite/gfortran.dg/inquire_size.f90 +++ b/gcc/testsuite/gfortran.dg/inquire_size.f90 @@ -8,7 +8,9 @@ open(25, file="testfile", status="replace", access="stream", form="unformatted") do i=1,100 write(25) i, "abcdefghijklmnopqrstuvwxyz" enddo -flush(25) +! 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 |