gcc/ada/sem_disp.adb

308             if Ekind (Ctrl_Type) = E_Incomplete_Type
330                if Ekind (Etype (Formal)) = E_Anonymous_Access_Type then
338                if Ekind (Etype (Formal)) = E_Anonymous_Access_Type then
363                   if Ekind (Etype (Formal)) = E_Anonymous_Access_Type
386       if Ekind (Subp) in E_Function | E_Generic_Function then
397                  or else (Ekind (Etype (Subp)) = E_Anonymous_Access_Type
440       elsif Ekind (T) = E_Incomplete_Type
447       elsif Ekind (T) = E_Anonymous_Access_Type
450          if Ekind (Designated_Type (T)) /= E_Incomplete_Type then
622             if Ekind (Subp) = E_Function then
659                  and then Ekind (Entity (A)) = E_In_Parameter
753             elsif Ekind (Current_Scope) = E_Function
768                    (Ekind (Typ) = E_Anonymous_Access_Type
1146            and then Ekind (Entity (Par_N)) = E_Access_Subprogram_Type;
1169                if Ekind (E) = E_Record_Type_With_Private
1201       if Ekind (Subp) not in E_Function | E_Procedure then
1283                if Ekind (Etype (E)) = E_Anonymous_Access_Type then
1308             if Ekind (Subp) = E_Function then
1374               ((Ekind (Subp) = E_Function
1379                (Ekind (Subp) = E_Procedure
1543                            if Ekind (Old_Subp) = E_Function
1774                         if Ekind (Subp) = E_Procedure
1970             if Ekind (Etype (F1)) = E_Anonymous_Access_Type then
1971                if Ekind (Etype (F2)) /= E_Anonymous_Access_Type then
1979             elsif Ekind (Etype (F2)) = E_Anonymous_Access_Type then
1994          if Ekind (Parent_Subp) = E_Function then
1995             if Ekind (Subp) /= E_Function then
1998             elsif Ekind (Etype (Parent_Subp)) = E_Anonymous_Access_Type then
1999                if Ekind (Etype (Subp)) /= E_Anonymous_Access_Type then
2008             elsif Ekind (Etype (Subp)) = E_Anonymous_Access_Type then
2017          elsif Ekind (Subp) = E_Function then
2260       if Ekind (Subp) in E_Function | E_Procedure
2273          if Ekind (Alias (Subp)) = E_Function
2714         and then Ekind (E) = E_Procedure
2737       if Comes_From_Source (Prim) and then Ekind (Scop) = E_Package then