diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 5b64d1461551..537cd207eeb8 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2005-01-25  Alexander Malmberg  <alexander@malmberg.org>
+
+	PR objc/18408
+	* objc.dg/comp-types-7.m: New test.
+
 2005-01-24  Janis Johnson  <janis187@us.ibm.com>
 
 	* lib/target-supports.exp (current_target_name): New.
diff --git a/gcc/testsuite/objc.dg/comp-types-7.m b/gcc/testsuite/objc.dg/comp-types-7.m
new file mode 100644
index 000000000000..c33600ce3c68
--- /dev/null
+++ b/gcc/testsuite/objc.dg/comp-types-7.m
@@ -0,0 +1,32 @@
+/* { dg-do compile } */
+/* We just to ICE because we removed the cast to List_linked*
+   in -[ListIndex_linked next]. */
+
+@interface List
+{
+@public
+  int firstLink;
+}
+@end
+
+@interface ListIndex_linked
+{
+@public
+  List *collection;
+  int link;
+}
+@end
+
+@interface List_linked: List
+@end
+
+@implementation List
+@end
+
+@implementation ListIndex_linked
+- next
+{
+   link = ((List_linked*)collection)->firstLink;
+}
+@end
+