diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 0b0b8ad04cd..cd669e3285c 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2005-11-04  Hans-Peter Nilsson  <hp@axis.com>
+
+	PR target/23424
+	* gcc.dg/torture/pr23424-1.c: New test.
+
 2005-11-04  Richard Henderson  <rth@redhat.com>
 
 	* gcc.target/i386/20000609-1.c, gcc.target/i386/20000614-1.c,
diff --git a/gcc/testsuite/gcc.dg/torture/pr23424-1.c b/gcc/testsuite/gcc.dg/torture/pr23424-1.c
new file mode 100644
index 00000000000..91950d77a43
--- /dev/null
+++ b/gcc/testsuite/gcc.dg/torture/pr23424-1.c
@@ -0,0 +1,16 @@
+/* { dg-do compile } */
+extern char *x;
+extern void foo (void);
+void f (char *s, char *se, char *mp, char *y)
+{
+  while (s != se)
+    {
+      char *p;
+      foo ();
+      p = s + *mp;
+      *y++ = *p;
+      s = p;
+    }
+
+  x = s;
+}