freepascal.compiler/tests/tbf/tb0205.pp

{ %fail }

procedure test(a: array of longint); forward;

type
  tl = type longint;

procedure test(a: array of tl);
begin
end;

begin
end.