Subversion Repositories openrisc

package Return2 is
 
  type Kind_T is (One, Two);
 
  type T is array (Kind_T) of Boolean;
 
  type Result_Internal_T (Member : Boolean := False) is record
    case Member is
      when True =>
        Data : Kind_T := Kind_T'First;
      when False =>
        null;
    end case;
  end record;
 
  function Value (Img : String) return T;
 
end Return2;