freepascal.compiler/tests/test/tchlp85.pp

{ %NORUN }

{ test visibility of symbols in the extended type - protected }
program tchlp85;

{$ifdef fpc}
  {$mode delphi}
{$endif}
{$apptype console}

uses
  uchlp82;

type
  TFooHelper = class helper for TFoo
    function AccessField: Integer;
  end;

function TFooHelper.AccessField: Integer;
begin
  Result := Test4;
end;

begin

end.