tw3669.pp 337 B

123456789101112131415161718
  1. { %opt=-Sew -vw }
  2. { Source provided for Free Pascal Bug Report 3669 }
  3. { Submitted by "Mattias Gaertner" on 2005-02-19 }
  4. { e-mail: [email protected] }
  5. program UninitializedArrayBounds;
  6. {$mode objfpc}{$H+}
  7. uses
  8. Classes, SysUtils;
  9. var
  10. a: array[1..2] of integer;
  11. i: Integer;
  12. begin
  13. for i:=Low(a) to High(a) do a[i]:=0;
  14. end.