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