1 files changed, 0 insertions, 9 deletions
diff --git a/src/vhdl/vhdl-sem_assocs.adb b/src/vhdl/vhdl-sem_assocs.adb
index a28ebe12e..f93eaaecf 100644
--- a/src/vhdl/vhdl-sem_assocs.adb
+++ b/src/vhdl/vhdl-sem_assocs.adb
@@ -2386,15 +2386,6 @@ package body Vhdl.Sem_Assocs is
       Has_Individual := False;
       Last_Assoc := Null_Iir;
 
-      --  Clear associated type of interface type.
-      Inter := Interface_Chain;
-      while Inter /= Null_Iir loop
-         if Get_Kind (Inter) = Iir_Kind_Interface_Type_Declaration then
-            Set_Associated_Type (Get_Type (Inter), Null_Iir);
-         end if;
-         Inter := Get_Chain (Inter);
-      end loop;
-
       --  Loop on every assoc element, try to match it.
       Inter := Interface_Chain;
       Last_Individual := Null_Iir;