tests/webtbs/tw38337.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

program fs;

{$mode objfpc}{$H+}

function UTF8Length(const s: string): PtrInt; inline;
begin
  Result:=9;
end;


var
  v1: string;
  s: shortstring;
  i: Integer;
begin
  v1 := '123456789';
  s := v1;
  for i := 1 to UTF8Length(s)-8 do begin
  end;
end.