1 files changed, 2 insertions, 1 deletions
diff --git a/src/vhdl/parse.adb b/src/vhdl/parse.adb
index 0b696a8d8..f2b0682e1 100644
--- a/src/vhdl/parse.adb
+++ b/src/vhdl/parse.adb
@@ -1061,7 +1061,8 @@ package body Parse is
             end if;
             Res := Parse_External_Name;
          when others =>
-            Error_Msg_Parse ("identifier expected here");
+            Error_Msg_Parse ("name expected here, found %t",
+                             +Current_Token);
             raise Parse_Error;
       end case;