fpcsrc/tests/webtbs/tw17430.pp


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

program Project1;

{$mode delphi}{$H+}

var
  p:pointer;
begin
  returnnilifgrowheapfails:=true;
  GetMem(p,ptruint(-128));
  if assigned(p) then
    halt(1);
end.