summaryrefslogtreecommitdiff
path: root/libgfortran
diff options
context:
space:
mode:
authorbstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4>2009-06-30 05:27:25 +0000
committerbstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4>2009-06-30 05:27:25 +0000
commit125da2199fbe37d73f566834eaf8528ee36f18e1 (patch)
treeff221cf3fd6ff96b14dcaf091dbf512b2752502b /libgfortran
parent1d34abac81450ec8b2e2874b91318c6abdc4e5ac (diff)
downloadgcc-125da2199fbe37d73f566834eaf8528ee36f18e1.tar.gz
2009-06-29 Basile Starynkevitch <basile@starynkevitch.net>
MELT branch merged with trunk r149060 git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@149081 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
-rw-r--r--libgfortran/ChangeLog5
-rw-r--r--libgfortran/io/format.c5
2 files changed, 9 insertions, 1 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 4b4a3535d26..1a6aa8044cf 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+2009-06-22 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);
}