re PR libfortran/33386 (Fortran SELECT statement miscompiles)

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

From-SVN: r128379

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 4c92333266c443722dab5e629b31107899207591..eaf7012685357178554b15401670c9e298d264b6 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 cecd02541182489d8db69d823f3f3dffaedda988..44c353235a08cbbdeb621e98318a21d4f2472036 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;