mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-17 02:26:49 +02:00
36 lines
370 B
ObjectPascal
36 lines
370 B
ObjectPascal
program tmacnonlocalexit;
|
|
{$MODE MACPAS}
|
|
|
|
var
|
|
failed: Boolean;
|
|
|
|
procedure Global;
|
|
|
|
procedure Local;
|
|
begin
|
|
Exit(Global);
|
|
failed := true;
|
|
end;
|
|
|
|
begin
|
|
Local;
|
|
failed := true;
|
|
end;
|
|
|
|
|
|
begin
|
|
failed := false;
|
|
|
|
Global;
|
|
|
|
if failed then
|
|
writeln('Failed')
|
|
else
|
|
writeln('Succeded');
|
|
|
|
{$IFC NOT UNDEFINED FPC}
|
|
if failed then
|
|
Halt(1);
|
|
{$ENDC}
|
|
end.
|