fpcsrc/tests/tbs/tb0357.pp


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

{ %version=1.1 }

{$ifdef fpc}{$MODE OBJFPC}{$endif}
uses sysutils;
var
  p:pointer;
begin
  try
    getmem(p, 1000000000);
  except
    on eoutofmemory do writeln('out of memory!');
  end;
  writeln('program lasts...')
end.