From: Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de>
Date: Tue, 25 Jan 2005 21:40:25 +0000 (+0100)
Subject: re PR libfortran/19524 (5 times uninitialized var in libgfortran)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=8dac1b213e4e0995fdcbbbd1bea9514e79033305;p=gcc.git

re PR libfortran/19524 (5 times uninitialized var in libgfortran)

PR libfortran/19524
* io/read.c (read_f): Don't free uninitialized pointer.

From-SVN: r94232
---

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 9f9bee8f7f9..effa7673313 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+2005-01-25  Tobias Schl"uter  <tobias.schlueter@physik.uni-muenchen.de>
+
+	PR libfortran/19524
+	* io/read.c (read_f): Don't free uninitialized pointer.
+
 2005-01-23  James A. Morrison  <phython@gcc.gnu.org>
 	Paul Brook  <paul@codesourcery.com>
 
diff --git a/libgfortran/io/read.c b/libgfortran/io/read.c
index d762781e2f5..2087ac54aeb 100644
--- a/libgfortran/io/read.c
+++ b/libgfortran/io/read.c
@@ -600,8 +600,6 @@ read_f (fnode * f, char *dest, int length)
 
  bad_float:
   generate_error (ERROR_READ_VALUE, "Bad value during floating point read");
-  if (buffer != scratch)
-     free_mem (buffer);
   return;
 
   /* At this point the start of an exponent has been found */