1 files changed, 5 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-parse.adb b/src/vhdl/vhdl-parse.adb
index 10f4da4c1..532e6c8f8 100644
--- a/src/vhdl/vhdl-parse.adb
+++ b/src/vhdl/vhdl-parse.adb
@@ -8457,6 +8457,11 @@ package body Vhdl.Parse is
       Set_Location (Subprg);
       Set_Implicit_Definition (Subprg, Iir_Predefined_None);
 
+      --  Comments for the subprogram.
+      if Flag_Gather_Comments then
+         Gather_Comments (Subprg);
+      end if;
+
       case Current_Token is
          when Tok_Procedure =>
             null;