+ test for #39955

tests/webtbs/tw39955.pp

@@ -0,0 +1,27 @@
+{ %cpu=i386,i8086 }
+{ %opt=-Op80386 -O2 }
+const
+  StrLen = 11 {5 or 11};
+  Str: array [0..15] of string[StrLen] = ('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15');
+var
+  I: Integer;
+  S: ^string;
+  hs: string;
+begin
+  WriteLn('@Str=', HexStr(PtrUInt(@Str), 8));
+  hs:='';
+  for I := Low(Str) to High(Str) div 4 do
+  begin
+    {$IFDEF CPU16}
+      asm jmp @1; nop; int3; @1: end;
+    {$ELSE}
+      asm jmp .L1; nop; int3; .L1: end;
+    {$ENDIF}
+    S := @Str[I];
+    WriteLn('Str[', I, ']=@', HexStr(PtrUInt(S), 8), '=@Str+', PtrUInt(S) - PtrUInt(@Str), '=''', S^, '''');
+    hs:=hs+S^;
+  end;
+  if hs<>'0123' then
+    halt(1);
+  writeln('ok');
+end.