From d18f30ccdbd6ace83bff7d4de5af0c72b0082bb7 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 16 Jun 2017 03:39:31 +0200
Subject: sem_decls: avoid crash on unknown subtype.

---
 src/vhdl/sem_decls.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/vhdl/sem_decls.adb b/src/vhdl/sem_decls.adb
index 122bcf17e..e3d0480c4 100644
--- a/src/vhdl/sem_decls.adb
+++ b/src/vhdl/sem_decls.adb
@@ -1691,7 +1691,7 @@ package body Sem_Decls is
       Ind := Sem_Subtype_Indication (Ind);
       Set_Subtype_Indication (Decl, Ind);
       Def := Get_Type_Of_Subtype_Indication (Ind);
-      if Def = Null_Iir then
+      if Def = Null_Iir or else Is_Error (Def) then
          return;
       end if;
 
-- 
cgit v1.2.3