------- Additional Comments From Thomas dot Koenig at online dot de 2005-02-23
23:29 -------
This has a pretty good chance of fixing it.
Proper testing, Changelog entry, ... tomorrow.
Index: string.c
===================================================================
RCS file: /cvsroot/gcc/gcc/libgfortran/runtime/string.c,v
retrieving revision 1.4
diff -c -r1.4 string.c
*** string.c 12 Jan 2005 21:27:31 -0000 1.4
--- string.c 23 Feb 2005 23:28:02 -0000
***************
*** 41,57 ****
compare0 (const char *s1, int s1_len, const char *s2)
{
int i;
! if (strncasecmp (s1, s2, s1_len) != 0)
! return 0;
!
! /* The rest of s1 needs to be blanks for equality. */
!
! for (i = strlen (s2); i < s1_len; i++)
! if (s1[i] != ' ')
! return 0;
!
! return 1;
}
--- 41,51 ----
compare0 (const char *s1, int s1_len, const char *s2)
{
int i;
+ int len;
! /* Strip traling blanks from the Fortran string. */
! len = fstrlen(s1, s1_len);
! return strncasecmp(s1,s2,len) == 0;
}
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=20163
