diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 2b3fb96c970..cd9fa1395f5 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2003-02-21  Mark Mitchell  <mark@codesourcery.com>
+
+	PR c++/8724
+	* g++.dg/expr/dtor1.C: New test.
+
 2003-02-21  Zack Weinberg  <zack@codesourcery.com>
 
 	* gcc.dg/cpp/include3.c: New test.
diff --git a/gcc/testsuite/g++.dg/expr/dtor1.C b/gcc/testsuite/g++.dg/expr/dtor1.C
new file mode 100644
index 00000000000..0d95049c4a6
--- /dev/null
+++ b/gcc/testsuite/g++.dg/expr/dtor1.C
@@ -0,0 +1,7 @@
+class Foo;
+
+void
+bar(void* p)
+{
+  static_cast<Foo*>(p)->~Foo(); // { dg-error "" }
+}