From 6c883b77fb62969bacd8d16abc43d30bcbda3b23 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 24 Jul 2019 20:41:18 +0200
Subject: vhdl annotations: fix annotation of type in interface list.

---
 src/vhdl/vhdl-annotations.adb | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src')

diff --git a/src/vhdl/vhdl-annotations.adb b/src/vhdl/vhdl-annotations.adb
index f45827edb..af6c3dc64 100644
--- a/src/vhdl/vhdl-annotations.adb
+++ b/src/vhdl/vhdl-annotations.adb
@@ -487,6 +487,7 @@ package body Vhdl.Annotations is
       while Decl /= Null_Iir loop
          if With_Types
            and then Get_Kind (Decl) in Iir_Kinds_Interface_Object_Declaration
+           and then Get_Subtype_Indication (Decl) /= Null_Iir
          then
             Annotate_Anonymous_Type_Definition (Block_Info, Get_Type (Decl));
          end if;
-- 
cgit v1.2.3