1 files changed, 4 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-prints.adb b/src/vhdl/vhdl-prints.adb
index 88ae34fe6..ddcc888aa 100644
--- a/src/vhdl/vhdl-prints.adb
+++ b/src/vhdl/vhdl-prints.adb
@@ -4379,6 +4379,10 @@ package body Vhdl.Prints is
            | Iir_Kind_Group_Template_Declaration =>
             Disp_Name_Of (Ctxt, Expr);
 
+         when Iir_Kind_Function_Body
+           | Iir_Kind_Procedure_Body =>
+            Disp_Subprogram_Body (Ctxt, Expr);
+
          when Iir_Kind_Signature =>
             Disp_Signature (Ctxt, Expr);