* new bug

2025-12-03 06:07:37 +01:00 · 2003-12-12 15:43:41 +00:00 · 2003-12-12 15:43:41 +00:00 · 8b4a122d49
commit 8b4a122d49
parent 6091cd2824
1 changed files with 17 additions and 0 deletions
--- a/tests/webtbs/tw2841.pp
+++ b/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: mattias@freepascal.org }
+program ShortStringNotInitialized;
+
+{$mode objfpc}{$H+}
+
+procedure DoSomething;
+var s: shortstring;
+begin
+  s[1]:=chr(3);
+end;
+
+begin
+end.