diff --git a/tests/webtbs/tbug839.pp b/tests/webtbs/tbug839.pp new file mode 100644 index 0000000000..6b51019d9f --- /dev/null +++ b/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. \ No newline at end of file