freepascal.compiler/tests/test/tmacnonlocalexit.pp

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.