* New test based on webtbs/tw38337 that helps catch internal error 200307043

tests/webtbs/tw38337.inc

@@ -0,0 +1,18 @@
+{$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.

tests/webtbs/tw38337.pp

@@ -1,20 +1,2 @@
-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.
+program tw38337;
+{$I tw38337.inc}

tests/webtbs/tw38337a.pp

@@ -0,0 +1,9 @@
+{ %OPT=-O3 }
+{ %CPU=i386,x86_64 }
+
+{ This variant of tw38337 helps to catch out Internal Error 200307043 that
+  sometimes got triggered during pure function development (even though the
+  test itself doesn't use a pure function). }
+
+program tw38337a;
+{$I tw38337.inc}