757       Type_Node : Node_Id;  variable
761          Type_Node := P_Subtype_Mark;
762          return P_Subtype_Indication (Type_Node);
828       Type_Node : Node_Id;  variable
842          Type_Node := P_Qualified_Simple_Name_Resync;
849             return P_Subtype_Mark_Attribute (Type_Node);
851             return Type_Node;
869    function P_Subtype_Mark_Attribute (Type_Node : Node_Id) return Node_Id is
875       Prefix := Check_Subtype_Mark (Type_Node);
1020       Type_Node  : Node_Id;  variable
1321             Type_Node := P_Subtype_Mark;
1329                Set_Subtype_Mark (Decl_Node, Type_Node);
1337                  (Decl_Node, P_Subtype_Indication (Type_Node));