From d8dbfb31f087e6290425d6e3fa88e4cffaae32a2 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 7 Jan 2019 19:06:06 +0100
Subject: sem_expr/allocator: avoid a crash for access subtype.

Fix #734
---
 src/vhdl/sem_expr.adb | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/vhdl/sem_expr.adb b/src/vhdl/sem_expr.adb
index 91bec3d53..5cd7b9c7f 100644
--- a/src/vhdl/sem_expr.adb
+++ b/src/vhdl/sem_expr.adb
@@ -4035,6 +4035,7 @@ package body Sem_Expr is
                --  A subtype indication that is part of an allocator must
                --  not include a resolution function.
                if Is_Anonymous_Type_Definition (Arg)
+                 and then Get_Kind (Arg) /= Iir_Kind_Access_Subtype_Definition
                  and then Get_Resolution_Indication (Arg) /= Null_Iir
                then
                   Error_Msg_Sem (+Expr, "subtype indication must not include"
-- 
cgit v1.2.3