mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 16:10:09 +02:00
23 lines
412 B
ObjectPascal
23 lines
412 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 2904 }
|
|
{ Submitted by "Alexey Barkovoy" on 2004-01-17 }
|
|
{ e-mail: clootie@ixbt.com }
|
|
program Project2;
|
|
{$mode objfpc}
|
|
{$goto on}
|
|
{$APPTYPE CONSOLE}
|
|
uses SysUtils;
|
|
|
|
var
|
|
i: Integer;
|
|
label
|
|
LFail;
|
|
begin
|
|
try
|
|
LFail: // Cleanup
|
|
// i:= i; //todo: Uncomment this line for FPC_1.9.2 BUG workaround !!!
|
|
except
|
|
on EOutOfMemory do i:= 1;
|
|
else i:= 2;
|
|
end;
|
|
end.
|