Test suite results for test file webtbs/tw0909.pp

Test run data :

Test file "webtbs/tw0909.pp" information:

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

Detailed test run results:

Record count: 1

No log of 729050.

Source:

uses sysutils;
 var r:array[0..3] of real;
begin
 r[0]:=1; r[1]:=2; r[2]:=3; r[3]:=4;
 // the following is supposed to print "1, 2, 3, 4", instead it prints "4, 4, 4, 4"
 writeln(format('%g, %g, %g, %g',[r[0],r[1],r[2],r[3]]));
end.

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