gcc/ada/sem_attr.adb

228       Aname   : constant Name_Id      := Attribute_Name (N);  constant
231       Attr_Id : constant Attribute_Id := Get_Attribute_Id (Aname);
514                         Error_Msg_Name_1 := Aname;
832             elsif Aname = Name_Unchecked_Access then
1077                   if Aname = Name_Unrestricted_Access
1259             if Aname = Name_Old then
1322               and then Aname = Name_Result
1496             Error_Msg_Name_1 := Aname;
1651                Error_Msg_Name_1 := Aname;
2304          Error_Msg_Name_1 := Aname;
2385             Error_Msg_Name_1 := Aname;
2611          Error_Msg_Name_1 := Aname;
2622          Error_Msg_Name_1 := Aname;
2753                Error_Msg_Name_1 := Aname;
2797       if not Is_Attribute_Name (Aname) then
2808                Error_Msg_Name_1 := Aname;
2835       if Aname = Name_Access then
2844       if Aname /= Name_Elab_Body       and then
2845          Aname /= Name_Elab_Spec       and then
2846          Aname /= Name_Elab_Subp_Body  and then
2847          Aname /= Name_Enabled         and then
2848          Aname /= Name_Old
2915          if Aname /= Name_Restriction_Set then
2943         and then Aname /= Name_Access
2944         and then Aname /= Name_Address
2945         and then Aname /= Name_Code_Address
2946         and then Aname /= Name_Result
2947         and then Aname /= Name_Unchecked_Access
2955            and then not Nam_In (Aname, Name_Count, Name_Caller)
2966             if Nam_In (Aname, Name_Count, Name_Caller) then
3124          elsif Aname = Name_Asm_Output then
3181             Error_Msg_Name_1 := Aname;
4108                Error_Msg_Name_1 := Aname;
5171             Error_Msg_Name_1 := Aname;
5197             Error_Msg_Name_1 := Aname;
5881                   Error_Msg_Name_1 := Aname;
6033             Error_Msg_Name_1 := Aname;
6845             Error_Msg_Name_1 := Aname;
7147       Aname : constant Name_Id      := Attribute_Name (N);
7148       Id    : constant Attribute_Id := Get_Attribute_Id (Aname);
10252       Aname    : constant Name_Id      := Attribute_Name (N);
10253       Attr_Id  : constant Attribute_Id := Get_Attribute_Id (Aname);
10495                Error_Msg_Name_1 := Aname;
10589                      Error_Msg_Name_1 := Aname;
10593                   elsif Aname = Name_Unrestricted_Access then
10751                   Error_Msg_Name_1 := Aname;
11291                   Error_Msg_Name_1 := Aname;