OSDN Git Service

PR libfortran/19524
authortobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 25 Jan 2005 21:40:25 +0000 (21:40 +0000)
committertobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 25 Jan 2005 21:40:25 +0000 (21:40 +0000)
* io/read.c (read_f): Don't free uninitialized pointer.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@94232 138bc75d-0d04-0410-961f-82ee72b054a4

libgfortran/ChangeLog
libgfortran/io/read.c

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