blob: 8c06002af281f38e1517dee356ec32743eacb23b (
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 3669 }
{ Submitted by "Mattias Gaertner" on 2005-02-19 }
{ e-mail: mattias@freepascal.org }
program UninitializedArrayBounds;
{$mode objfpc}{$H+}
uses
Classes, SysUtils;
var
a: array[1..2] of integer;
i: Integer;
begin
for i:=Low(a) to High(a) do a[i]:=0;
end.
|
