45 function Prag (Pragma_Node : Node_Id; Semi : Source_Ptr) return Node_Id is  subprogram
46    Prag_Name   : constant Name_Id    := Pragma_Name_Unmapped (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);
115    -- Add_List_Pragma_Entry --  argument
118    procedure Add_List_Pragma_Entry (PT : List_Pragma_Type; Loc : Source_Ptr) is  argument
133       return First (Pragma_Argument_Associations (Pragma_Node));  argument
161          Error_Msg ("wrong number of arguments for pragma%", Pragma_Sloc);  argument
170    procedure Check_Arg_Is_On_Or_Off (Arg : Node_Id) is
189    procedure Check_Arg_Is_String_Literal (Arg : Node_Id) is
203    procedure Check_No_Identifier (Arg : Node_Id) is
215    procedure Check_Optional_Identifier (Arg : Node_Id; Id : Name_Id) is
229    procedure Check_Required_Identifier (Arg : Node_Id; Id : Name_Id) is
255                   Set_Restriction (No_Obsolescent_Features, Pragma_Node);  argument
460       when Pragma_Ignore_Pragma => Ignore_Pragma : declare  argument
599          Source_File_Name : declare
894       when Pragma_Source_Reference => Source_Reference : declare  argument
975       when Pragma_Style_Checks => Style_Checks : declare  argument
1139       when Pragma_Warnings => Warnings : declare  argument
1274       when Pragma_Wide_Character_Encoding => Wide_Character_Encoding : declare  argument