fpcsrc/tests/tbs/tb0021.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

{ 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.