Test suite results for test file webtbs/tw1765.pp

Test run data :

Test file "webtbs/tw1765.pp" information:

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

Detailed test run results:

Record count: 1

No log of 848896.

Source:

{$mode delphi}

type mytype=array[1..2] of string;
const myconst:mytype=('foo','bar');

procedure myproc(myparam:mytype);
begin
 writeln(myparam[1],' ',myparam[2]);
end;

begin
 myproc(myconst);
end.

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