fpc/tests/webtbs/tw0839.pp
2000-11-30 22:38:14 +00:00

18 lines
217 B
ObjectPascal

{$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.