freepascal.compiler/tests/tbs/tb0327.pp

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

procedure t(a: ta);
begin
end;

var a: ta;

begin
  t(a);
end.