freepascal.compiler/tests/webtbs/tw1364.pp

{$X-}

type
  o=object
    constructor init(s:string);
  end;

constructor o.init(s:string);
begin
end;

var
  s:o;
begin
  s.init('test');
end.