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

* new bug

Browse Source
This commit is contained in:
peter 2003-11-01 16:16:43 +00:00
parent 94adc500b2
commit 39a6c7db45
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
tests/webtbs/tw2525.pp Normal file
View File

@ -0,0 +1,16 @@
{ Source provided for Free Pascal Bug Report 2525 }
{ Submitted by "Pavel V. Ozerski" on 2003-06-05 }
{ e-mail: ozerski@list.ru }
procedure MyProc(x:array of longint);
begin
writeln(high(x));
if high(x)<>2 then
halt(1);
end;
type
tMyEnum=(My1,My2,My3);
var
ar:array[tMyEnum]of longint;
begin
MyProc(ar);
end.