Merge branch 'topic/gil-1340-bad-outline-on-case-when-when' into 'master'

Fix invalid GPR case outline

Closes #1340

See merge request eng/ide/ada_language_server!1555

Author: Philippe Gil

source/gpr/lsp-gpr_files.adb

@@ -505,7 +505,10 @@ package body LSP.GPR_Files is
 
          New_Symbol     : Symbol :=
                             (New_Id,
-                             Current_Symbol.Id,
+                             (if Kind = K_When
+                              and then Current_Symbol.Kind = K_When
+                              then Current_Symbol.Parent_Id
+                              else Current_Symbol.Id),
                              Token.Ref,
                              Kind,
                              To_Valid_Name (Name),

testsuite/gpr_lsp/get_symbols_hierarchy/case_support.gpr

@@ -0,0 +1,42 @@
+project Case_Support is
+  A := "";
+  case A is
+    when "a" =>
+      B := "";
+    when others =>
+      C := "";
+      case A is
+        when "a" =>
+          D := "";
+        when others =>
+          E := "";
+      end case;
+      F := "";
+  end case;
+  G := "";
+  case G is
+    when "" =>
+      H := "";
+  --  testing auto case/when closing on package declaration
+  package Compiler is
+    I := "";
+    case H is
+      when "" =>
+        J := "";
+        case J is
+  --  testing auto case closing on package declaration
+  package Linker is
+    K := "";
+  --  testing package auto closing on package declaration
+  package Builder is
+    L := "";
+  --  testing package auto closing on type declaration
+  type T1 is ("a");
+  M := "";
+  case M is
+    when "" =>
+      N := "";
+  -- testing case auto closing on type declaration
+  type T2 is ("");
+  O := "";
+end Case_Support;