mirrors/gcc
0
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2024-11-29 14:54:05 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

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