mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-05 13:31:07 +01:00
19 lines
333 B
ObjectPascal
19 lines
333 B
ObjectPascal
{ %opt=-Sew }
|
|
|
|
{ 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.
|