Test suite results for test file webtbs/tw2778.pp

Test run data :

Test file "webtbs/tw2778.pp" information:

t_id 1195
t_adddate 2003/11/11
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 947983.

Source:

{ Source provided for Free Pascal Bug Report 2778 }
{ Submitted by "Michael Van Canneyt" on  2003-11-09 }
{ e-mail: michael.vancanneyt@wisa.be }

{$mode delphi}

type
  TMyFunc = Procedure (I : Integer = 10);

Procedure MyRealFunc(I : Integer = 20);

begin
  Writeln('Function received : ',I);
  if i<>10 then
    halt(1);
end;

Var
  M : TMyFunc;

begin
  M:=@MyRealFunc;
  M;
end.

Link to SVN view of webtbs/tw2778.pp source.