!editorial comment 077
!topic A_Private_Extension_Declaration can be returned by Corresponding_Type_declaration
!reference  ASIS 95-15.13
!from  Sergey Rybin
!keywords function
!discussion

A_Private_Extension_Declaration should be included in the returned kinds
list for A_Private_Extension_Declaration

------------------------------------------------------------------------------
-- Section 15.13  function Corresponding_Type_Declaration
------------------------------------------------------------------------------
    function Corresponding_Type_Declaration
                (Declaration : in Asis.Declaration) return Asis.Declaration;

    function Corresponding_Type_Declaration
                (Declaration : in Asis.Declaration;
                 The_Context : in Asis.Context) return Asis.Declaration;
------------------------------------------------------------------------------
--  Declaration - Specifies the type declaration to query
--  The_Context - Specifies the program Context to use for obtaining package
--                body information
--
-- Returns the corresponding full type declaration when given a private or
-- incomplete type declaration.  Returns the corresponding private or
-- incomplete type declaration when given a full type declaration.
--
-- These two function calls will always produce identical results:
--
--   Decl2 := Corresponding_Type_Declaration( Decl1 );
--   Decl2 := Corresponding_Type_Declaration
--              ( Decl1,
--                Enclosing_Context( Enclosing_Compilation_Unit( Decl1 )));
--
-- Returns a Nil_Element when a full type declaration is given that has no
-- corresponding private or incomplete type declaration, or when a
-- corresponding type declaration does not exist within The_Context.
--
-- The parameter The_Context is used whenever the corresponding full type of
-- an incomplete type is in a corresponding package body.  See RM 95 3.10.1(3).
-- Any non-Nil result will always have the given Context as its
-- Enclosing_Context.
--
-- Appropriate Declaration_Kinds:
--      An_Ordinary_Type_Declaration
--      A_Task_Type_Declaration
--      A_Protected_Type_Declaration
--      An_Incomplete_Type_Declaration
--      A_Private_Type_Declaration
--      A_Private_Extension_Declaration
--
-- Returns Declaration_Kinds:
--      Not_A_Declaration
--      An_Ordinary_Type_Declaration
--      A_Task_Type_Declaration
--      A_Protected_Type_Declaration
--      An_Incomplete_Type_Declaration
--      A_Private_Type_Declaration
--
------------------------------------------------------------------------------

!resolution  Accept.
Changes made as suggested.