with Last_Chance_Handler;  pragma Unreferenced (Last_Chance_Handler);
--  The "last chance handler" is the user-defined routine that is called when
--  an exception is propagated. We need it in the executable, therefore it
--  must be somewhere in the closure of the context clauses.

with System;

with AMC;             pragma Unreferenced (AMC);
with Current_Control; pragma Unreferenced (Current_Control);
with Logging_Handler; pragma Unreferenced (Logging_Handler);
with Watchdog.Manager; pragma Unreferenced (Watchdog.Manager);

procedure Main is
   pragma Priority (System.Priority'First);
begin

   loop
      null;
   end loop;

end Main;
