From f11a4cf6ccb7d26fe8fba0f2d1e9d411e3f37a43 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 26 Jan 2020 17:04:33 +0100
Subject: synth: convert subtype on return.  Fix #1116

---
 src/synth/synth-stmts.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb
index 7b8a9434f..fbca6e852 100644
--- a/src/synth/synth-stmts.adb
+++ b/src/synth/synth-stmts.adb
@@ -2253,7 +2253,7 @@ package body Synth.Stmts is
       if Expr /= Null_Node then
          --  Return in function.
          Val := Synth_Expression_With_Type (C.Inst, Expr, C.Ret_Typ);
-         Val := Synth_Subtype_Conversion (Val, C.Ret_Typ, False, Stmt);
+         Val := Synth_Subtype_Conversion (Val, C.Ret_Typ, True, Stmt);
 
          if C.Nbr_Ret = 0 then
             C.Ret_Value := Val;
-- 
cgit v1.2.3