blob: d1f8af94f9d8e44bf45df9543d2e6a6e23345a38 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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.
|
