fpcsrc/tests/webtbs/tw1765.pp


1
2
3
4
5
6
7
8
9
10
11
12
13

{$mode delphi}

type mytype=array[1..2] of string;
const myconst:mytype=('foo','bar');

procedure myproc(myparam:mytype);
begin
 writeln(myparam[1],' ',myparam[2]);
end;

begin
 myproc(myconst);
end.