FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR libfortran/20163 ([4.0 only] gfortran - error opening direct access file)

Browse source 
2005-04-09  Thomas Koenig <Thomas.Koenig@online.de>

        PR libfortran/20163
        * runtime/string.c (compare0): Use fstrlen() to
        strip trailing blanks from option string.

From-SVN: r97923
This commit is contained in:
Thomas Koenig 2005-04-09 19:37:14 +00:00 • committed by Thomas Koenig
parent bbaa6cf677
commit 130bcb37be
2 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
libgfortran/ChangeLog
View file

@ -1,3 +1,9 @@
2005-04-09 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/20163
* runtime/string.c (compare0): Use fstrlen() to
strip trailing blanks from option string.
2005-04-09 Andrew Pinski <pinskia@physics.uc.edu>
PR fortran/13257

14
libgfortran/runtime/string.c
View file

@ -41,17 +41,11 @@ static int
compare0 (const char *s1, int s1_len, const char *s2)
{
int i;
int len;
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;
/* Strip trailing blanks from the Fortran string. */
len = fstrlen(s1, s1_len);
return strncasecmp(s1,s2,len) == 0;
}