blob: 9992da650d17de35ed35020e034110b7aa8d8073 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
{ %opt=-CRriot -O-2 -Ooregvar }
{ %result=201 }
{Internal FPC2.1.4 error, compile with fpc -B -dDebug -O3}
procedure bug(var b: array of longint);
var
l: longint;
procedure intern;
begin
if (b[l] <> 1) then {Fatal: Internal error 200409241}
halt(1);
end;
begin
l:=3;
intern;
end;
const
a: array[1..3] of longint = (1,2,3);
begin
bug(a);
end.
|
