Test suite results for test file webtbs/tw2163.pp

Test run data :

Test file "webtbs/tw2163.pp" information:

t_id 909
t_version 1.1
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 939749.

Source:

{ %version=1.1 }

type oo2 = pchar;

var a: oo2;

function len(a:pchar):longint;
begin
  len:=-1;
end;

begin
  a:='0123456789';
  if length(a)<>10 then
   begin
     writeln('Error!');
     halt(1);
   end;  
end.
   

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