|
|
@@ -0,0 +1,18 @@
|
|
|
+{ %opt=-Sew }
|
|
|
+
|
|
|
+{ Source provided for Free Pascal Bug Report 3669 }
|
|
|
+{ Submitted by "Mattias Gaertner" on 2005-02-19 }
|
|
|
+{ e-mail: [email protected] }
|
|
|
+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.
|
peter