freepascal.compiler/bugs/bug0173.pp

var
  secondbug : word;
procedure p;assembler;
begin
  if secondbug=0 then;
end;

begin
end.