diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-04-13 06:24:58 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-04-13 06:24:58 +0000 |
| commit | 6f34d6e078fafa8cdc99a2c3b98d5d8882c62303 (patch) | |
| tree | c763d2334fb0ded7d39d7fef5c1d53dabe519ab2 /gcc | |
| parent | 7b5d92b270ef6b7a55f4b337ee52777e53695807 (diff) | |
| download | gcc-6f34d6e078fafa8cdc99a2c3b98d5d8882c62303.zip gcc-6f34d6e078fafa8cdc99a2c3b98d5d8882c62303.tar.gz gcc-6f34d6e078fafa8cdc99a2c3b98d5d8882c62303.tar.bz2 | |
re PR fortran/26766 ([F2003] Recursive I/O still (again) broken)
2006-04-12 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/26766
* io/io.h: Add bit to identify associated unit as internal.
* io/unit.c (get_external_unit): Renamed the find_unit_1 function to
reflect the external unit functionality vs internal unit.
(get_internal_unit): New function to allocate and initialize an internal
unit structure.
(get_unit): Use get_internal_unit and get_external_unit.
(is_internal_unit): Revised to use new bit added in io.h.
* io/transfer.c (data_transfer_init): Fix line width.
(st_read_done): Free memory allocated for internal unit.
(st_write_done): Add test to only flush and truncate when not an
internal unit. Free memory allocated for internal unit.
From-SVN: r112914
Diffstat (limited to 'gcc')
0 files changed, 0 insertions, 0 deletions