Subversion Repositories openrisc

-- { dg-do compile }

with Ada.Exceptions;

package body Noreturn3 is

  procedure Raise_Error (E : Enum; ErrorMessage : String) is

    function Msg return String is

    begin

      return "Error :" & ErrorMessage;

    end;

  begin

    case E is

       when One =>

         Ada.Exceptions.Raise_Exception (Exc1'Identity, Msg);

       when Two =>

         Ada.Exceptions.Raise_Exception (Exc2'Identity, Msg);

       when others =>

         Ada.Exceptions.Raise_Exception (Exc3'Identity, Msg);

    end case;

  end;

end Noreturn3;