|
@@ -0,0 +1,16 @@
|
|
|
|
|
+{ Source provided for Free Pascal Bug Report 2525 }
|
|
|
|
|
+{ Submitted by "Pavel V. Ozerski" on 2003-06-05 }
|
|
|
|
|
+{ e-mail: [email protected] }
|
|
|
|
|
+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.
|
peter