1 files changed, 14 insertions, 0 deletions
diff --git a/src/synth/synth-context.adb b/src/synth/synth-context.adb
index 0024c3bb9..b87f9b06b 100644
--- a/src/synth/synth-context.adb
+++ b/src/synth/synth-context.adb
@@ -24,7 +24,9 @@ with Types; use Types;
 with Tables;
 with Types_Utils; use Types_Utils;
 with Vhdl.Errors; use Vhdl.Errors;
+
 with Netlists.Builders; use Netlists.Builders;
+with Netlists.Concats;
 
 with Synth.Errors; use Synth.Errors;
 with Synth.Expr; use Synth.Expr;
@@ -410,6 +412,18 @@ package body Synth.Context is
                   end;
                end if;
             end;
+         when Value_Array =>
+            declare
+               use Netlists.Concats;
+               C : Concat_Type;
+               Res : Net;
+            begin
+               for I in Val.Arr.V'Range loop
+                  Append (C, Get_Net (Val.Arr.V (I)));
+               end loop;
+               Build (Build_Context, C, Res);
+               return Res;
+            end;
          when others =>
             raise Internal_Error;
       end case;