blob: f9951442592689b4ef54a349b9c9badd4630ada9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{ %skipcpu=x86_64,powerpc64 }
{ %FAIL }
{$mode delphi}
var
{ The next line should give an error as it's to big to allocate }
a: array [ Integer ] of Integer;
i: Integer;
begin
for i := 0 to 1000 do begin
a [ i ] := i
end { for i }
; writeln ( a [ 1000 ] )
end.
|
