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

* fixed expected high value

Browse Source
This commit is contained in:
peter 2004-05-24 15:21:02 +00:00
parent f4e0bc3881
commit a966964657
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/webtbs/tw3113.pp
View File

@ -9,7 +9,7 @@ var i:Integer;
begin begin
Writeln(High(A)); Writeln(High(A));
if High(A)<>1 then if High(A)<>0 then
begin begin
writeln('Error!'); writeln('Error!');
halt(1); halt(1);