+ 839

tests/webtbs/tbug839.pp

@@ -0,0 +1,18 @@
+{$mode tp}
+program notcom;
+
+type demo=object
+          constructor init;
+          destructor done(x:longint);
+          end;
+
+constructor demo.init;
+begin
+end;
+
+destructor demo.done(x:longint);
+begin
+end;
+
+begin
+end.