mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:18:22 +02:00
23 lines
604 B
ObjectPascal
23 lines
604 B
ObjectPascal
{ Old file: tbs0131.pp }
|
|
{ internal error 10 with highdimension arrays OK 0.99.6 (MVC) }
|
|
|
|
type TA = Array[1..2,1..2,1..2,1..2,1..2,1..2,1..3,1..3,1..3,1..3] of Byte;
|
|
TA2 = Array[1..2,1..2,1..2] of Byte;
|
|
|
|
var v,w: ta;
|
|
x: ta2;
|
|
e: longint;
|
|
|
|
Begin
|
|
e :=1;
|
|
x[e,e,e]:=1;
|
|
v[e,e,e,e,e,e,e,e,e,e] :=1;
|
|
w[e,e,e,e,e,e,v[e,e,e,e,e,e,e,e,e,e],e,e,v[e,e,e,e,e,e,v[e,v[e,e,e,e,e,v[e,e,e,e,e,e,e,e,e,e],e,e,e,e],e,e,e,e,e,e,e,e],e,e,e]] := v [e,e,e,e,e,e,e,e,e,e];
|
|
writeln(w[e,e,e,e,e,e,e,e,e,e]);
|
|
if w[e,e,e,e,e,e,e,e,e,e]<>1 then
|
|
begin
|
|
writeln('Error!');
|
|
halt(1);
|
|
end;
|
|
end.
|