freepascal.compiler/tests/webtbf/uw0856.pp

{$MODE objfpc}
unit uw0856;
interface
type
  TMyClass = class
  protected
    constructor Create(x: Integer);
  end;

implementation

constructor TMyClass.Create(x: Integer);
begin
end;

end.