fpcsrc/tests/webtbs/tw8664.pp


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

{ %OPT=-gh }
program project1;

{$mode objfpc}{$H+}

procedure TLResourceListAdd(Values: array of string);
begin
end;


begin
  HaltOnNotReleased := true;
  TLResourceListAdd(['Value1']);
end.