From cd4bb8b71f2eb0b2f6a99dfe44d3daa12c408d89 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 25 Mar 2019 20:10:11 +0100
Subject: trans-chap8: adjust condition.

Fix #787
---
 src/vhdl/translate/trans-chap8.adb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/vhdl/translate/trans-chap8.adb b/src/vhdl/translate/trans-chap8.adb
index e8f6b1da3..bf0e83fc8 100644
--- a/src/vhdl/translate/trans-chap8.adb
+++ b/src/vhdl/translate/trans-chap8.adb
@@ -4433,7 +4433,9 @@ package body Trans.Chap8 is
             Open_Temp;
             Targ2 := Targ;
             Translate_Waveform_Expression (Value, Target_Type, Targ2, Val);
-            if Is_Composite (Targ_Tinfo) then
+            if Is_Composite (Targ_Tinfo)
+              and then Get_Constraint_State (Target_Type) /= Fully_Constrained
+            then
                Stabilize (Targ2);
                Stabilize (Val);
                Chap3.Check_Array_Match
-- 
cgit v1.2.3