Testcase of incorrecly indented comment

Author: godunko

testsuite/extractor/subprograms_gnat/subprograms_gnat.ads

@@ -278,6 +278,21 @@ package Subprograms_GNAT is
    --  Externals the project has no need to be analyzed again, in this case
    --  the Default_Signature is returned.
 
+   ----------------
+   -- GNATdoc#90 --
+   ----------------
+
+   procedure Report_Preference_File_Error
+     (Handle    : access Kernel_Handle_Record;
+      Filename  : Virtual_File;
+      Is_Saving : Boolean := True);
+     --  Print out an error message in messages window, or display a dialog
+     --  if GNAT Studio is exiting. Is_Saving controls whether we try to save
+     --  or load the file.
+   --
+   --  Subprogram's description use incorrect alignment for description of the
+   --  subprogram.
+
 private
 
    --  This is description of the package at the beginning of the private

testsuite/extractor/subprograms_gnat/test.out

@@ -1,13 +1,13 @@
-<CompilationUnit subprograms_gnat.ads:5:1-286:22>
+<CompilationUnit subprograms_gnat.ads:5:1-301:22>
 <AdaNodeList subprograms_gnat.ads:5:1-5:17>
 <WithClause subprograms_gnat.ads:5:1-5:17>
 <LimitedAbsent subprograms_gnat.ads:5:1-5:1>
 <PrivateAbsent subprograms_gnat.ads:5:1-5:1>
 <NameList subprograms_gnat.ads:5:6-5:16>
 <Id "Interfaces" subprograms_gnat.ads:5:6-5:16>
-<LibraryItem subprograms_gnat.ads:7:1-286:22>
+<LibraryItem subprograms_gnat.ads:7:1-301:22>
 <PrivateAbsent subprograms_gnat.ads:5:17-5:17>
-<PackageDecl ["Subprograms_GNAT"] subprograms_gnat.ads:7:1-286:22>
+<PackageDecl ["Subprograms_GNAT"] subprograms_gnat.ads:7:1-301:22>
 **************************
 \/ RAW <<HEADER>> ()
 \/ RAW <<LEADING>> ()
@@ -21,8 +21,8 @@ This is description of the package at the top of the specification.
 **************************
 <DefiningName "Subprograms_GNAT" subprograms_gnat.ads:7:9-7:25>
 <Id "Subprograms_GNAT" subprograms_gnat.ads:7:9-7:25>
-<PublicPart subprograms_gnat.ads:7:28-281:1>
-<AdaNodeList subprograms_gnat.ads:9:4-274:53>
+<PublicPart subprograms_gnat.ads:7:28-296:1>
+<AdaNodeList subprograms_gnat.ads:9:4-288:36>
 <PragmaNode subprograms_gnat.ads:9:4-9:24>
 <Id "Preelaborate" subprograms_gnat.ads:9:11-9:23>
 <BaseAssocList subprograms_gnat.ads:9:23-9:23>
@@ -592,11 +592,39 @@ if so the project is to be analyzed again. Note that if there is no
 Externals the project has no need to be analyzed again, in this case
 the Default_Signature is returned.
 **************************
-<PrivatePart subprograms_gnat.ads:281:8-286:1>
-<AdaNodeList subprograms_gnat.ads:281:8-281:8>
-<EndName subprograms_gnat.ads:286:5-286:21>
-<Id "Subprograms_GNAT" subprograms_gnat.ads:286:5-286:21>
-<PragmaNodeList subprograms_gnat.ads:286:22-286:22>
+<SubpDecl ["Report_Preference_File_Error"] subprograms_gnat.ads:285:4-288:36>
+**************************
+\/ RAW <<CALLABLE>> ()
+
+  Subprogram's description use incorrect alignment for description of the
+  subprogram.
+\/ PARAMETER handle (Handle)
+Print out an error message in messages window, or display a dialog
+if GNAT Studio is exiting. Is_Saving controls whether we try to save
+or load the file.
+\/ PARAMETER filename (Filename)
+Print out an error message in messages window, or display a dialog
+if GNAT Studio is exiting. Is_Saving controls whether we try to save
+or load the file.
+\/ PARAMETER is_saving (Is_Saving)
+Print out an error message in messages window, or display a dialog
+if GNAT Studio is exiting. Is_Saving controls whether we try to save
+or load the file.
+\/ SNIPPET ada ()
+procedure Report_Preference_File_Error
+  (Handle    : access Kernel_Handle_Record;
+   Filename  : Virtual_File;
+   Is_Saving : Boolean := True)
+\/ DESCRIPTION  ()
+
+  Subprogram's description use incorrect alignment for description of the
+  subprogram.
+**************************
+<PrivatePart subprograms_gnat.ads:296:8-301:1>
+<AdaNodeList subprograms_gnat.ads:296:8-296:8>
+<EndName subprograms_gnat.ads:301:5-301:21>
+<Id "Subprograms_GNAT" subprograms_gnat.ads:301:5-301:21>
+<PragmaNodeList subprograms_gnat.ads:301:22-301:22>
 <CompilationUnit monitor_loop.ads:7:1-7:45>
 <AdaNodeList monitor_loop.ads:7:1-7:1>
 <LibraryItem monitor_loop.ads:7:1-7:45>