diff options
author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2005-01-25 22:40:25 +0100 |
---|---|---|
committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2005-01-25 22:40:25 +0100 |
commit | 8dac1b213e4e0995fdcbbbd1bea9514e79033305 (patch) | |
tree | 8b44c8ac8df434bb7bdf48a3e2b6455f031a6b58 /libgfortran | |
parent | 1c673473324a57fe482c086b2467990cdf9784d1 (diff) | |
download | gcc-8dac1b213e4e0995fdcbbbd1bea9514e79033305.zip gcc-8dac1b213e4e0995fdcbbbd1bea9514e79033305.tar.gz gcc-8dac1b213e4e0995fdcbbbd1bea9514e79033305.tar.bz2 |
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
Diffstat (limited to 'libgfortran')
-rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
-rw-r--r-- | 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 <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 --- 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 */ |