Test case.

Author: godunko

testsuite/extractor/subprograms_gnat/gnatdoc_134.adb

@@ -0,0 +1,25 @@
+with Ada.Text_IO; use Ada.Text_IO;
+--  with Ada.Text_IO;
+--  with Test
+
+procedure GNATdoc_134 is
+   Start_Idx : Integer := 0;
+
+   type My_Rec is record
+      A, B : Integer := 10;
+   end record;
+
+   type My_Second_Rec is record
+      C, D : My_Rec;
+   end record;
+
+   procedure Zboob (arguments : Integer) is begin
+      Ada.Text_IO.Put_Line (arguments'Img);
+   end Zboob;
+
+   obj_1 : My_Rec;
+   Obj_2 : My_Second_Rec;
+begin
+   Start_Idx := Start_Idx + 1;
+   Zboob (Start_Idx);
+end GNATdoc_134;

testsuite/extractor/subprograms_gnat/test.out

@@ -612,3 +612,29 @@ In Glib enabled application the engine is integrated it the Glib event
 loop and this procedure shouldn't be used.
 **************************
 <PragmaNodeList monitor_loop.ads:7:45-7:45>
+<CompilationUnit gnatdoc_134.adb:1:1-25:17>
+<AdaNodeList gnatdoc_134.adb:1:1-1:35>
+<WithClause gnatdoc_134.adb:1:1-1:18>
+<LimitedAbsent gnatdoc_134.adb:1:1-1:1>
+<PrivateAbsent gnatdoc_134.adb:1:1-1:1>
+<NameList gnatdoc_134.adb:1:6-1:17>
+<DottedName gnatdoc_134.adb:1:6-1:17>
+<Id "Ada" gnatdoc_134.adb:1:6-1:9>
+<Id "Text_IO" gnatdoc_134.adb:1:10-1:17>
+<UsePackageClause gnatdoc_134.adb:1:19-1:35>
+<NameList gnatdoc_134.adb:1:23-1:34>
+<DottedName gnatdoc_134.adb:1:23-1:34>
+<Id "Ada" gnatdoc_134.adb:1:23-1:26>
+<Id "Text_IO" gnatdoc_134.adb:1:27-1:34>
+<LibraryItem gnatdoc_134.adb:5:1-25:17>
+<PrivateAbsent gnatdoc_134.adb:1:35-1:35>
+<SubpBody ["GNATdoc_134"] gnatdoc_134.adb:5:1-25:17>
+**************************
+\/ RAW <<CALLABLE>> ()
+\/ SNIPPET ada ()
+procedure GNATdoc_134
+\/ RAW <<HEADER>> ()
+\/ RAW <<LEADING>> ()
+\/ DESCRIPTION  ()
+**************************
+<PragmaNodeList gnatdoc_134.adb:25:17-25:17>

testsuite/extractor/subprograms_gnat/test.yaml

@@ -2,3 +2,4 @@ description: Check documentation extraction for subprogram declarations.
 extractor_sources:
   - subprograms_gnat.ads
   - monitor_loop.ads
+  - gnatdoc_134.adb