Commit 130bcb37 by Thomas Koenig Committed by Thomas Koenig

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

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
parent bbaa6cf6
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
......
......@@ -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;
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment