+ test for web bug #2040

tests/webtbs/tw2040.pp

@@ -0,0 +1,11 @@
+{ Source provided for Free Pascal Bug Report 2040 }
+{ Submitted by "Dimitry Sibiryakov" on  2002-07-16 }
+{ e-mail: [email protected] }
+Program p1;
+
+Uses
+  SysUtils, uw2040;
+
+begin
+ WriteLn('No bug');
+end.

tests/webtbs/uw2040.pp

@@ -0,0 +1,18 @@
+{ Source provided for Free Pascal Bug Report 2040 }
+{ Submitted by "Dimitry Sibiryakov" on  2002-07-16 }
+{ e-mail: [email protected] }
+Unit uw2040;
+{$H+}
+interface
+
+Var
+ a: String; // make this string short and all is Ok
+
+implementation
+
+Procedure b(s: string); // Remove this proc and all is Ok too
+begin
+end;
+
+end.
+