ada_language_server_23.0.0_66f2e7fb/testsuite/ada_lsp/find_all_refs_kinds/aaa.adb

1
2
3
4
5
6
7
8
9
with Ada.Streams;

procedure Aaa (Stream : not null access Ada.Streams.Root_Stream_Type'Class) is
    Local : Ada.Streams.Stream_Element_Array (1 .. 5);
    Last : Ada.Streams.Stream_Element_Count;
begin
    Ada.Streams.Read (Stream.all, Local, Last);
    Aaa (Stream);
end Aaa;