gcc/ada/sem_ch9.adb

258                                 Ekind (Corresponding_Spec (Sub_Body)) =
473                            if Ekind (Id) in Assignable_Kind
573                         if Ekind (Id) = E_Component then
576                         elsif Ekind (Id) in E_Constant | E_Variable
720                       and then Ekind (Etype (T_Name)) = E_Class_Wide_Type
791          exit when Ekind (Etype (Task_Nam)) = E_Task_Type;
792          Kind := Ekind (Task_Nam);
802       if Ekind (Etype (Task_Nam)) /= E_Task_Type then
840            and then (Ekind (E) = Ekind (Accept_Id))
869                if Ekind (E1) = E_Procedure
922       if Ekind (Entry_Nam) = E_Entry_Family then
1259            and then Ekind (E) = Ekind (Id)
1267             if Ekind (Id) = E_Entry_Family then
1429             if Ekind (E1) = E_Out_Parameter then
1461       if Ekind (Id) = E_Entry_Family
1658       if Ekind (Current_Scope) = E_Protected_Type then
1682       if Ekind (Def_Id) = E_Entry then
1815       if Present (Spec_Id) and then Ekind (Spec_Id) = E_Protected_Type then
1819         and then Ekind (Etype (Spec_Id)) = E_Protected_Type
1835       if Ekind (Spec_Id) /= E_Protected_Type then
1971          if Ekind (Item_Id) in E_Function | E_Procedure then
2020       if Ekind (T) = E_Incomplete_Type and then Present (Full_View (T)) then
2144          if Ekind (E) = E_Void then
2328          if Ekind (Enclosing) not in E_Block | E_Loop then
2401               and then Ekind (It.Nam) = E_Entry
2488           and then Ekind (Entry_Id) = E_Procedure
2500       elsif Ekind (Entry_Id) = E_Entry_Family
2562                   if Ekind (Ent) in E_Out_Parameter | E_In_Out_Parameter then
2664                  and then Ekind (Entity (EDN)) = E_Entry
2936       if Present (Spec_Id) and then Ekind (Spec_Id) = E_Task_Type then
2940         and then Ekind (Etype (Spec_Id)) = E_Task_Type
2966       if Ekind (Spec_Id) = E_Variable then
3140       if Ekind (T) = E_Incomplete_Type then
3711       if Present (Spec_Id) and then Ekind (Spec_Id) = E_Incomplete_Type then