1 files changed, 4 insertions, 0 deletions
diff --git a/src/vhdl/errorout.adb b/src/vhdl/errorout.adb
index 442aeb047..7982a9d1b 100644
--- a/src/vhdl/errorout.adb
+++ b/src/vhdl/errorout.adb
@@ -894,6 +894,10 @@ package body Errorout is
       begin
          if Decl = Null_Iir then
             Decl := Get_Type_Declarator (Get_Base_Type (Def));
+            if Decl = Null_Iir then
+               Append (Res, "*unknown*");
+               return;
+            end if;
          end if;
          Image (Get_Identifier (Decl));
          Append (Res, Nam_Buffer (1 .. Nam_Length));