1 files changed, 3 insertions, 1 deletions
diff --git a/src/vhdl/sem_assocs.adb b/src/vhdl/sem_assocs.adb
index 8c56e971e..441329234 100644
--- a/src/vhdl/sem_assocs.adb
+++ b/src/vhdl/sem_assocs.adb
@@ -1388,7 +1388,7 @@ package body Sem_Assocs is
          return;
       end if;
 
-      Match := Fully_Compatible;
+      Match := Not_Compatible;
       Sem_Association_Package_Type_Finish (Assoc, Inter);
 
       --  Analyze actual.
@@ -1436,6 +1436,8 @@ package body Sem_Assocs is
          raise Internal_Error;
       end if;
 
+      Match := Fully_Compatible;
+
       return;
    end Sem_Association_Package;