45 function Prag (Pragma_Node : Node_Id; Semi : Source_Ptr) return Node_Id is  subprogram
46    Prag_Name   : constant Name_Id    := Pragma_Name (Pragma_Node);  argument
47    Prag_Id     : constant Pragma_Id  := Get_Pragma_Id (Prag_Name);  argument
48    Pragma_Sloc : constant Source_Ptr := Sloc (Pragma_Node);  argument
56    procedure Add_List_Pragma_Entry (PT : List_Pragma_Type; Loc : Source_Ptr);  argument
64    --  Obtain specified Pragma_Argument_Association. It is allowable to call  argument
68    procedure Check_Arg_Count (Required : Int);
72    procedure Check_Arg_Is_String_Literal (Arg : Node_Id);
76    procedure Check_Arg_Is_On_Or_Off (Arg : Node_Id);
81    procedure Check_No_Identifier (Arg : Node_Id);
86    procedure Check_Optional_Identifier (Arg : Node_Id; Id : Name_Id);
91    procedure Check_Required_Identifier (Arg : Node_Id; Id : Name_Id);
116    -- Add_List_Pragma_Entry --  argument
119    procedure Add_List_Pragma_Entry (PT : List_Pragma_Type; Loc : Source_Ptr) is  argument
134       return First (Pragma_Argument_Associations (Pragma_Node));  argument
162          Error_Msg ("wrong number of arguments for pragma%", Pragma_Sloc);  argument
171    procedure Check_Arg_Is_On_Or_Off (Arg : Node_Id) is
190    procedure Check_Arg_Is_String_Literal (Arg : Node_Id) is
204    procedure Check_No_Identifier (Arg : Node_Id) is
216    procedure Check_Optional_Identifier (Arg : Node_Id; Id : Name_Id) is
230    procedure Check_Required_Identifier (Arg : Node_Id; Id : Name_Id) is
256                   Set_Restriction (No_Obsolescent_Features, Pragma_Node);  argument
441       when Pragma_Ignore_Pragma => Ignore_Pragma : declare  argument
578          Source_File_Name : declare
873       when Pragma_Source_Reference => Source_Reference : declare  argument
954       when Pragma_Style_Checks => Style_Checks : declare  argument
1103       when Pragma_Warnings => Warnings : declare  argument
1238       when Pragma_Wide_Character_Encoding => Wide_Character_Encoding : declare  argument