usr/share/fpcsrc/3.2.0/tests/webtbs/tw2525.pp · beefree / fpc-src v3.2.0 - deb package | Gemfury

Gemfury

Why Gemfury? Push, build, and install RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

beefree / fpc-src deb

Repository URL to install this package:

Details

fpc-src / usr / share / fpcsrc / 3.2.0 / tests / webtbs / tw2525.pp

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