* crash with empty strigns

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: [email protected] }
+{$MODE OBJFPC}{$H+}
+
+var
+  a:ansistring;
+  s:shortstring;
+
+begin
+
+  a:='';
+  s:='';
+  a+=s;
+
+end.
+