Message ID | 20100622084940.GA3712@adacore.com |
---|---|
State | New |
Headers | show |
Index: sem_res.adb =================================================================== --- sem_res.adb (revision 161147) +++ sem_res.adb (working copy) @@ -8105,6 +8105,7 @@ package body Sem_Res is end if; elsif Is_Entity_Name (Name) + or else Nkind (Name) = N_Explicit_Dereference or else (Nkind (Name) = N_Function_Call and then not Is_Constrained (Etype (Name))) then