global_constant.ads   [plain text]

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