fpc/tests/webtbs/tw1364.pp
2001-02-05 20:45:59 +00:00

17 lines
145 B
ObjectPascal

{$X-}
type
o=object
constructor init(s:string);
end;
constructor o.init(s:string);
begin
end;
var
s:o;
begin
s.init('test');
end.