transfer.c (finalize_transfer): Free internal streams.

	* io/transfer.c (finalize_transfer): Free internal streams.
	* io/unix.c (mem_close): Free stream object.

From-SVN: r88709

libgfortran/ChangeLog

 2004-10-07  Paul Brook  <paul@codesourcery.com>
 
+	* io/transfer.c (finalize_transfer): Free internal streams.
+	* io/unix.c (mem_close): Free stream object.
+
+2004-10-07  Paul Brook  <paul@codesourcery.com>
+
 	* intrinsics/string_intrinsics.c (string_verify): Fix off by one
 	error.
 

libgfortran/io/transfer.c

@@ -1349,7 +1349,8 @@ next_record (int done)
 
 
 /* Finalize the current data transfer.  For a nonadvancing transfer,
-   this means advancing to the next record.  */
+   this means advancing to the next record.  For internal units close the
+   steam associated with the unit.  */
 
 static void
 finalize_transfer (void)
@@ -1392,6 +1393,9 @@ finalize_transfer (void)
     }
 
   sfree (current_unit->s);
+
+  if (is_internal_unit ())
+    sclose (current_unit->s);
 }
 
 

libgfortran/io/unix.c

@@ -811,6 +811,7 @@ mem_truncate (unix_stream * s)
 static try
 mem_close (unix_stream * s)
 {
+  free_mem (s);
 
   return SUCCESS;
 }