From 59936e1daa2a8d45525e8b09ba41f0cb8129dd8e Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 11 Jan 2023 21:20:34 +0100
Subject: vhdl-sem_assocs(rewrite_non_object_association): set flag

For correct pretty-print
---
 src/vhdl/vhdl-sem_assocs.adb | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/vhdl')

diff --git a/src/vhdl/vhdl-sem_assocs.adb b/src/vhdl/vhdl-sem_assocs.adb
index f93eaaecf..b36f05640 100644
--- a/src/vhdl/vhdl-sem_assocs.adb
+++ b/src/vhdl/vhdl-sem_assocs.adb
@@ -76,6 +76,7 @@ package body Vhdl.Sem_Assocs is
                   Free_Iir (Old);
                   Set_Index_Constraint_List
                     (N_Actual, List_To_Flist (Indexes));
+                  Set_Has_Array_Constraint_Flag (N_Actual, True);
                   Actual := N_Actual;
                end;
             end if;
-- 
cgit v1.2.3