Test suite results for test file tbs/tb0021.pp

Test run data :

Test file "tbs/tb0021.pp" information:

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

Detailed test run results:

Record count: 1

No log of 497919.

Source:

{ Old file: tbs0025.pp }
{  tests for a wrong uninit. var. warning              OK 0.9.3 }

procedure p1;
type
  datetime=record
    junk : string;
end;
var
  dt : datetime;
begin
  fillchar(dt,sizeof(dt),0);
end;

begin
  P1;
end.

Link to SVN view of tbs/tb0021.pp source.