diff options
author | steven <steven@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-12-12 12:48:31 +0000 |
---|---|---|
committer | steven <steven@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-12-12 12:48:31 +0000 |
commit | 189a98e725c819015f7e1ddb2509940c0c59d392 (patch) | |
tree | 3ffdf0231dcaa81aa1900f0cee3dc7e9f05f2955 /libgfortran | |
parent | 581bc90669b173ac5fa8b86a6f0797e7b2b460a3 (diff) |
2003-12-12 Huang Chun <chunhuang73@hotmal.com>
* intrinsics/string_intrinsics.c (string_index): Fix logics thinko.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/tree-ssa-20020619-branch@74565 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
-rw-r--r-- | libgfortran/ChangeLog | 4 | ||||
-rw-r--r-- | libgfortran/intrinsics/string_intrinsics.c | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 8d2317ebf69..ea019033750 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,7 @@ +2003-12-12 Huang Chun <chunhuang73@hotmal.com> + + * intrinsics/string_intrinsics.c (string_index): Fix logics thinko. + 2003-12-05 Melvin Hadasht <melvin.hadasht@free.fr> * io/transfer.c (data_transfer_init): Give a runtime error for list diff --git a/libgfortran/intrinsics/string_intrinsics.c b/libgfortran/intrinsics/string_intrinsics.c index 44882dac1bd..999807ed1d0 100644 --- a/libgfortran/intrinsics/string_intrinsics.c +++ b/libgfortran/intrinsics/string_intrinsics.c @@ -221,7 +221,7 @@ string_index (GFC_INTEGER_4 slen, const char * str, GFC_INTEGER_4 sslen, if (sslen == 0) return 1; - if (back) + if (!back) { last = slen + 1 - sslen; start = 0; |