1 files changed, 1 insertions, 3 deletions
diff --git a/src/vhdl/iirs_utils.adb b/src/vhdl/iirs_utils.adb
index 6441e789a..09ebadf0f 100644
--- a/src/vhdl/iirs_utils.adb
+++ b/src/vhdl/iirs_utils.adb
@@ -892,9 +892,7 @@ package body Iirs_Utils is
    begin
       --  FIXME: don't directly use Subprogram_Body as it is not yet correctly
       --  set during instantiation.
-      return Bod /= Null_Iir
-        and then Kind_In (Bod, Iir_Kind_Function_Body,
-                          Iir_Kind_Procedure_Body)
+      return Get_Has_Body (Spec)
         and then Get_Subprogram_Specification (Bod) /= Spec;
    end Is_Second_Subprogram_Specification;