freepascal.compiler/bugs/bug0082.pp

Unit bug0083;

interface

Type T = OBject
      Constructor Init;
      Destructor Free; virtual;
      Destructor Destroy; virtual;
      end;
      
implementation
      
constructor T.INit;

begin
end;

Destructor t.Free;

begin
end;

Destructor t.Destroy;

begin
end;


end.