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
59    --  Obtain specified Pragma_Argument_Association. It is allowable to call  argument
63    procedure Check_Arg_Count (Required : Int);
67    procedure Check_Arg_Is_String_Literal (Arg : Node_Id);
71    procedure Check_Arg_Is_On_Or_Off (Arg : Node_Id);
76    procedure Check_No_Identifier (Arg : Node_Id);
81    procedure Check_Optional_Identifier (Arg : Node_Id; Id : Name_Id);
86    procedure Check_Required_Identifier (Arg : Node_Id; Id : Name_Id);
90    procedure Process_Restrictions_Or_Restriction_Warnings;
116       return First (Pragma_Argument_Associations (Pragma_Node));  argument
144          Error_Msg ("wrong number of arguments for pragma%", Pragma_Sloc);  argument
153    procedure Check_Arg_Is_On_Or_Off (Arg : Node_Id) is
172    procedure Check_Arg_Is_String_Literal (Arg : Node_Id) is
186    procedure Check_No_Identifier (Arg : Node_Id) is
198    procedure Check_Optional_Identifier (Arg : Node_Id; Id : Name_Id) is
212    procedure Check_Required_Identifier (Arg : Node_Id; Id : Name_Id) is
238                   Set_Restriction (No_Obsolescent_Features, Pragma_Node);  argument
521          Source_File_Name : declare
816       when Pragma_Source_Reference => Source_Reference : declare  argument
897       when Pragma_Style_Checks => Style_Checks : declare  argument
1085       when Pragma_Wide_Character_Encoding => Wide_Character_Encoding : declare  argument