From: jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Tue, 23 Jun 2009 00:16:24 +0000 (+0000)
Subject: 2009-06-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=commitdiff_plain;h=ebbadeafe172dccc9e4c1211bc729afa20a04767

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
---

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);
 }