private_extension_declaration

private_extension_declaration ::= 
      "type" defining_identifier [ discriminant_part ] "is" 
      [ "abstract" ] "new" ancestor_subtype_indication "with" "private" ";" 

This rule is called by

-> type_declaration