[gcc] GCC 4.5.0=>4.5.1

gcc/libgfortran/runtime/string.c

 /* Copyright (C) 2002, 2003, 2005, 2007, 2009 Free Software Foundation, Inc.
    Contributed by Paul Brook
 
 This file is part of the GNU Fortran 95 runtime library (libgfortran).
 
 Libgfortran is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
 the Free Software Foundation; either version 3, or (at your option)
 any later version.
 
@@ skipping 14 matching lines @@
 #include "libgfortran.h"
 #include <string.h>
 
 /* Compare a C-style string with a fortran style string in a case-insensitive
    manner.  Used for decoding string options to various statements.  Returns
    zero if not equal, nonzero if equal.  */
 
 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;
 }
 
 
 /* Given a fortran string, return its length exclusive of the trailing
    spaces.  */
 
 gfc_charlen_type
 fstrlen (const char *string, gfc_charlen_type len)
 {
@@ skipping 64 matching lines @@
              const st_option * opts, const char *error_message)
 {
   for (; opts->name; opts++)
     if (compare0 (s1, s1_len, opts->name))
       return opts->value;
 
   generate_error (cmp, LIBERROR_BAD_OPTION, error_message);
 
   return -1;
 }