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 4b4a353..0ae5636 100644 (file)
--- 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 2c116d6..401cd82 100644 (file)
--- 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);
 }