fpcsrc/tests/webtbs/tw0701b.pp


1
2
3
4
5
6
7

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