From 130bcb37be10302019e694667caa3522f5f5f327 Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Sat, 9 Apr 2005 19:37:14 +0000 Subject: [PATCH] re PR libfortran/20163 ([4.0 only] gfortran - error opening direct access file) 2005-04-09 Thomas Koenig PR libfortran/20163 * runtime/string.c (compare0): Use fstrlen() to strip trailing blanks from option string. From-SVN: r97923 --- libgfortran/ChangeLog | 6 ++++++ libgfortran/runtime/string.c | 14 ++++---------- 2 files changed, 10 insertions(+), 10 deletions(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 9399d731fcea..2f31127bc5a8 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2005-04-09 Thomas Koenig + + PR libfortran/20163 + * runtime/string.c (compare0): Use fstrlen() to + strip trailing blanks from option string. + 2005-04-09 Andrew Pinski PR fortran/13257 diff --git a/libgfortran/runtime/string.c b/libgfortran/runtime/string.c index 07ed99bab366..07f374eea048 100644 --- a/libgfortran/runtime/string.c +++ b/libgfortran/runtime/string.c @@ -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; } -- 2.47.2