Test suite results for test file webtbs/tw2713.pp

Test run data :

Test file "webtbs/tw2713.pp" information:

t_id 1075
t_adddate 2003/10/14
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 940419.

Source:

{ Source provided for Free Pascal Bug Report 2713 }
{ Submitted by "Wiktor Sywula" on  2003-10-05 }
{ e-mail: wswiktor@poczta.fm }
UNIT tw2713;

{$MODE OBJFPC}

INTERFACE

type trek=record
        a,b,c:word;
     end;

procedure rek(var r:trek; a,b,c:word);
function rek(a,b,c:word):trek;

IMPLEMENTATION

procedure rek(var r:trek; a,b,c:word);
begin
  r.a:=a;
  r.b:=b;
  r.c:=c;
end;

function rek(a,b,c:word):trek;
begin
  rek(rek,a,b,c);
end;


END.

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