diff --git a/tests/test/tclrprop.pp b/tests/test/tclrprop.pp
new file mode 100644
index 0000000000..60e9a36037
--- /dev/null
+++ b/tests/test/tclrprop.pp
@@ -0,0 +1,17 @@
+{$mode delphi}
+
+type
+  tc = class
+  end;
+
+  tcc = class of tc;
+
+  tc1 = class
+   private
+    fa: tcc;
+   published
+    property pa: tcc read fa write fa;
+  end;
+
+begin
+end.