* new bug

tests/webtbs/tw2525.pp

@@ -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.