From 8dac1b213e4e0995fdcbbbd1bea9514e79033305 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Tobias=20Schl=C3=BCter?= Date: Tue, 25 Jan 2005 22:40:25 +0100 Subject: [PATCH] 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 | 5 +++++ libgfortran/io/read.c | 2 -- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 9f9bee8..effa767 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2005-01-25 Tobias Schl"uter + + PR libfortran/19524 + * io/read.c (read_f): Don't free uninitialized pointer. + 2005-01-23 James A. Morrison Paul Brook diff --git a/libgfortran/io/read.c b/libgfortran/io/read.c index d762781..2087ac5 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 */ -- 2.7.4