unit bug0176;
interface

var
  l1 : longint;

implementation

var
  l2 : longint;
  
begin
  bug0176.l1:=1;
  bug0176.l2:=1;
end.