diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-23 00:16:24 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-23 00:16:24 +0000 |
| commit | ebbadeafe172dccc9e4c1211bc729afa20a04767 (patch) | |
| tree | b654664417ec3c6f3fd157309d978e75ffb756d9 /libgfortran | |
| parent | d6cf890d519afd8701277e4338b6f2f4e3931284 (diff) | |
| download | gcc-ebbadeafe172dccc9e4c1211bc729afa20a04767.tar.gz | |
2009-06-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/40508
* io/format.c: Don't save parsed format data for internal units.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@148823 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 11 | ||||
| -rw-r--r-- | libgfortran/io/format.c | 5 |
2 files changed, 15 insertions, 1 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 4b4a3535d26..0ae5636c108 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,14 @@ +2009-06-xx Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR libfortran/32784 + * io/unix.c (open_external): Translate CONIN$, CONOUT$, and CONERR$ to + stdin, stdout, and stderr for ming32 or cygwin systems. + +2009-06-21 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR libfortran/40508 + * io/format.c: Don't save parsed format data for internal units. + 2009-06-21 Thomas Koenig <tkoenig@gcc.gnu.org> PR fortran/37577 diff --git a/libgfortran/io/format.c b/libgfortran/io/format.c index 2c116d6fed4..401cd827d9c 100644 --- a/libgfortran/io/format.c +++ b/libgfortran/io/format.c @@ -1218,7 +1218,10 @@ parse_format (st_parameter_dt *dtp) free_format_hash_table (dtp->u.p.current_unit); return; } - save_parsed_format (dtp); + + /* TODO: Interim fix for PR40508. Revise this for PR40330. */ + if (!is_internal_unit(dtp)) + save_parsed_format (dtp); } |