{$MODE OBJFPC}
{$WARNINGS ON}
unit testunit;

interface

type
   TTokens = array of UTF8String;

function DoTest(): TTokens;

implementation

function DoTest(): TTokens;
begin
//   SetLength(Result, Length(Result)+1);
end;

end.