freepascal.compiler/bugs/bug0077.pp

uses
   bug0077b;

begin
   b:=89;
   writeln(a);
end.