blob: ef021a161c25668cfaa3fcac609c65a0993ac46e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
{ %opt=-Sew -vw }
{ 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.
|
