Test suite results for test file tbs/tb0251.pp

Test run data :

Test file "tbs/tb0251.pp" information:

t_id 480
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 940794.

Source:

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

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

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.

Link to SVN view of tbs/tb0251.pp source.