From 24f55f065dd3eff8ace07a9932308f024f09bc3f Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 10 Jul 2019 18:56:45 +0200
Subject: vhdl: improve an error message.

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

(limited to 'src/vhdl')

diff --git a/src/vhdl/vhdl-sem_assocs.adb b/src/vhdl/vhdl-sem_assocs.adb
index 09ed67a85..230c8065a 100644
--- a/src/vhdl/vhdl-sem_assocs.adb
+++ b/src/vhdl/vhdl-sem_assocs.adb
@@ -2350,7 +2350,7 @@ package body Vhdl.Sem_Assocs is
                then
                   if Finish then
                      Error_Msg_Sem
-                       (+Assoc, "%n is not an interface name", +Inter);
+                       (+Formal, "%n is not an interface name", +Inter);
                   end if;
                   Match := Not_Compatible;
                   exit;
-- 
cgit v1.2.3