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

*** empty log message ***

Browse Source
This commit is contained in:
florian 2004-05-29 15:20:02 +00:00
parent ef303e5570
commit 5a37581b29
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/test/trtti3.pp
View File

@ -12,12 +12,18 @@ begin
a:=c1+c2; a:=c1+c2;
finalize(a); finalize(a);
if length(a)<>0 then if length(a)<>0 then
halt(1); begin
writeln('length of a: ',length(a),' instead of 0');
halt(1);
end;
for i:=1 to 10 do for i:=1 to 10 do
aa[i]:=c1+c2; aa[i]:=c1+c2;
finalize(aa[1],10); finalize(aa[1],10);
for i:=1 to 10 do for i:=1 to 10 do
if length(aa[i])<>0 then if length(aa[i])<>0 then
halt(1); begin
writeln('error at element: ',i,' contents: ''',aa[i],''' instead of ''''');
halt(1);
end;
end. end.