diff options
| -rw-r--r-- | src/vhdl/sem_assocs.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/sem_assocs.adb b/src/vhdl/sem_assocs.adb index 6bbc67215..bafea5496 100644 --- a/src/vhdl/sem_assocs.adb +++ b/src/vhdl/sem_assocs.adb @@ -1854,7 +1854,7 @@ package body Sem_Assocs is end if; if Match = Not_Compatible then - if Finish then + if Finish and then not Is_Error (Actual) then Error_Msg_Sem (+Assoc, "can't associate %n with %n", (+Actual, +Inter), Cont => True); Error_Msg_Sem |