diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index ab23bcaecda..7284c2cf3d2 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,11 @@
+2013-03-30  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+	* trans-expr.c (build_memcmp_call):  New function.
+	(gfc_build_compare_string):  If the strings
+	compared have constant and equal lengths and
+	the strings are kind=1, or, for kind=4 strings,
+	the test is for (in)equality, use memcmp().
+
 2013-03-29  Tobias Burnus  <burnus@net-b.de>
 
 	PR fortran/35203
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 776a0318001..a152083c1ea 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,10 @@
+2013-03-30  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+	* gfortran.dg/character_comparison_3.f90:  Adjust for use of memcmp
+	for constant and equal string lengths.
+	* gfortran.dg/character_comparison_5.f90:  Likewise.
+	* gfortran.dg/character_comparison_9.f90:  New test.
+
 2013-03-27  Kirill Yukhin  <kirill.yukhin@intel.com>
 
 	* gcc.target/i386/avx2-vbroadcastsi128-1.c: Fix intrinsic name.