fpcsrc/tests/webtbs/tw2040.pp


1
2
3
4
5
6
7
8
9
10
11

{ Source provided for Free Pascal Bug Report 2040 }
{ Submitted by "Dimitry Sibiryakov" on  2002-07-16 }
{ e-mail: SD@topol.udm.net }
Program p1;

Uses
  SysUtils, uw2040;

begin
 WriteLn('No bug');
end.