fpcsrc/tests/tbs/tb0327.pp


1
2
3
4
5
6
7
8
9
10
11

type ta = array[1..1,1..100] of integer;

procedure t(a: ta);
begin
end;

var a: ta;

begin
  t(a);
end.