3 with Ada.Streams; use Ada.Streams;
4 procedure Array_Bounds_Test is
5 One : constant Stream_Element := 1;
6 Two : constant Stream_Element := 2;
7 Sample : constant Stream_Element_Array := (0 => One) & Two;
9 if Sample'First /= 0 then
12 if Sample'Last /= 1 then
15 end Array_Bounds_Test;