Test suite results for test file webtbs/tw2561.pp

Test run data :

Test file "webtbs/tw2561.pp" information:

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

Detailed test run results:

Record count: 1

No log of 497919.

Source:

{ Source provided for Free Pascal Bug Report 2561 }
{ Submitted by "Nikolay Nikolov" on  2003-07-06 }
{ e-mail: nickysn1983@netscape.net }
Procedure Tralala(Var q);

Begin
  Writeln(SizeOf(q));
  if sizeof(q)<>0 then
    halt(1);
End;

Var
  q : Integer;
  w : Array[1..10] Of Integer;

Begin
  Tralala(q);
  Tralala(w);
End.

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