1 files changed, 3 insertions, 0 deletions
diff --git a/src/vhdl/iirs_utils.adb b/src/vhdl/iirs_utils.adb
index a477b2c32..2b4c87422 100644
--- a/src/vhdl/iirs_utils.adb
+++ b/src/vhdl/iirs_utils.adb
@@ -436,6 +436,9 @@ package body Iirs_Utils is
             --  GHDL: in particular, names can denote objects.
             return Name_To_Object (Get_Named_Entity (Name));
 
+         when Iir_Kinds_External_Name =>
+            return Name;
+
          when others =>
             return Null_Iir;
       end case;