Test suite results for test file webtbs/tw2197.pp

Test run data :

Test file "webtbs/tw2197.pp" information:

t_id 917
t_adddate 2003/10/03
t_result 123
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 947981.

Source:

{ %RESULT=123 }
{ Source provided for Free Pascal Bug Report 2197 }
{ Submitted by "Pavel V.Ozerski" on  2002-10-23 }
{ e-mail: pavel@insect.mail.iephb.ru }
{$APPTYPE CONSOLE}
{modified sample of Vlad Smaglyuk}
 procedure Average ({const} Row : Array of byte);
  begin
    writeln('Procedure body');
  end;
 BEGIN
     writeln('Before call');
     Average([1,2,3]);
     writeln('After call');
     { We need to be sure that the following exitcode is 
       returned }
     runerror(123);
 END.

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