fpc/tests/webtbs/tw13992a.pp

{ %norun }

{ dispose(property) should be accepted }

program test_prop;

{$mode delphi}

type
  TMyRec = record
    s: string;
  end;
  PMyRec = ^TMyRec;

  TSomeClass = class
  private
    FMyRec: PMyRec;
  public
    constructor Create;
    destructor Destroy; override;
    property MyRec: PMyRec read FMyRec write FMyRec;
  end;

{ TSomeClass }

constructor TSomeClass.Create;
begin
//  New(MyRec);
end;

destructor TSomeClass.Destroy;
begin
  Dispose(MyRec);
  inherited;
end;

begin
end.