diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index d022be726aa..5e37d0f31d7 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+Fri Jul  6 09:31:43 2001  Jeffrey A Law  (law@cygnus.com)
+
+	* gcc.c-torture/compile/20010706-1.c: New test.
+
 2000-09-10  Michael Chamberlain <michael@chamberlain.net.au>
 
 	* gcc.misc-tests/mg.exp (compiler_output): Support tcl 8.3.1.
diff --git a/gcc/testsuite/gcc.c-torture/compile/20010706-1.c b/gcc/testsuite/gcc.c-torture/compile/20010706-1.c
new file mode 100644
index 00000000000..44aec371a99
--- /dev/null
+++ b/gcc/testsuite/gcc.c-torture/compile/20010706-1.c
@@ -0,0 +1,5 @@
+
+foo(unsigned int x)
+{
+  return (x << 1) | (x >> 31);
+}