freepascal.compiler/tests/webtbs/tw0840.pp

{$mode TP}

program tb0840;

uses uw0840a;

begin
  uw0840b.i:=1;
end.