[Bug fortran/55469] memory leak on read with istat.ne.0

[burnus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=55469



Tobias Burnus <burnus at gcc dot gnu.org> changed:



           What    |Removed                     |Added

----------------------------------------------------------------------------

                 CC|                            |burnus at gcc dot gnu.org



--- Comment #2 from Tobias Burnus <burnus at gcc dot gnu.org> 2012-11-26 
09:26:46 UTC ---

Untested:



--- a/libgfortran/io/list_read.c

+++ b/libgfortran/io/list_read.c

@@ -1966,8 +1966,8 @@ list_formatted_read_scalar (st_parameter_dt *dtp, bt

type, void *p,

     }



+cleanup:

   if (--dtp->u.p.repeat_count <= 0)

     free_saved (dtp);



-cleanup:

   if (err == LIBERROR_END)

     hit_eof (dtp);