* test for already resolved issue #38874

tests/webtbf/tw38874.pp

@@ -0,0 +1,12 @@
+{ %fail }
+program ConstString;
+
+procedure Test;
+const TestString='abc';'def';
+begin
+  writeln(TestString);
+end;
+
+begin
+  Test;
+end.