freepascal.compiler/tests/webtbs/tw0701b.pp

program memhole;
uses
  uw0701d,uw0701e,uw0701c;
begin
   // the tbug701c is to be on the save side
   uw0701c.TestProc('test');
end.