paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 02:27:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

* add check

Browse Source
This commit is contained in:
peter 2002-09-01 18:53:11 +00:00
parent 5a06f334b7
commit b590b0165e
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/tbs/tb0112.pp
View File

@ -2,13 +2,21 @@
{ 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])
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.