Testcase generic procedure and instantiation.

Author: godunko

testsuite/als_helper/generic_procedure.adb

@@ -0,0 +1,8 @@
+--  Copyright header
+
+--  Description of the generic procedure body
+
+procedure Generic_Procedure is
+begin
+   null;
+end Generic_Procedure;

testsuite/als_helper/generic_procedure.ads

@@ -0,0 +1,6 @@
+--  Copyright header
+
+--  Description of the generic procedure specification
+
+generic
+procedure Generic_Procedure;

testsuite/als_helper/generic_procedure_instantiation.ads

@@ -0,0 +1,7 @@
+--  Copyright header
+
+--  Description of the generic procedure instantiation
+
+with Generic_Procedure;
+
+procedure Generic_Procedure_Instantiation is new Generic_Procedure;

testsuite/als_helper/locations.json

@@ -152,8 +152,24 @@
     {"file": "generics_package.adb", "line": 16, "column": 25},
     //  reference: `Generic_Function_Instantiation`
 
+    //  LAL 20251007: `Most_Visible_Part` returns body always
     // {"file": "generic_procedure.ads", "line": 6, "column": 11},
     // //  declaration: `Generic_Procedure`
+    {"file": "generic_procedure.adb", "line": 5, "column": 11},
+    //  declaration: `Generic_Procedure`
+    {"file": "generic_procedure.adb", "line": 8, "column": 5},
+    //  reference: `Generic_Procedure`
+    // {"file": "generic_procedure_instantiation.ads", "line": 5, "column": 6},
+    // //  reference: `Generic_Procedure` (context clause)
+    // {"file": "generic_procedure_instantiation.ads", "line": 7, "column": 50},
+    // //  reference: `Generic_Procedure`
+
+    {"file": "generic_procedure_instantiation.ads", "line": 7, "column": 11},
+    //  declaration: `Generic_Procedure_Instantiation`
+    {"file": "generics_package.adb", "line": 6, "column": 6},
+    //  reference: `Generic_Procedure_Instantiation` (context clause)
+    {"file": "generics_package.adb", "line": 22, "column": 7},
+    //  reference: `Generic_Procedure_Instantiation`
 
     //  Objects
 

testsuite/als_helper/test.out

@@ -655,6 +655,39 @@ function Generic_Function_Instantiation is new Generic_Function;
 ----- DOCUMENTATION -----
 Description of the generic function instantiation
 ----- DONE -----
+Defining name: <DefiningName "Generic_Procedure" generic_procedure.adb:5:11-5:28>
+Origin: <Id "Generic_Procedure" generic_procedure.adb:5:11-5:28>
+----- CODE SNIPPET -----
+----- DOCUMENTATION -----
+Description of the generic procedure body
+----- DONE -----
+Defining name: <DefiningName "Generic_Procedure" generic_procedure.adb:5:11-5:28>
+Origin: <Id "Generic_Procedure" generic_procedure.adb:8:5-8:22>
+----- CODE SNIPPET -----
+----- DOCUMENTATION -----
+Description of the generic procedure body
+----- DONE -----
+Defining name: <DefiningName "Generic_Procedure_Instantiation" generic_procedure_instantiation.ads:7:11-7:42>
+Origin: <Id "Generic_Procedure_Instantiation" generic_procedure_instantiation.ads:7:11-7:42>
+----- CODE SNIPPET -----
+procedure Generic_Procedure_Instantiation is new Generic_Procedure;
+----- DOCUMENTATION -----
+Description of the generic procedure instantiation
+----- DONE -----
+Defining name: <DefiningName "Generic_Package_Instantiation" generic_package_instantiation.ads:7:9-7:38>
+Origin: <Id "Generic_Package_Instantiation" generics_package.adb:6:6-6:35>
+----- CODE SNIPPET -----
+package Generic_Package_Instantiation is new Generic_Package;
+----- DOCUMENTATION -----
+Description of the generic package instantiation
+----- DONE -----
+Defining name: <DefiningName "Generic_Procedure_Instantiation" generic_procedure_instantiation.ads:7:11-7:42>
+Origin: <Id "Generic_Procedure_Instantiation" generics_package.adb:22:7-22:38>
+----- CODE SNIPPET -----
+procedure Generic_Procedure_Instantiation is new Generic_Procedure;
+----- DOCUMENTATION -----
+Description of the generic procedure instantiation
+----- DONE -----
 Defining name: <DefiningName "Named_Number" objects.ads:4:4-4:16>
 Origin: <Id "Named_Number" objects.ads:4:4-4:16>
 ----- CODE SNIPPET -----