ada_language_server_23.0.0_66f2e7fb/testsuite/ada_lsp/definition_and_overridings/class_definition.adb

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
with Ada.Text_Io; use Ada.Text_Io;
with Ada.Tags;

package body Class_Definition is

   procedure Generic_P1 (E : Extended_A) is
   begin
      Put_Line
        ("Hi, I'm Generic_P1 for: "
            & Ada.Tags.Expanded_Name (Class_Definition.A'Class (E)'Tag));
   end Generic_P1;

end Class_Definition;