From 1b8811469be10b058724a83f9dad8702de47d582 Mon Sep 17 00:00:00 2001
From: Brian Drummond <brian@shapes.demon.co.uk>
Date: Mon, 2 Dec 2013 17:18:57 +0000
Subject: Minor fix for https://gna.org/support/?group=ghdl issues 3060 and
 2686

---
 parse.adb | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/parse.adb b/parse.adb
index 81a3d5183..ec25fa2f5 100644
--- a/parse.adb
+++ b/parse.adb
@@ -3984,8 +3984,12 @@ package body Parse is
          when Iir_Kind_Simple_Name
            | Iir_Kind_Selected_Name =>
             Set_Implementation (Call, Name);
+         when Iir_Kind_Attribute_Name =>        -- Support issue 3060
+            Error_Msg_Parse ("Attribute cannot be applied to procedure call");
          when others =>
-            raise Internal_Error;
+            -- Support issue 2686 : no testcase, at least improve the error message
+            Error_Kind("parenthesis_name_to_procedure_call", Name);
+            -- raise Internal_Error;
       end case;
       return Res;
    end Parenthesis_Name_To_Procedure_Call;
-- 
cgit v1.2.3