gcc/ada/sem_ch8.adb

577         and then Ekind (Entity (Nam)) = E_Exception
705       elsif Ekind (Old_P) /= K then
819             if Ekind (Id) in E_Variable | E_Constant
1208             if Ekind (Etype (Nam)) /= Ekind (T) then
1227                   if Ekind (It.Typ) = Ekind (T) then
1228                      if Ekind (T) = E_Anonymous_Access_Subprogram_Type
1240                      elsif Ekind (T) = E_Anonymous_Access_Type
1361         and then Ekind (Etype (T2)) = E_Incomplete_Type
1366       elsif Ekind (Etype (T)) = E_Incomplete_Type then
1458       if Ekind (Id) /= E_Constant then
1514         and then Ekind (Entity (Nam)) = E_Enumeration_Literal
1617       elsif Ekind (Old_P) /= E_Package
1618         and then not (Ekind (Old_P) = E_Generic_Package
1621          if Ekind (Old_P) = E_Generic_Package then
1688             if Ekind (Ent) = E_Package
1691               and then Ekind (Old_P) = E_Package
1765       if Ekind (New_S) = E_Function then
1794          if Ekind (Etype (Nam)) /= E_Subprogram_Type
1810             if Ekind (It.Nam) = E_Subprogram_Type
1895         and then Ekind (New_S) = E_Procedure
1928       if (Is_Entity_Name (P) and then Ekind (Entity (P)) = E_Entry_Family)
1930                   and then Ekind (Entity (Selector_Name (P))) = E_Entry_Family)
1989          if Ekind (Subp) /= Ekind (New_S) then
2001               and then Ekind (Old_F) /= Ekind (New_F)
2275                if Ekind (Etype (F)) = E_Incomplete_Type
2285             if Ekind (Formal_Spec) = E_Function
2432                if Ekind (Subp_Id) in E_Function | E_Operator then
2464                pragma Assert (Ekind (Subp_Id) in E_Function | E_Operator);
2496                if Ekind (Formal_Spec) = E_Procedure then
2532               and then Ekind (Ren_Id) in E_Function | E_Operator
2749                  Ekind (Subp_Id) = E_Operator
3309             if Ekind (Old_S) = E_Operator then
3716          elsif Ekind (Old_S) not in E_Function | E_Procedure then
3773                if Ekind (Old_S) /= E_Operator then
3804          elsif Ekind (Old_S) /= E_Operator then
3858                      or else Ekind (Old_S) = E_Operator
3862             if Ekind (Alias (New_S)) = E_Operator then
3977          if Ekind (Old_S) = E_Entry then
3993             if (Ekind (Old_S) = E_Procedure or else Ekind (Old_S) = E_Function)
4102                if Ekind (Etype (Old_F)) = E_Anonymous_Access_Type
4126                    or else Ekind (Old_S) = E_Operator)
4329       if Ekind (Pack) = E_Package
4340       if Ekind (Pack) /= E_Package and then Etype (Pack) /= Any_Type then
4341          if Ekind (Pack) = E_Generic_Package then
4831         or else Ekind (E) /= E_Discriminant
5160         and then Ekind (Entity (Pack_Name)) = E_Package
5417             pragma Assert (Ekind (Pack) = E_Package);
5431                   elsif Ekind (Act) = E_Package
5436                   elsif Ekind (Act) = E_Package
5462               and then Ekind (Inst) /= E_Package
5474                if Ekind (Act) = E_Package
5594                             and then Ekind (E2) = E_Function
5677                   elsif Ekind (Scope (Ent)) = E_Generic_Package
5686                      if Ekind (Scope (Ent)) /= E_Generic_Package then
5700                      if Ekind (Ent) = E_Discriminant
5945            and then Ekind (Entity (N)) = E_Constant
6103             elsif Ekind (E2) = E_Function
6248                  and then Ekind (E) = E_Package
6299            and then Ekind (E) = E_Access_Subprogram_Type
6338          if Ekind (E) = E_Void
6581       if Ekind (P_Name) = E_Package
6629                if Ekind (Id) = E_Abstract_State
6659             elsif Ekind (Id) in E_Incomplete_Type | E_Class_Wide_Type
6671             elsif Ekind (P_Name) = E_Package
6689               and then Ekind (Scope (Id)) = E_Package
6690               and then Ekind (Id) = E_Package
6726         and then Ekind (P_Name) in E_Procedure | E_Function
6807                     and then Ekind (Current_Scope) = E_Package
6857                         if Ekind (S) in E_Function | E_Package | E_Procedure
6988         and then Ekind (Id) = E_Access_Subprogram_Type
7002       if Ekind (P_Name) = E_Package and then From_Limited_With (P_Name) then
7005            or else Ekind (Id) = E_Package
7016         and then ((Ekind (Id) = E_Entry
7019                      (Ekind (Id) = E_Entry_Family
7099       if Ekind (Id) = E_Void then
7357          if Ekind (Op) /= E_Operator
7388                if Ekind (Scop) = E_Package
7700                  and then Ekind (Entity (P)) = E_Function
7713                elsif Ekind (Selector) = E_Component
7719                   if Ekind (Etype (P)) = E_Record_Subtype
7839                  and then Ekind (P_Name) /= E_Void
7868          elsif Ekind (P_Name) = E_Package then
7876             if Ekind (P_Name) in E_Procedure | E_Function
7927                if Ekind (P_Name) /= E_Function
7940                         exit when Ekind (P_Name) = E_Package;
8042             elsif Ekind (P_Name) = E_Void then
8045             elsif Ekind (P_Name) = E_Generic_Package then
8143                if Ekind (T) = E_Incomplete_Type then
8189                elsif Ekind (T) = E_Private_Type
8361                if Ekind (Base_Type (T_Name)) = E_Task_Type then
8379                elsif Ekind (Base_Type (T_Name)) = E_Protected_Type then
8452       if Ekind (P) = E_Package and then not In_Open_Scopes (P) then
8613       if Ekind (P) = E_Package and then not In_Open_Scopes (P) then
8746          elsif Ekind (Scope_Stack.Table (J).Entity) = E_Loop then
8804       if Ekind (Old_S) = E_Operator then
8841          if Ekind (Old_S) in E_Function | E_Enumeration_Literal then
8936          if Ekind (Pak) /= E_Package then
8997          if Ekind (Base) = E_Class_Wide_Type then
9058          if Ekind (Id) = E_Enumeration_Literal then
9067                       or else (Ekind (Id) in E_Function | E_Procedure
9248       if Ekind (S) = E_Void then
9266                if Ekind (S) = E_Loop then
10080            or else Ekind (Entity (Pack_Name)) /= E_Package
10246             elsif Ekind (Prev) = E_Operator
10465       if Ekind (T) = E_Incomplete_Type then