diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-05-07 21:42:22 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-05-07 21:42:22 +0000 |
| commit | 7a0973274a8c64ebdc185550a0d60c81d7651bd0 (patch) | |
| tree | 1a4bd302a8099d71d2fea0822a85d6d1fb4356c9 /libgfortran/runtime | |
| parent | 6de97ed5e515dfd109d5fd3af4a2817659408a77 (diff) | |
| download | gcc-7a0973274a8c64ebdc185550a0d60c81d7651bd0.tar.gz | |
PR fortran/22423
* io/transfer.c (read_block_direct): Avoid warning.
* runtime/string.c (compare0): Avoid warning.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@147254 138bc75d-0d04-0410-961f-82ee72b054a4
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 5a81bd6d950..a102c3bd49a 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; } |