From 15e2b2167192e9f3626d1087e09249bf411afea6 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Thu, 2 Dec 2004 17:51:40 +0000
Subject: [PATCH]   * crash with empty strigns

---
 tests/webtbs/tw3423.pp | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 tests/webtbs/tw3423.pp

diff --git a/tests/webtbs/tw3423.pp b/tests/webtbs/tw3423.pp
new file mode 100644
index 0000000000..32dce29c06
--- /dev/null
+++ b/tests/webtbs/tw3423.pp
@@ -0,0 +1,17 @@
+{ Source provided for Free Pascal Bug Report 3423 }
+{ Submitted by "Bram Kuijvenhoven" on  2004-12-02 }
+{ e-mail: kuifware@hotmail.com }
+{$MODE OBJFPC}{$H+}
+
+var
+  a:ansistring;
+  s:shortstring;
+
+begin
+
+  a:='';
+  s:='';
+  a+=s;
+
+end.
+