diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e72961a11a9..faf9136a209 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2002-01-18  Kazu Hirata  <kazu@hxi.com>
+
+	* testsuite/gcc.c-torture/execute/20020118-1.c: New test.
+
 2001-01-18  David Billinghurst <David.Billinghurst@riotinto.com>
 
 	* g++.dg/other/deprecated.C: Fix FAIL from 
diff --git a/gcc/testsuite/gcc.c-torture/execute/20020118-1.c b/gcc/testsuite/gcc.c-torture/execute/20020118-1.c
new file mode 100644
index 00000000000..44bf67e6e68
--- /dev/null
+++ b/gcc/testsuite/gcc.c-torture/execute/20020118-1.c
@@ -0,0 +1,33 @@
+/* This tests an insn length of sign extention on h8300 port.  */
+
+extern void exit (int);
+
+volatile signed char *q;
+volatile signed int n;
+
+void
+foo (void)
+{
+  signed char *p;
+
+  for (;;)
+    {
+      p = (signed char *) q; n = p[2];
+      p = (signed char *) q; n = p[2];
+      p = (signed char *) q; n = p[2];
+      p = (signed char *) q; n = p[2];
+      p = (signed char *) q; n = p[2];
+      p = (signed char *) q; n = p[2];
+      p = (signed char *) q; n = p[2];
+      p = (signed char *) q; n = p[2];
+      p = (signed char *) q; n = p[2];
+      p = (signed char *) q; n = p[2];
+      p = (signed char *) q; n = p[2];
+    }
+}
+
+int
+main ()
+{
+  exit (0);
+}