freepascal.compiler/tests/webtbf/uw3450.pp

unit uw3450;

{$mode objfpc}{$H+}

interface

type
  TA=class
  private
    FI: Integer;
  protected
    property I: Integer read FI write FI;
  end;

implementation

end.