freepascal.compiler/tests/webtbf/tw0840.pp

{ %Fail }
program tb0840;

uses uw0840a;

begin
  uw0840b.i:=1;
end.