synth: create const_array for default values.

1 files changed, 1 insertions, 1 deletions

diff --git a/src/synth/synth-values.adb b/src/synth/synth-values.adb
index 21830955f..e07af0d8e 100644
--- a/src/synth/synth-values.adb
+++ b/src/synth/synth-values.adb
@@ -796,7 +796,7 @@ package body Synth.Values is
                for I in Arr.V'Range loop
                   Arr.V (I) := Create_Value_Default (El_Typ);
                end loop;
-               return Create_Value_Array (Typ, Arr);
+               return Create_Value_Const_Array (Typ, Arr);
             end;
          when Type_Unbounded_Vector =>
             raise Internal_Error;