1 files changed, 3 insertions, 0 deletions
diff --git a/src/vhdl/sem_expr.adb b/src/vhdl/sem_expr.adb
index 1aeaf0e2d..e26739bde 100644
--- a/src/vhdl/sem_expr.adb
+++ b/src/vhdl/sem_expr.adb
@@ -1031,6 +1031,9 @@ package body Sem_Expr is
                      Error_Kind ("sem_call_purity_check(2)", Subprg);
                end case;
             end;
+         when Iir_Kind_Interface_Procedure_Declaration =>
+            --  We have no idea about this procedure.
+            null;
          when others =>
             Error_Kind ("sem_call_purity_check", Callee);
       end case;