diff options
| -rw-r--r-- | src/synth/synth-decls.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/synth/synth-decls.adb b/src/synth/synth-decls.adb index 5644d220f..26d6f164b 100644 --- a/src/synth/synth-decls.adb +++ b/src/synth/synth-decls.adb @@ -640,6 +640,8 @@ package body Synth.Decls is if Is_Valid (Def) then Obj_Type := Get_Value_Type (Syn_Inst, Get_Type (Decl)); Init := Synth_Expression_With_Type (Syn_Inst, Def, Obj_Type); + Init := Synth_Subtype_Conversion + (Init, Obj_Type, False, Decl); else Init := null; end if; |