From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Fri, 21 Oct 2016 01:41:03 +0000 (+0000)
Subject: transfer.c (finalize_transfer): Free format data in child procedures.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=bdff7e518b1f28d02ebf26662a31148a62295d83;p=gcc.git

transfer.c (finalize_transfer): Free format data in child procedures.

2016-10-20  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	* io/transfer.c (finalize_transfer): Free format data in child
	procedures. (st_read_done, st_write_done): Don't free format
	hash table.

From-SVN: r241392
---

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 9662df891f5..511458f89d3 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,10 +1,16 @@
+2016-10-20  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	* io/transfer.c (finalize_transfer): Free format data in child
+	procedures. (st_read_done, st_write_done): Don't free format
+	hash table.
+
 2016-10-17  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
 	PR fortran/48298
 	* io/io.h: Move size_used from dtp to unit structure. Add bool
 	has_size to unit structure.
-	* read.c (read_x): Use has_size and size_used.
-	* transfer.c (read_sf_internal,read_sf,read_block_form,
+	* io/read.c (read_x): Use has_size and size_used.
+	* io/transfer.c (read_sf_internal,read_sf,read_block_form,
 	read_block_form4): Likewise.
 	(data_transfer_init): If parent, initialize the size variables.
 	(finalize_transfer): Set the size variable using size_used in
diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c
index 1f46ca64cf1..0879ca7ae8c 100644
--- a/libgfortran/io/transfer.c
+++ b/libgfortran/io/transfer.c
@@ -3783,7 +3783,14 @@ finalize_transfer (st_parameter_dt *dtp)
     }
 
   if (dtp->u.p.current_unit && (dtp->u.p.current_unit->child_dtio  > 0))
-    return;
+    {
+      if (cf & IOPARM_DT_HAS_FORMAT)
+        {
+	  free (dtp->u.p.fmt);
+	  free (dtp->format);
+	}
+      return;
+    }
 
   if ((dtp->common.flags & IOPARM_DT_HAS_SIZE) != 0)
     *dtp->size = dtp->u.p.current_unit->size_used;
@@ -3972,7 +3979,6 @@ st_read_done (st_parameter_dt *dtp)
         {
 	  free (dtp->u.p.current_unit->filename);
 	  dtp->u.p.current_unit->filename = NULL;
-	  free_format_hash_table (dtp->u.p.current_unit);
 	  free (dtp->u.p.current_unit->s);
 	  dtp->u.p.current_unit->s = NULL;
 	  if (dtp->u.p.current_unit->ls)
@@ -4043,7 +4049,6 @@ st_write_done (st_parameter_dt *dtp)
 	{
 	  free (dtp->u.p.current_unit->filename);
 	  dtp->u.p.current_unit->filename = NULL;
-	  free_format_hash_table (dtp->u.p.current_unit);
 	  free (dtp->u.p.current_unit->s);
 	  dtp->u.p.current_unit->s = NULL;
 	  if (dtp->u.p.current_unit->ls)