mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
2e2f2eb784
an exception block but *without* using sysutils. The remove code
was once added to have primitive exception handling even if
no sysutils is used. But if this is desired, an appropriate handler
to ErrorProc should be assigned. Resolves #38201
git-svn-id: trunk@47775 -
24 lines
296 B
ObjectPascal
24 lines
296 B
ObjectPascal
{ %result=201 }
|
|
program Test;
|
|
{$apptype console}
|
|
{$ifdef fpc}
|
|
{$mode objfpc}
|
|
{$endif fpc}
|
|
{$R+}
|
|
|
|
var
|
|
Arr: array[1..2] of integer;
|
|
i: Integer;
|
|
begin
|
|
i:=5;
|
|
try
|
|
try
|
|
Arr[i] := 1;
|
|
except
|
|
writeln('Except block');
|
|
end;
|
|
finally
|
|
writeln('Finally block');
|
|
end;
|
|
end.
|