* new bug

tests/webtbs/tw2841.pp

@@ -0,0 +1,17 @@
+{ %opt=-Sew }
+
+{ Source provided for Free Pascal Bug Report 2841 }
+{ Submitted by "Mattias Gaertner" on  2003-12-09 }
+{ e-mail: [email protected] }
+program ShortStringNotInitialized;
+
+{$mode objfpc}{$H+}
+
+procedure DoSomething;
+var s: shortstring;
+begin
+  s[1]:=chr(3);
+end;
+
+begin
+end.