5 package body Noreturn3 is
7 procedure Raise_Error (E : Enum; ErrorMessage : String) is
9 function Msg return String is
11 return "Error :" & ErrorMessage;
17 Ada.Exceptions.Raise_Exception (Exc1'Identity, Msg);
20 Ada.Exceptions.Raise_Exception (Exc2'Identity, Msg);
23 Ada.Exceptions.Raise_Exception (Exc3'Identity, Msg);