fpcsrc/tests/webtbs/tw1709.pp


1
2
3
4
5
6
7
8
9
10

{ %version=1.1 }

{$ifdef fpc}{$mode delphi}{$endif}

var
 x: array of byte;
begin
  // This should free the dynamic array
  x := nil;
end.