From 467f6d66017b73496cef8b5212385c3b407a722f Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 4 Jun 2022 16:36:55 +0200
Subject: synth-vhdl_decls: fix subtype conversion for variable default value.

Fix #2072
---
 src/synth/synth-vhdl_decls.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/synth/synth-vhdl_decls.adb b/src/synth/synth-vhdl_decls.adb
index 2ae34bb36..96339dfcd 100644
--- a/src/synth/synth-vhdl_decls.adb
+++ b/src/synth/synth-vhdl_decls.adb
@@ -400,7 +400,7 @@ package body Synth.Vhdl_Decls is
          if Is_Valid (Def) then
             Init := Synth_Expression_With_Type (Syn_Inst, Def, Obj_Typ);
             Init := Synth_Subtype_Conversion
-              (Ctxt, Init, Obj_Typ, False, Decl);
+              (Ctxt, Init, Obj_Typ, True, Decl);
             if not Is_Subprg
               and then not Is_Static (Init.Val)
             then
-- 
cgit v1.2.3