{ %NORUN }

program tw30498;

{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}

  procedure Test(const AItems: TArray<string>);
  begin
  end;

begin
  Test(['foo', 'bar']);
end.