From 1451879337efac06519bbcb080729172d03d4a58 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 11 Dec 2017 18:40:28 +0100
Subject: simul: handle subtype attribute

---
 src/vhdl/simulate/simul-execution.adb | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src')

diff --git a/src/vhdl/simulate/simul-execution.adb b/src/vhdl/simulate/simul-execution.adb
index 3aa08abcf..b953d6d51 100644
--- a/src/vhdl/simulate/simul-execution.adb
+++ b/src/vhdl/simulate/simul-execution.adb
@@ -2321,6 +2321,9 @@ package body Simul.Execution is
          when Iir_Kinds_Denoting_Name =>
             return Execute_Bounds (Block, Get_Named_Entity (Prefix));
 
+         when Iir_Kind_Subtype_Attribute =>
+            return Execute_Bounds (Block, Get_Type (Prefix));
+
          when others =>
             -- Error_Kind ("execute_bounds", Get_Kind (Prefix));
             declare
-- 
cgit v1.2.3