re PR libfortran/24584 (Segfault when reading empty string in namelist file)

2005-10-31  Jerry DeLisle  <jvdelisle@verizon.net>

        PR libgfortran/24584
        * io/list_read.c (free_saved): Set saved_used to zero.

From-SVN: r106265

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 0ea6adbb71244e9210dd634fc88e7fdaf31ebaab..86deed1a341f2f4eadf6023f8642b72942902c97 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+2005-10-31  Jerry DeLisle  <jvdelisle@verizon.net>
+
+        PR libgfortran/24584
+        * io/list_read.c (free_saved): Set saved_used to zero.
+
 2005-10-30  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
 
        PR libfortran/20179

diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c
index 95cb12659acee64754e9b3625b521f085b87bf12..810c856f9ec686a35b834e058e17d6f26f5114a4 100644 (file)
--- a/libgfortran/io/list_read.c
+++ b/libgfortran/io/list_read.c
@@ -134,6 +134,7 @@ free_saved (void)
     free_mem (saved_string);
 
   saved_string = NULL;
+  saved_used = 0;
 }