fpcsrc/tests/webtbs/tw3721.pp


1
2
3
4
5
6
7
8
9
10
11
12

{ %opt=-gh}

uses sysutils;

var ps : pstring;

begin
  HaltOnNotReleased := true;
  ps:=newstr('TEST');
  writeln(ps^);
  disposestr(ps);
end.