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

libgfortran/ChangeLog

+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>
 

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 */