paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 21:10:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* outofmemory exception bug

Browse Source
This commit is contained in:
peter 2001-06-01 22:22:48 +00:00
parent f65e4ad5a3
commit 9ac5af24c1
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/tbs/tb0357.pp Normal file
View File

@ -0,0 +1,12 @@
{$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.