From a1567ab51d27b9a660d795282be41aadee48b4e2 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 24 Feb 2017 19:43:27 +0100
Subject: Eval_Array_Attribute: Handle 'Subtype.

Fix #273
---
 src/vhdl/evaluation.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/vhdl/evaluation.adb b/src/vhdl/evaluation.adb
index 1f865a84d..85c99209f 100644
--- a/src/vhdl/evaluation.adb
+++ b/src/vhdl/evaluation.adb
@@ -1713,7 +1713,8 @@ package body Evaluation is
            | Iir_Kind_Implicit_Dereference
            | Iir_Kind_Function_Call
            | Iir_Kind_Attribute_Value
-           | Iir_Kind_Attribute_Name =>
+           | Iir_Kind_Attribute_Name
+           | Iir_Kind_Subtype_Attribute =>
             Prefix_Type := Get_Type (Prefix);
          when Iir_Kinds_Subtype_Definition =>
             Prefix_Type := Prefix;
-- 
cgit v1.2.3