Re: Case statement and Integers.

[dewar@gnat.com (Robert Dewar)]

Anatoly Chernyshev <rhezusfactor@yahoo.com> wrote in message news:<3CC44130.6472A3C8@yahoo.com>...
> Well, he was probably trying to say approximately the following:
> -------This is the compilable and working example---------------------
> with text_io;
> use text_io;
> procedure af is
> numbers: array (1..100) of integer;
> pivot:constant integer:=30;
> begin
> for j in 1..100 loop
> numbers(j):=j;
> case Numbers(J) is
>     when 1..Pivot - 1 =>
> put_line (integer'image (j) & " is smaller than " & integer'image(pivot));
>     when Pivot + 1 .. 100 =>
> put_line (integer'image (j) & " is larger than " & integer'image(pivot));
>     when others =>
> put_line (integer'image (j) & " is equal to " & integer'image(pivot));
>  end case;
>  end loop;
> end af;

Yes, of course this is compilable, but we perfectly well know that it is 100%
irrelevant to the original post, where obvviously the pivot was a dynamic value.