[gcc] GCC 4.5.0=>4.5.1

gcc/libgfortran/runtime/string.c

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