mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
19 lines
299 B
ObjectPascal
19 lines
299 B
ObjectPascal
program EmptyTryFinally1;
|
|
|
|
{$mode delphi}
|
|
{$apptype console}
|
|
|
|
var
|
|
finallyrun: boolean;
|
|
begin
|
|
finallyrun:=false;
|
|
try
|
|
// Empty try statement block
|
|
finally
|
|
WriteLn('I should actually visible . . .'); // but I'm not
|
|
finallyrun:=true;
|
|
end;
|
|
if not finallyrun then
|
|
halt(1);
|
|
end.
|