-- False (it could be a function selector in a prefix form call
-- occurring in an iterator specification).
- if Ekind (Entity (Selector_Name (Object))) not in
- E_Component | E_Discriminant
+ if (Present (Entity (Selector_Name (Object)))
+ and then Ekind (Entity (Selector_Name (Object))) not in
+ E_Component | E_Discriminant)
+ or else
+ (Inside_A_Generic
+ and then Nkind (Parent (Selector_Name (Object)))
+ = N_Function_Call)
then
return False;
end if;