[Bug libfortran/20163] gfortran - error opening direct access file

["Thomas dot Koenig at online dot de" <gcc-bugzilla at gcc dot gnu dot org>]

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