Test suite results for test file webtbs/tw1907.pp

Test run data :

Test file "webtbs/tw1907.pp" information:

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

Detailed test run results:

Record count: 1

No log of 860205.

Source:

{ Source provided for Free Pascal Bug Report 1907 }
{ Submitted by "Michail A.Baikov" on  2002-03-31 }
{ e-mail: russia@freepascal.org }
{$ifdef fpc}{$MODE DELPHI}{$endif}

function f:pointer;
begin
  f:=nil;
end;

function f1(k:byte):Pointer; cdecl;
begin
  result:=f;
end;

var
    a:function (k:byte):Pointer; cdecl;
    b:function:Pointer;
begin
    a:=f1;
    b:=a(0);
end.

{
  $Log: tw1907.pp,v $
  Revision 1.3  2002/09/16 19:05:31  peter
    * fix compile mode

  Revision 1.2  2002/09/07 15:40:59  peter
    * old logs removed and tabs fixed

  Revision 1.1  2002/04/13 08:05:38  carl
  + web bug test #1907

}

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