PR libfortran/33386

	* runtime/select.c (select_string): Initialize default_jump.

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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 4c92333..eaf7012 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+2007-09-11  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
+       PR libfortran/33386
+       * runtime/select.c (select_string): Initialize default_jump.
+
 2007-09-07  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
        PR libfortran/33307

diff --git a/libgfortran/runtime/select.c b/libgfortran/runtime/select.c
index cecd025..44c3532 100644 (file)
--- a/libgfortran/runtime/select.c
+++ b/libgfortran/runtime/select.c
@@ -53,7 +53,7 @@ select_string (select_struct *table, int table_len, const char *selector,
 {
   select_struct *t;
   int i, low, high, mid;
-  int default_jump;
+  int default_jump = -1;
 
   if (table_len == 0)
     return -1;