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 9f9bee8..effa767 100644 (file)
--- 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 d762781..2087ac5 100644 (file)
--- 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 */