Test suite results for test file tbs/tb0420.pp

Test run data :

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

tr_id	run	tr_ok	tr_skip	tr_result
-81354457	848970	True	False	Successfully run

Record count: 1

procedure array_test(b: integer; parr: array of word; c: integer);cdecl;
begin
end;


var
 a: array[1..12] of word;
begin
  array_test(0,a,0);
end.