Do not consider overriden implicit declaration is reference by selection.

Fix ticket 69.

1 files changed, 4 insertions, 2 deletions

diff --git a/src/vhdl/sem_names.adb b/src/vhdl/sem_names.adb
index 6d35467..571bc7c 100644
--- a/src/vhdl/sem_names.adb
+++ b/src/vhdl/sem_names.adb
@@ -331,7 +331,9 @@ package body Sem_Names is
                   end if;
                end if;
             when others =>
-               if Get_Identifier (Decl) = Id then
+               --  Consider only visible declarations (case of an implicit
+               --  declaration that is overriden by explicit one).
+               if Get_Identifier (Decl) = Id and Get_Visible_Flag (Decl) then
                   Add_Result (Res, Decl);
                end if;
          end case;
@@ -790,7 +792,7 @@ package body Sem_Names is
       Set_Implementation (Call, Get_Named_Entity (Prefix));
 
       --  LRM08 8.1 Names
-      --  The name is a simple name or seleted name that does NOT denote a
+      --  The name is a simple name or selected name that does NOT denote a
       --  function call [...]
       --
       --  GHDL: so function calls are never static names.