W103-015 Add test that range formats procedure wo end label

fix #1008

Author: joaopsazevedo

testsuite/ada_lsp/range_formatting/W103-015_GitHub-1008/hello.adb

@@ -0,0 +1,10 @@
+-- TOP OF FILE
+with Ada.Text_IO;
+with Messages;
+
+procedure Hello is
+begin
+   Ada.Text_IO.Put_Line ("Hello!");
+   Messages.You_Say_Hello;
+   Messages.I_Say_Goodbye;
+end Hello;

testsuite/ada_lsp/range_formatting/W103-015_GitHub-1008/hello.gpr

@@ -0,0 +1,22 @@
+project Hello is
+   for Object_Dir use "obj";
+   for Main use ("hello.adb");
+
+   package Compiler is
+      for Default_Switches ("Ada") use ("-g");
+   end Compiler;
+
+   package Pretty_Printer is
+      
+      for Default_Switches ("ada") use
+        (
+         "--source-line-breaks"
+        );
+
+   end Pretty_Printer;
+
+   -- https://docs.adacore.com/gnat_ugn-docs/html/gnat_ugn/gnat_ugn/gnat_utility_programs.html#the-gnat-pretty-printer-gnatpp
+   --      "--preserve-line-breaks"
+   --      "--source-line-breaks"
+
+end Hello;

testsuite/ada_lsp/range_formatting/W103-015_GitHub-1008/messages.adb

@@ -0,0 +1,15 @@
+with Ada.Text_Io;
+package body messages is
+
+   procedure You_Say_Hello
+   is
+   begin
+      Ada.Text_Io.Put_Line ("Hello");
+   end;
+   
+   procedure I_Say_Goodbye
+   is
+   begin
+      Ada.Text_Io.Put_Line ("Goodbye");
+   end;
+end Messages;

testsuite/ada_lsp/range_formatting/W103-015_GitHub-1008/messages.ads

@@ -0,0 +1,7 @@
+package Messages is
+
+   procedure You_Say_Hello;
+
+   procedure I_Say_Goodbye;
+
+end Messages;