freepascal.compiler/tests/tbs/tb0251.pp

{ Old file: tbs0291.pp }
{ @procvar in tp mode bugss                             OK 0.99.13 (PFV) }

{$ifdef fpc}{$mode tp}{$endif}
{$F+}

function ReturnString: string;
begin
  ReturnString := 'A string';
end;

procedure AcceptString(S: string);
begin
  WriteLn('Got: ', S);
  if S<>'A string' then
   begin
     writeln('ERROR!');
     halt(1);
   end;
end;

type
  TStringFunc = function: string;

const
  SF: TStringFunc = ReturnString;
var
  S2: TStringFunc;
begin
  @S2:=@ReturnString;
  AcceptString(ReturnString);
  AcceptString(SF);
  AcceptString(S2);
end.