From 7a0973274a8c64ebdc185550a0d60c81d7651bd0 Mon Sep 17 00:00:00 2001 From: fxcoudert Date: Thu, 7 May 2009 21:42:22 +0000 Subject: 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 --- libgfortran/runtime/string.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'libgfortran/runtime') 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; } -- cgit v1.2.1