fpc/tests/webtbs/tw5100a.pp

{ %norun }
{ %OPT=-Sen -vn }
{ %fail }

unit tw5100a; 

{$mode objfpc}{$H+}

interface

type

  { TB }

  TB = class
  private
    FT: string;
    property T: string read FT write FT;
  end;
  
implementation


end.