unit bug0077b;

  interface

    var
       a : longint;
       b : longint absolute a;

  implementation

end.