From 5615e8cdcefe4c702cd8e79fccadf4bf1b9237f5 Mon Sep 17 00:00:00 2001 From: Paul Brook Date: Thu, 7 Oct 2004 21:30:50 +0000 Subject: 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/io/unix.c | 1 + 1 file changed, 1 insertion(+) (limited to 'libgfortran/io/unix.c') diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c index e55966b..c8b18fc 100644 --- a/libgfortran/io/unix.c +++ b/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; } -- cgit v1.1