+ added

tests/webtbs/tw3721.pp

@@ -0,0 +1,11 @@
+{ %opt=-gh}
+
+uses sysutils;
+
+var ps : pstring;
+
+begin
+  ps:=newstr('TEST');
+  writeln(ps^);
+  disposestr(ps);
+end.