diff options
| author | Bud Davis <bdavis9659@comcast.net> | 2004-07-05 01:19:08 +0000 |
|---|---|---|
| committer | Bud Davis <bdavis@gcc.gnu.org> | 2004-07-05 01:19:08 +0000 |
| commit | bf1df0a046ed0a4d272d0ee2c2a930e3ad9d1831 (patch) | |
| tree | b268954c8950b71cc4b9784da0d2cc8172c33fc5 /gcc/java/java-tree.h | |
| parent | 91a8b4596b7555f113eef0097a573ad24bdc17db (diff) | |
| download | gcc-bf1df0a046ed0a4d272d0ee2c2a930e3ad9d1831.zip gcc-bf1df0a046ed0a4d272d0ee2c2a930e3ad9d1831.tar.gz gcc-bf1df0a046ed0a4d272d0ee2c2a930e3ad9d1831.tar.bz2 | |
re PR libfortran/15472 (implicit open for unformatted file causes run-time error)
2004-07-04 Bud Davis <bdavis9659@comcast.net>
Paul Brook <paul@codesourcery.com>
PR fortran/15472
* io/transfer.c(us_write): set recl for seq unform writes to max size.
* io/transfer.c(data_transfer_init): handle un-opened seq unform unit.
* io/unix.c(fd_alloc_w_at): handle requests at start, fd_flush at
right time.
* io/unix.c(is_seekable): set based upon the file/device, not the
method being used to access it (fd or mmap).
* io/unix.c(fd_flush): don't set file_size if !seekable.
* io/unix.c(fd_truncate: ditto.
* gfortran.fortran-torture/execute/seq_io.f90: New test.
Co-Authored-By: Paul Brook <paul@codesourcery.com>
From-SVN: r84104
Diffstat (limited to 'gcc/java/java-tree.h')
0 files changed, 0 insertions, 0 deletions