freepascal.compiler/tests/tbs0176.pp

{ $OPT= -Un }
{ no unit name checking !! }
unit bug0176;
interface

var
  l1 : longint;

implementation

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