freepascal.compiler/tests/test/tchlp83.pp

{ %FAIL }

{ test visibility of symbols in the extended type - private }
program tchlp83;

{$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 := Test2;
end;

begin

end.