package Global_Constant is
   pragma Elaborate_Body;
   An_Error : exception;
end;