Message ID | 20130327083557.GB6374@domone.kolej.mff.cuni.cz |
---|---|
State | New |
Headers | show |
diff --git a/libgfortran/intrinsics/string_intrinsics_inc.c b/libgfortran/intrinsics/string_intrinsics_inc.c index a1f86b5..9eb0613 100644 --- a/libgfortran/intrinsics/string_intrinsics_inc.c +++ b/libgfortran/intrinsics/string_intrinsics_inc.c @@ -107,16 +107,15 @@ compare_string (gfc_charlen_type len1, const CHARTYPE *s1, res = 1; } - while (len--) + s = memchr (s, ' ', len); + if (!s) + return 0; + if (*s != ' ') { - if (*s != ' ') - { - if (*s > ' ') - return res; - else - return -res; - } - s++; + if (*s > ' ') + return res; + else + return -res; } return 0;