From 2134f8df0ba65611c60b73845542ee82478a8d70 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 5 Aug 2018 09:15:16 +0200
Subject: sem_association_subprogram: handle instantiated subprograms in
 marking used.

Fix #620
---
 src/vhdl/sem_assocs.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/vhdl/sem_assocs.adb b/src/vhdl/sem_assocs.adb
index bafea5496..bb73ff51f 100644
--- a/src/vhdl/sem_assocs.adb
+++ b/src/vhdl/sem_assocs.adb
@@ -1763,7 +1763,7 @@ package body Sem_Assocs is
 
       Set_Named_Entity (Actual, Res);
       Xrefs.Xref_Name (Actual);
-      Set_Use_Flag (Res, True);
+      Mark_Subprogram_Used (Res);
    end Sem_Association_Subprogram;
 
    --  Associate ASSOC with interface INTERFACE
-- 
cgit v1.2.3