19 procedure Read is  subprogram
27    File_Size   : Stream_Element_Offset := 100_000;
29    Continuous  : constant Boolean          := False;
33    Header      : constant ZLib.Header_Type := ZLib.Default;
58    Read_Buffer : Stream_Element_Array (1 .. 2048);  argument
59    Read_First  : Stream_Element_Offset;  argument
60    Read_Last   : Stream_Element_Offset;  argument
64    procedure Read  argument
71    procedure Read is new ZLib.Read  subprogram
81    procedure Read  argument
109       Read_First := Read_Buffer'Last + 1;  argument