Test suite results for test file webtbs/tw0922.pp

Test run data :

Test file "webtbs/tw0922.pp" information:

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

Detailed test run results:

Record count: 1

No log of 948205.

Source:

program test;

procedure write1(  var charbuf:string);
begin
  Writeln(Charbuf);
end;

procedure write2(  var charbuf:string; attrbuf:array of word);
begin
  Writeln(Charbuf);
end;

var chars : String[82];
    attrs : array [1..162] of word;
begin
  Chars := 'Das ist ein Test, den ich gerade schreibe';
  write1(chars);
  write2(chars,attrs);
end.

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