ada_language_server_23.0.0_66f2e7fb/testsuite/ada_lsp/V701-011.formatting.options_precedence/main.adb

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

procedure Main is

    type My_Type is new Integer;
    type My_Type_Access is access all My_Type;

    procedure Free is new Ada.Unchecked_Deallocation (My_Type, My_Type_Access);

    A : My_Type_Access := new My_Type'(3);
begin
    Free (A);
end Main;