diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 0a3fe87a6d1..bdbe5503259 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2000-02-02  Alexandre Oliva  <oliva@lsd.ic.unicamp.br>
+
+	* gcc.dg/loop-1.c: New test.
+
 2000-01-26  Alexandre Oliva  <oliva@lsd.ic.unicamp.br>
 
 	* gcc.dg/unused-2.c: New test.
diff --git a/gcc/testsuite/gcc.dg/loop-1.c b/gcc/testsuite/gcc.dg/loop-1.c
new file mode 100644
index 00000000000..a2c7fe64209
--- /dev/null
+++ b/gcc/testsuite/gcc.dg/loop-1.c
@@ -0,0 +1,20 @@
+/* Copyright (C) 2000  Free Software Foundation.
+
+   Simplified from gcc/fold-const.c
+   by Alexandre Oliva  <oliva@lsd.ic.unicamp.br>  */
+
+/* { dg-do compile } */
+
+void
+mul_double ()
+{
+  int i, j, *prod;
+
+  for (i = 0; i < 4; i++)
+    {
+      for (j = 0; j < 4; j++)
+        {
+          *prod = 0;
+        }
+    }
+}