Index: gcc/libgfortran/runtime/string.c |
diff --git a/gcc/libgfortran/runtime/string.c b/gcc/libgfortran/runtime/string.c |
index 030c04bfcc77dab2266b45cedff63fbbff266c8c..a102c3bd49af74b22f61e6623ce74f95d6b9d414 100644 |
--- a/gcc/libgfortran/runtime/string.c |
+++ b/gcc/libgfortran/runtime/string.c |
@@ -32,11 +32,14 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see |
static int |
compare0 (const char *s1, gfc_charlen_type s1_len, const char *s2) |
{ |
- size_t len; |
+ gfc_charlen_type len; |
/* 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; |
} |