This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
[libgfortran, committed] Fix character SELECT library helper function
- From: "François-Xavier Coudert" <fxcoudert at gmail dot com>
- To: "fortran at gcc dot gnu dot org" <fortran at gcc dot gnu dot org>, "GCC Patches" <gcc-patches at gcc dot gnu dot org>
- Date: Tue, 11 Sep 2007 15:53:32 +0100
- Subject: [libgfortran, committed] Fix character SELECT library helper function
- Dkim-signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=beta; h=domainkey-signature:received:received:message-id:date:from:to:subject:mime-version:content-type:content-transfer-encoding:content-disposition; bh=1kBUQI+5EIlKK2oNJYs6xfhklR0L+LtXjF09UimWPp8=; b=qP3JUivuauq5VH3OnAf/qNjBZ8cNPb7Dc4+Il4p4niKuPvhBwUpHvUsKSLfIfgvvDQr3Tz/ujpXHbJOCSSPvW+BBYk8a99dVZrSRxfiVIyLNeeD3vGsiFEfZ/YS1f1TmLbrF71pGceTbSpYKhxf6xsO5QHA0FVVUgoYpI7nK3M8=
- Domainkey-signature: a=rsa-sha1; c=nofws; d=gmail.com; s=beta; h=received:message-id:date:from:to:subject:mime-version:content-type:content-transfer-encoding:content-disposition; b=ad95tR0bOblzumV1DodjCdz6lz2VGlJmpz9hiWcM1/r8x49NSZKnvQC8ZP3Nkux5CUWtiW95+4euQYhEYZVKLHXoUwiQFHG2fuaC7TBqjhRXnrO3N5n7hf7uKA3CXDackdzr2dpl7bBt+Sy4hU+sK/Fn9ZMpRxnrwjDVlYuIgCw=
Patch below was committed (rev. 128379) as obvious after regtesting on
x86_64-linux. It fixes the handling of character SELECT when no
default case is present, by correctly initializing a variable in the
library (PR33386).
FX
Index: ChangeLog
===================================================================
--- ChangeLog (revision 128378)
+++ ChangeLog (working copy)
@@ -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
Index: runtime/select.c
===================================================================
--- runtime/select.c (revision 128373)
+++ runtime/select.c (working copy)
@@ -53,7 +53,7 @@ select_string (select_struct *table, int
{
select_struct *t;
int i, low, high, mid;
- int default_jump;
+ int default_jump = -1;
if (table_len == 0)
return -1;