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