From 6deb59445cf08177bf0a6b8c1f38de9fdba93026 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Thu, 19 Dec 2002 08:43:58 +0000
Subject: [PATCH]  + test for web bug #2040

---
 tests/webtbs/tw2040.pp | 11 +++++++++++
 tests/webtbs/uw2040.pp | 18 ++++++++++++++++++
 2 files changed, 29 insertions(+)
 create mode 100644 tests/webtbs/tw2040.pp
 create mode 100644 tests/webtbs/uw2040.pp

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.
+