42 function Prag (Pragma_Node : Node_Id; Semi : Source_Ptr) return Node_Id is  subprogram
43    Pragma_Name : constant Name_Id    := Chars (Pragma_Node);  argument
44    Pragma_Sloc : constant Source_Ptr := Sloc (Pragma_Node);  argument
55    --  Obtain specified Pragma_Argument_Association. It is allowable to call  argument
59    procedure Check_Arg_Count (Required : Int);
63    procedure Check_Arg_Is_String_Literal (Arg : Node_Id);
67    procedure Check_Arg_Is_On_Or_Off (Arg : Node_Id);
92       return First (Pragma_Argument_Associations (Pragma_Node));  argument
120          Error_Msg ("wrong number of arguments for pragma%", Pragma_Sloc);  argument
129    procedure Check_Arg_Is_On_Or_Off (Arg : Node_Id) is
151    procedure Check_Arg_Is_String_Literal (Arg : Node_Id) is
165    procedure Check_No_Identifier (Arg : Node_Id) is
200    -- Prag --  argument
405          Source_File_Name : declare
676       when Pragma_Source_Reference => Source_Reference : declare  argument
758       when Pragma_Style_Checks => Style_Checks : declare  argument