blob: a48c712dd30882e529177ca5e489ef7f2e4297ab (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{ %opt=-Sew }
{ Source provided for Free Pascal Bug Report 2832 }
{ Submitted by "Mattias Gaertner" on 2003-12-05 }
{ e-mail: mattias@freepascal.org }
program ArrayNotInitialized;
{$mode objfpc}{$H+}
procedure DoSomething;
var
p: array[1..2] of integer;
begin
p[1]:=0;
end;
begin
end.
|