diff options
| author | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2009-05-07 21:42:22 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2009-05-07 21:42:22 +0000 |
| commit | 743460ea821f749dd56e31a9925d33ae3240566a (patch) | |
| tree | 1a4bd302a8099d71d2fea0822a85d6d1fb4356c9 /libgfortran/runtime | |
| parent | 45b9b2e927e2f72760f040eb1054a779b17cea63 (diff) | |
| download | gcc-743460ea821f749dd56e31a9925d33ae3240566a.zip gcc-743460ea821f749dd56e31a9925d33ae3240566a.tar.gz gcc-743460ea821f749dd56e31a9925d33ae3240566a.tar.bz2 | |
re PR libfortran/22423 (Warnings when building libgfortran)
PR fortran/22423
* io/transfer.c (read_block_direct): Avoid warning.
* runtime/string.c (compare0): Avoid warning.
From-SVN: r147254
Diffstat (limited to 'libgfortran/runtime')
| -rw-r--r-- | libgfortran/runtime/string.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/libgfortran/runtime/string.c b/libgfortran/runtime/string.c index 5a81bd6..a102c3b 100644 --- a/libgfortran/runtime/string.c +++ b/libgfortran/runtime/string.c @@ -36,7 +36,10 @@ compare0 (const char *s1, gfc_charlen_type s1_len, const char *s2) /* Strip trailing blanks from the Fortran string. */ len = fstrlen (s1, s1_len); - if (len != strlen(s2)) return 0; /* don't match */ + + if ((size_t) len != strlen(s2)) + return 0; /* don't match */ + return strncasecmp (s1, s2, len) == 0; } |