From d56c58668b10ca7a6684cb518b4978207c7b88b2 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 2 Jan 2020 10:03:06 +0100
Subject: synth: handle scalar inout association for subprograms. Fix #1064

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

diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb
index 4def552e6..4717cd488 100644
--- a/src/synth/synth-stmts.adb
+++ b/src/synth/synth-stmts.adb
@@ -1432,6 +1432,8 @@ package body Synth.Stmts is
                            raise Internal_Error;
                         end if;
                         Val := Info.Obj;
+                     elsif Info.Kind = Target_Simple then
+                        Val := Info.Obj;
                      else
                         Val := Synth_Read_Memory
                           (Caller_Inst, Info.Obj, Info.Off, No_Net,
-- 
cgit v1.2.3