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

no message

Browse Source
This commit is contained in:
florian 2005-03-11 21:50:01 +00:00
parent 8306e44f45
commit 415ff155c7
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
tests/webtbs/tw2983.pp Normal file
View File

@ -0,0 +1,19 @@
type
ta1 = array[0..10] of longint;
var
a1 : array[0..10] of longint;
a2 : array of longint;
i : longint;
begin
for i:=low(a1) to high(a2) do
a1[i]:=i*i;
a2:=a1;
if length(a2)<>length(a1) then
halt(1);
for i:=low(a1) to high(a2) do
if a2[i]<>a1[i] then
halt(1);
writeln('ok');
end.