diff --git a/tests/webtbs/tw2040.pp b/tests/webtbs/tw2040.pp
new file mode 100644
index 0000000000..b8d5222c93
--- /dev/null
+++ b/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: SD@topol.udm.net }
+Program p1;
+
+Uses
+  SysUtils, uw2040;
+
+begin
+ WriteLn('No bug');
+end.
diff --git a/tests/webtbs/uw2040.pp b/tests/webtbs/uw2040.pp
new file mode 100644
index 0000000000..cc6ae53b9a
--- /dev/null
+++ b/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: SD@topol.udm.net }
+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.
+