re PR libfortran/33386 (Fortran SELECT statement miscompiles)

PR libfortran/33386 * runtime/select.c (select_string): Initialize default_jump. From-SVN: r128379

re PR libfortran/33386 (Fortran SELECT statement miscompiles)
PR libfortran/33386 * runtime/select.c (select_string): Initialize default_jump. From-SVN: r128379
257fafe0 · Francois-Xavier Coudert · François-Xavier Coudert · c47b0cb4 · 257fafe0 · 257fafe0
Commit 257fafe0 authored Sep 11, 2007 by Francois-Xavier Coudert Committed by François-Xavier Coudert Sep 11, 2007
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 1 deletions

libgfortran/ChangeLog
+5 -0

libgfortran/runtime/select.c
+1 -1

No files found.
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
+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

--- 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;