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/io | |
| 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/io')
| -rw-r--r-- | libgfortran/io/read.c | 2 |
1 files changed, 0 insertions, 2 deletions
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 */ |